Good afternoon all
I have put the following code inmy lost focus event
and it thows out an error saying "that it cannot execute this type of etc"
Private Sub close_main_LostFocus()
If IsNull(Me!List90) Or IsNull(Me!StaffMember) Then
Dim IntResponse As Integer
IntResponse = MsgBox("Exit without saving record ?", vbYesNo + vbDefaultButton1, "EXIT ?"
If IntResponse = vbYes Then
DoCmd.Close
Else
another bit etc
End If
End If
End Sub
Could you please tell me why?
and also a way round the problem.
Thanks very much
Nick
I have put the following code inmy lost focus event
and it thows out an error saying "that it cannot execute this type of etc"
Private Sub close_main_LostFocus()
If IsNull(Me!List90) Or IsNull(Me!StaffMember) Then
Dim IntResponse As Integer
IntResponse = MsgBox("Exit without saving record ?", vbYesNo + vbDefaultButton1, "EXIT ?"
If IntResponse = vbYes Then
DoCmd.Close
Else
another bit etc
End If
End If
End Sub
Could you please tell me why?
and also a way round the problem.
Thanks very much
Nick