I am stumped. This is working fine on another form in this database. What are the reasons for a SetFocus not working? I am displaying an error message if the user leaves the control without entering data (LostFocus). I then set the border on the control to red - works fine, but when I try to SetFocus to the same control it jumps to the next control instead. Puzzled and frustrated. Thanks!
Private Sub Info1_LostFocus()
If Not IsNull(Me.Finding1) And IsNull(Me.Info1) Then
Info1.SetFocus
Info1.BorderColor = vbRed
MsgBox "Finding 1 - If finding is entered, recommendations and information must also be entered 3"
Else
Info1.BorderColor = vbBlack
End If
End Sub
Private Sub Info1_LostFocus()
If Not IsNull(Me.Finding1) And IsNull(Me.Info1) Then
Info1.SetFocus
Info1.BorderColor = vbRed
MsgBox "Finding 1 - If finding is entered, recommendations and information must also be entered 3"
Else
Info1.BorderColor = vbBlack
End If
End Sub