Before Update

[tcheck]

I have a form that has a combo box where I check to see if a field in the header is filled in, if it is not I want an error message to come up and tell the user to enter a period. This works fine if I put the code in the On Got Focus Event. The problem is that when I open the form I get the message that they need to enter the period. I tried the Before Update Event and then it will not take the user to the Period field after they click OK.

Here is my code;

Private Sub AccountNumberSelect_GotFocus()
If IsNull([PeriodSelect]) Then
Dim LResponse As Integer
LResponse = MsgBox("Please Enter a Period from Above!", vbYes, "Enter Period")

Not sure where it would work best, like I said on Got Focus works fine except the message comes up when they open the form.

Thanks in advance.
DoCmd.GoToControl "PeriodSelect"


End If
End Sub

[pbaldy]

I personally would use the form's before update event:

http://www.baldyweb.com/BeforeUpdate.htm

I suppose you could use the focus event, but you wouldn't want that control to get focus before the other, which it sounds like it does.

[tcheck]

When I use the before update event I get the follwoing error message;

Run-Time error '2108'

You must save the field before you execute the GoToControl action, the GoToControl method , or the SetFocus method.

[pbaldy]

What's the code now? You probably need the Cancel = True and perhaps an Undo on that control.

[tcheck]

Private Sub AccountNumberSelect_BeforeUpdate(Cancel As Integer)
If Len(Me.PeriodSelect & vbNullString) = 0 Then
MsgBox "Please Enter a Period from the dropdown above!"
Cancel = True
Me.PeriodSelect.SetFocus
End If
End Sub

[pbaldy]

As I mentioned, I would use the form's before update event, not a control's. That said, a control's might work. Did you try

Me.AccountNumberSelect.Undo

after Cancel = True?

[tcheck]

That worked. Thanks again.

[pbaldy]

Happy to help.