I have a number of textboxes on a userform. When the user enters dat
beyond accepted paramaters,
1. an error message is generated
2. the form 'close' button is locked (& changes color)
3. the offending input textbox changes color.
I also would like the cursor to return to the offending textbox afte
step 3 - how do I do this ? (apologies for what must be a basi
problem).
Here is a sample of the code I am using:
Private Sub EnterInfo_Click()
If txtStaff.Text = "" Then
MsgBox "Please enter number of staff", 64, "Error Message"
CloseButton.Locked = True
CloseButton.BackColor = &H80000013
txtStaff.BackColor = &H80000013
Else
If txtStaff >= 0 Then
CloseButton.Locked = False
CloseButton.BackColor = &H80000010
txtStaff.BackColor = &H80000005
You just set the focus back on the TextBox. See your code below. Th
method is in bold type.
Private Sub EnterInfo_Click()
If txtStaff.Text = "" Then
MsgBox "Please enter number of staff", 64, "Error Message"
CloseButton.Locked = True
CloseButton.BackColor = &H80000013
txtStaff.BackColor = &H80000013
TXTSTAFF.SETFOCU
Else
If txtStaff >= 0 Then
CloseButton.Locked = False
CloseButton.BackColor = &H80000010
txtStaff.BackColor = &H80000005
