Access - desactivar la tecla esc

   
Vista:

desactivar la tecla esc

Publicado por adriana (17 intervenciones) el 27/02/2008 15:32:46
Necesito desactivar la tecla escape, para que en momento de agregar uno nuevo ya no se puedan arrepentir.

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:desactivar la tecla esc

Publicado por Enrique (1299 intervenciones) el 27/02/2008 20:18:04
Hola Adriana:
Necesitas poner estos tres Eventos en el Formulario:

Private Sub Form_Load()
KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
Call AnulaTecla(KeyCode, vbKeyEscape)
MsgBox "La Tecla ESC está anulada.", vbCritical, "Tecla desactivada"
End Select
End Sub

Function AnulaTecla(KeyCode As Integer, ParamArray Keys() As Variant) As Integer
Dim Tecla As Variant
For Each Tecla In Keys
If KeyCode = Tecla Then
KeyCode = 0
Exit Function
End If
Next
End Function

La Función AnulaTecla la podrías poner en un Módulo y funciona igual y la línea del MsgBox es opcional, si quieres lo puedes quitar.

Saludos
Enrique
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:desactivar la tecla esc

Publicado por adriana (17 intervenciones) el 29/02/2008 15:01:40
Enrique nuevamente muchas gracias, ya me funcionó.

Adriana
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar