[Resolvido]Como desabilitar a tecla ENTER?

Bom dia Pessoal,

Tenho um form e quero desabilitar a tecla ENTER para que o usuário só utilize o form sem o auxilio da tecla ENTER para mudar de um campo para o outro, pois essa ação esta incluindo registro na minha tabela sendo que o formulário é apenas para consulta, mas ao pressionar o ENTER ela inclui o registro filtrado no campo.

Tente assim:

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

No evento do form ao apertar a tecla defina:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MsgBox "Tecla Enter desabilitada.", vbInformation, " mrgmonz"
KeyCode = 0
End If

End Sub

Amigo Lupércio, já quero agradecer a ajuda mas ainda tenho uma duvida,

Onde eu coloco a primeira parte do código? E eu posso usar a mesma regra para fazer o mesmo com a tecla TAB?

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

No evento ao carregar do formulário defina:

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

No evento ao carregar do formulário defina:

Private Sub Form_Load()
Me.KeyPreview = True

End Sub


Para a tecla Tab:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
MsgBox "Tecla Tab desabilitada.", vbInformation, "Lupércio"
KeyCode = 0
End If

End Sub

Mestre Lupércio, funcionou perfeitamente, no entanto o uso da tecla TAB causa o mesmo erro que eu tinha com o uso do ENTER, ou seja, preciso desabilitar o TAB tambem. Obrigado pela grande ajuda!!

Tecla Tab:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
MsgBox "Tecla Tab desabilitada.", vbInformation, "Lupércio"
KeyCode = 0
End If

End Sub


Aquela primeira parte do código não precisa porque vc ja colocou! Apenas esta.

Coloque assim desabilita a tecla "Tab e a Enter".

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
MsgBox "Tecla Tab desabilitada.", vbInformation, "Lupércio"
KeyCode = 0
End If
If KeyCode = 13 Then
MsgBox "Tecla Enter desabilitada.", vbInformation, " mrgmonz"
KeyCode = 0
End If

End Sub

Entendi, mas não posso repetir o comando né? Tenho que colocar as duas condições dentro do mesmo "Private Sub Form_KeyDown", é isso? Se eu colocar outro ele acusa que esta duplicado o comando.

Isso, é assim mesmo:
veja:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
MsgBox "Tecla Tab desabilitada.", vbInformation, "Alerta"
KeyCode = 0
End If
If KeyCode = 13 Then
MsgBox "Tecla Enter desabilitada.", vbInformation, " Alerta"
KeyCode = 0
End If

End Sub

Mestre,

OTIMO!!!!!!!!!!
Funcionou perfeitamente!!!!!

Resolveu o meu problema!!!!! Muito obrigado pela ajuda!!! Abraço

o Fórum agradece! Amigo.