Compiled Error

[Av8tordude]

Is there a better or correct way to write this code? Currently I'm getting a compiled error.

If textbox1.setfocus then exit sub

 

[Av8tordude]

can anybody help?

 

[shg]

What are you trying to do?

 

[Av8tordude]

I have this code...

Private Sub Amnt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CCur(Amnt) > "$0.00" And CCur(Amnt) <= "$75.00" Then
    If MsgBox("Would you like to substantiate this expense?", vbQuestion + vbYesNo, "PerDiem Traveler") = vbYes Then
        frmReceipt.Show
    End If
ElseIf CCur(Amnt) > "$75.00" Then
    MsgBox "Expenses over $75.00 requires to be substantiated.", vbInformation, "PerDiem Traveler"
    frmReceipt.Show
End If
End Sub

if I'm focused in the textbox and close the userform, the msgbox continue to display after I've already close the userform. While the I still want the msgbox to appear as appropriate, I don't want them to appear if I close the userform and I'm focused in the textbox.

 

[shg]

Maybe like this:

Private Sub Amnt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Const sTitle  As String = "PerDiem Traveler"
 
    If Not Me.ActiveControl Is Me.TextBox1 Then
        Select Case CDbl(Me.Amnt)
            Case Is > 75
                MsgBox Prompt:="Expenses over $75.00 must be substantiated.", _
                       Buttons:=vbInformation, _
                       Title:=sTitle
                frmReceipt.Show
 
            Case Is > 0
                If MsgBox(Prompt:="Substantiate this expense?", _
                          Buttons:=vbQuestion + vbYesNo, _
                          Title:="PerDiem Traveler") = vbYes Then
                    frmReceipt.Show
                End If
        End Select
    End If
End Sub

 

[Ruddles]

Is there a better or correct way to write this code? Currently I'm getting a compiled error.

If textbox1.setfocus then exit sub

Just to provide some information which might help you in the future:-

.SetFocus is a 'method' - it's something you do to a control.

You're trying to use it as a property - a value associated with a control.

It's like the difference between washing a car (method) and the colour of the car (property): one is something you do to it, the other describes something about it.

You wouldn't say, "What's the wash of the car".

 

[Norie]

You could move the validation to another event, perhaps even a command button that closes the form.