Prevent move next on Enter

[Jesper Fjølner]

I'm using the folto prevent users from 'tabbing' out of a field.

Private Sub ControlName_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab And Shift = 0 Then
KeyCode = 0
End If
End Sub

Can I do the same for the Enter-button?
If KeyCode = vbKeyReturn Then
KeyCode =0
End if
doesn't seem to work?

In the database options I've set the database to move to the next field on
Enter - does this complicate it?
Could it be something with the previewing of the keystrokes in field/form?
Thanks for your help.

 

[Jesper Fjølner]

Can I do the same for the Enter-button?

If KeyCode = vbKeyReturn Then
KeyCode =0
End if
doesn't seem to work?

Got it working with
If KeyCode = 13 Then
KeyCode =0
End if