Error Trapping and stopping Enter from advancing to next control

[txtaggers]

OK folks, probably simple answer to this but I'm just missing something. I have a text box that needs validated before moving on to the next control. I can NOT disable the ENTER keys property that allows it to advance to the next field, it's used elsewhere on the form. If the input is invalid and the user hits enter how do I prevent the form from displaying the warning message and advancing to the next control anyway on ENTER? I've tried a dozen variations and EVENT locations with no success. Any great ideas? (using Access 2007 db)



Here's what I'm working with:

Private Sub TrnAppointmentTime_AfterUpdate()

If (TrnAppointmentTime.Value >= "0000" And TrnAppointmentTime.Value <="2359" Then
Call SOMETHING_ELSE
Else
MsgBox "ENTER CORRECT TIME AND OTHER STUFF", vbCritical
Me.TrnAppointmentTime.SetFocus
End If

End Sub

[rzw0wr]

put this code it the before update event.

Dale

[txtaggers]

put this code it the before update event.

Dale

Tried that earlier on my own and receive a 2108 error... You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method.

[rzw0wr]

Put an TrnAppointmentTime.undo before the setfocus.

Dale

[txtaggers]

Nope, still 2108.... here is what I currently have in there:

Private Sub TrnAppointmentTime_BeforeUpdate(Cancel As Integer)
If (TrnAppointmentTime.Value >= "0000" And TrnAppointmentTime.Value <= "2359") Then
Call ToggleCommandButton
Else
MsgBox "ENTER A VALID APPOINTMENT TIME" & vbCrLf & "FROM 0000 to 2359", vbCritical
Me.TrnAppointmentTime.Undo
Me.TrnAppointmentTime.SetFocus
'Me.TrnAppointmentTime = Me.TrnAppointmentTime.OldValue <-tried this method also... no luck... kept it here to remind me what I've tried.
End If
End Sub

[Bob Fitz]

Try:

Private Sub TrnAppointmentTime_BeforeUpdate(Cancel As Integer)
If (TrnAppointmentTime.Value >= "0000" And TrnAppointmentTime.Value <= "2359") Then
Call ToggleCommandButton
Else
MsgBox "ENTER A VALID APPOINTMENT TIME" & vbCrLf & "FROM 0000 to 2359", vbCritical
Cancel = True
Me.TrnAppointmentTime.SetFocus
'Me.TrnAppointmentTime = Me.TrnAppointmentTime.OldValue <-tried this method also... no luck... kept it here to remind me what I've tried.
End If
End Sub

[txtaggers]

Still getting a 2108... and a head ache from beating my head against the desk!

[Bob Fitz]

I think the following link will help: http://www.access-programmers.co.uk/...d.php?t=176480