Textbox highlighting issue

  • Thread starter Thread starter peter.thompson
  • Start date Start date
P

peter.thompson

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


Any help much appreciated

Cheers

Peter (new to VBA
 
Hello Peter,

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

Sincerely,
Leith Ros
 
Back
Top