Ola,
Encontrei um exemplo e adptei ao meu projeto, mas sinceramente não entendi esse código abaixo e qual sua finalidade.
Ate porque com ele e sem ele meu exemplo funcionou.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
KeyCode = Asc(UCase(Chr(KeyCode)))
If KeyCode = 27 Then
DoCmd.Close
End If
End Sub
Obrigado !
Encontrei um exemplo e adptei ao meu projeto, mas sinceramente não entendi esse código abaixo e qual sua finalidade.
Ate porque com ele e sem ele meu exemplo funcionou.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
KeyCode = Asc(UCase(Chr(KeyCode)))
If KeyCode = 27 Then
DoCmd.Close
End If
End Sub
Obrigado !