MsgBox si se intenta editar un campo protegido
En un formulario de Access, tengo un botón de verificación para bloquear todos los campos. He intentado poner un mensaje de aviso cuando uno intenta editar ese campo bloqueado. Primero, al pulsar un tecla; luego al bajar; después, al subir. Viendo si estaba activado el botón de bloquear después de actualizar el formulario. Pero de ninguna de las formas funciona.
¿Alguien me podría orientar?
1 Respuesta
Diego: Así en frio solo se me ocurre que programes el Evento GotFocus. La verdad es que no lo he probado pero debería funcionar. Un saludo >> Jacinto
Muchas gracias, Jacinto. Con GotFocus no funciona como quiero. Sin embargo, me funciona con esto:
Private Sub VerFact_KeyPress(KeyAscii As Integer) If VerFact.Locked Then MsgBox "Este campo está bloqueado.", vbInformation, "Ha habido un error" End If End Sub
Ahora, tengo un problema. Y es que no me debe saltar error cuando presiono tabulador para pasar de campo.
Diego: Creo que el ASCII del tabulador es el 9 >>
Private Sub VerFact_KeyPress(KeyAscii As Integer)
If KeyAscii = ("09") Then Exit Sub
'o bien
'If KeyAscii = 9 Then Exit Sub
If VerFact.Locked Then
MsgBox "Este campo está bloqueado.", vbInformation, "Ha habido un error"
End If
End SubTambién puedes poner un Select Case para excluir otros Códigos Ascii
http://www.elcodigoascii.com.ar/caracteres-ascii-control/tabulador-horizontal-codigo-ascii-9.html
Ya me comentarás. Un saludo >> Jacinto
