SetFocus won't return to Control 2

[rockiwood]

I am attempting to force a user to put in a date in a control using the following code.

Private Sub txtRDate_Exit(Cancel As Integer)

If IsNull(Me.txtRDate) Then
MsgBox " Must have a Date to continue "
' Me.txtRDate.Enabled = True
Me.txtRDate.SetFocus
End If

End Sub


When I get the Message Box and select okay, it advances to the next field. How can i get it to go back to txtRDate? The setfocus seems to have no affect. I've tried it with the .enabled and without.

Thanks in advance!!

Jerry

 

[PaulBricker]

When they have gotten as far a the Exit event it's too late to just halt things. Use the BeforeUpdate Event for the textbox so they never get away.

Private Sub txtRDate_Before_Update(Cancel As Integer)

If IsNull(Me.txtRDate) Then
MsgBox " Must have a Date to continue "
Cancel = True

End If

End Sub

Or better yet, use the Required property of the Table and force them to put a value in that way.

Paul

 

[VBslammer]

Actually, you can Cancel the exit event to set the focus back on the control:

Private Sub txtRDate_Exit(Cancel As Integer)

    If IsNull(Me.txtRDate) Then
        MsgBox " Must have a Date to continue "
        Cancel = True
    End If
    
End Sub

VBSlammer

Unemployed in Houston, Texas

 

[rockiwood]

Thanks for the help.. This site and the people are an invaluable tool for someone like me who forgets the basics and still needs to know all the rest!!

Jerry