Bloquear formulario si...
Bloquear un formularios si se dan las siguientes características:
Private Sub Form_Current()
If Form![dia] = 1 Or Form![dia] = 2 Or Form![dia] = 7 Then
MsgBox "ESTE RESTAURANTE ESTA CERRADO LOS DOMINGOS LUNES Y MARTES CAMBIE DE DIA O DE RESTAURANTE"
Form!Fecha.SetFocus
End If
End Sub
El mensaje sale perfecto pero los usuarios aun así siguen introduciendo los datos
aver si me puedes ayudar
Private Sub Form_Current()
If Form![dia] = 1 Or Form![dia] = 2 Or Form![dia] = 7 Then
MsgBox "ESTE RESTAURANTE ESTA CERRADO LOS DOMINGOS LUNES Y MARTES CAMBIE DE DIA O DE RESTAURANTE"
Form!Fecha.SetFocus
End If
End Sub
El mensaje sale perfecto pero los usuarios aun así siguen introduciendo los datos
aver si me puedes ayudar
1 Respuesta
Respuesta de Neckkito Nck
1
Si quieres bloquear el formulario si se introducen esos días de control puedes hacerlo con el código que te indico más abajo, pero piensa que si el formulario se bloquea no van a poder cambiar de día, porque TODOS los campos estarán bloqueados.
Prueba con el siguiente código:
---
Private Sub Form_Current()
If Form![dia] = 1 Or Form![dia] = 2 Or Form![dia] = 7 Then
MsgBox "ESTE RESTAURANTE ESTA CERRADO LOS DOMINGOS LUNES Y MARTES CAMBIE DE DIA O DE RESTAURANTE"
Form!Fecha.SetFocus
me.allowedits=False
End If
End Sub
---
Prueba con el siguiente código:
---
Private Sub Form_Current()
If Form![dia] = 1 Or Form![dia] = 2 Or Form![dia] = 7 Then
MsgBox "ESTE RESTAURANTE ESTA CERRADO LOS DOMINGOS LUNES Y MARTES CAMBIE DE DIA O DE RESTAURANTE"
Form!Fecha.SetFocus
me.allowedits=False
End If
End Sub
---
Lo siento pedo me sigue dejando introducir datos. ¿Quizás este haciendo algo mal?
Saludos
Saludos
neckkito, perdón por mi torpeza pero me valdría con que no dejara guardar los datos.
Me extraña que te deje seguir modificando, pero ello no implica que sea culpa tuya. Ahora no puedo crear una BD y testearlo. Dame un poco de tiempo y te digo cosas. Don't worry!
