From: "Richard Mogy"
Subject: User Form maneuvering
Date: Thursday, May 06, 2004 6:59 AM

Thanks to those who replied. I apologize for not including the code. I
have used the setfocus command, here's basically what the screen looks like

Enter Start Date:
Enter End Date:
Enter Office:
Enter Start Account:
Enter End Account:

Process End

Using these after updates in the "End Date" and "End Account", if the error
is in the end date, focus goes to "Start Account". If the error is in the
End Account, focus goes to the "END" command button.

Here's the code

Private Sub TxtDateTo_afterupdate()
date1 = Format(TxtFromDate.text, "mm/dd/yyyy")
date2 = Format(TxtDateTo.text, "mm/dd/yyyy")
If date2 < date1 Then
Me.TxtFromDate.SetFocus
TxtDateTo.text = ""
TxtFromDate.text = ""
TxtMessage.text = "End Date must be greater than or equal start date"

End If

End Sub




Private Sub txtEndAccount_afterupdate()
acct1 = txtStartAccount.text
acct2 = txtEndAccount.text

If acct2 < acct1 Or Len(acct2) < 5 Or Len(acct1) < 5 Then
Me.txtStartAccount.SetFocus
txtStartAccount.text = ""
txtEndAccount.text = ""
TxtMessage.text = "End Account must be greater than or equal start
Account"
End If

End Sub



"Richard Mogy" wrote in message
m...
I have created a user form with five text boxes.

The user is asked first to enter two numbers. After the second number is
entered, I check if the second number is greater than or equal to the
first.
If it isn't, then I blank out both boxes, display a message and then I
want
the cursor to go to the first box so the user can re-enter the range.

The problem is getting the cursor back to the first box.

I then have the user enter two dates in the third and fourth box. I do
similar checks to determine that the second date is greater than or equal
to
the first date and if not, blank out both boxes, display a message. I
then
want the cursor to go to the third box.

Any suggestions would be appreciated.