Set Focus

**rvc81** · 12-04-2010, 06:37 AM

hi,

my user form has 3 text boxes

Text Box 1 = uf_UserInfo.txt_UI_EmpName
Text Box 2 = uf_UserInfo.txt_UI_EmpNameID
Text Box 3 = uf_UserInfo.txt_UI_Dept

If I use the below code then it works fine,

If Trim(uf_UserInfo.txt_UI_EmpName.Value) = "" Then
  uf_UserInfo.txt_UI_EmpName.SetFocus

MsgBox "Please enter the Relevent Information and click on Update"

Exit Sub
End If

However; I cannot get 1 or all 3 criteria's to match. If I use the following code then I get an error? I am sure it is to do with 'SetFocus' method.


If Trim(uf_UserInfo.txt_UI_EmpName.Value) Or Trim(uf_UserInfo.txt_UI_EmpNameID.Value )  Or Trim(uf_UserInfo.txt_UI_Dept.Value) = "" Then
    
uf_UserInfo.txt_UI_EmpName.SetFocus
uf_UserInfo.txt_UI_EmpNameID.SetFocus
Else: uf_UserInfo.txt_UI_Dept.SetFocus
  
  MsgBox "Please enter the Relevent Information and click on Update"
  Exit Sub
End If

Please help.
Thanks
R

**snb** · 12-04-2010, 07:36 AM

What is the essence of focus ?
In optometrics doublefocus can be achieved, in VBA it can't.

**Andy Pope** · 12-04-2010, 07:52 AM

as snb points out only one control can have focus.
You need to check each textbox and deal with the first empty one

Private Sub CommandButton1_Click()

    Select Case 0
    Case Len(TextBox1.Text)
        MsgBox "Complete textbox 1"
        TextBox1.SetFocus
        Exit Sub
    Case Len(TextBox2.Text)
        MsgBox "Complete textbox 2"
        TextBox2.SetFocus
        Exit Sub
    Case Len(TextBox3.Text)
        MsgBox "Complete textbox 3"
        TextBox3.SetFocus
        Exit Sub
    End Select
    
    MsgBox "All textboxes populated"
    
End Sub

When you use code that check all the textboxes at once you will detect an empty one but you will not know which one to set focus to.

    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
        MsgBox "Complete textboxes"
        TextBox1.SetFocus
        Exit Sub
    End If
    
    MsgBox "All textboxes populated"