Hi,

found another little problem. What I would like is that in a date field on a form you can not enter a date in the future. If you enter a date in the future the user should receive a messagebox. This I can do and it works.

Now what I would like is that after the user presses 'enter' on that message box, the active field on the form becomes the date field again (so the user has to enter a valid date).

The code I'm using is:

Private Sub Datum_AfterUpdate()
    If Me.Datum > Date Then
        MsgBox "De ingevoerde datum bevindt zich in de toekomst!" & vbCrLf & "Gelieve een andere datum in te voeren." _
        , vbExclamation, "Ongeldige invoer"
        DoCmd.GoToControl "Datum"
    End If
End Sub

but with this code, the active field when the user presses 'enter' on the message box becomes the next field in the tab order. What do I have to change to my code to make this work???

Thanks

Use the .SetFocus method. That is, Me.Datum.SetFocus

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Where should I insert this me.datum.setfocus command?

Should I replace the docmd.gotocontrol "datum" with this command or should I add this somewhere else in the code. Sorry for asking, but I'm trying to understand how this works, because it is the first time I'm making something in access...

Yes, replace your DoCmd statement with the statement I suggested.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

If I change the code to

Private Sub Datum_AfterUpdate()
    If Me.Datum > Date Then
        MsgBox "De ingevoerde datum bevindt zich in de toekomst!" & vbCrLf & "Gelieve een andere datum in te voeren." _
        , vbExclamation, "Ongeldige invoer"
        me.datum.setfocus
    End If
End Sub

it does also not work. It just gives me the messagebox and then moves to the next field of the form...

How about doing this at the table design level with data validation stating that the date entered cannot be later than today?


mmcdonal

There is a bug in the setfocus feature of Access 2003. You have to set the focus to the prior field on your form, and the to the field you really want to set the focus on.

     Me!MINREQFLAG.SetFocus
     Me!EmailAddress.SetFocus

Also, me.undo is hosed. Use this code instead:

DoCmd.RunCommand acCmdUndo

Karen S. Long
MarkXX Consulting, LLC
103 Clearview Drive
McMurray, PA  15317
(724)942-4831

Hi,

Here's the fastest solution that I've found and I use it in
tons of application using Access VBA. I'll cite your example:

Private Sub Datum_Exit(Cancel As Integer)

    If Me.Datum > Date Then
       MsgBox "You may not enter a date after the current date", vbExclamation, "ERROR"
       DoCmd.CancelEvent
    End If

End Sub



They can't get out of the field until they either:

#1 Enter a valid date
#2 Press the [Esc] key to get out of the field.

Hope that helps.

Warren