Message Box Error

[reberryjr]

Can someone tell me why I'm getting a "variable not defined" error on the lines in red font? I've used this code in another application, and didn't get this error.

Dim IsOk As Boolean
IsOk = True
Select Case True
    Case Me.cobo_Facilitator.Value = ""
        MsgBox "Please enter who Facilitated the measurement(s)."
[COLOR=#ff0000]        If response = vbOK Then[/COLOR]
            Me.cobo_Facilitator.SetFocus
        End If
        Exit Sub
        IsOk = False
End Select
If Not IsDate(Me.txt_Updated) Then
    MsgBox "Please enter a valid Updated date in MM/DD/YY format."
[COLOR=#ff0000]    If response = vbOK Then[/COLOR]
        Me.txt_Updated.SetFocus
    End If
    Exit Sub
End If

 

[Norie]

In the posted code response hasn't been declared.

 

[reberryjr]

Not sure I understand. It's exactly the same as the code that works in another application, without error.

 

[reberryjr]

I threw this in there and it seems to be working. I'm still confused as to why I had to do it here and not in the other application.

Dim Response As VbMsgBoxResult