Select and If together. 1

[lars7]

Hi,
I am trying to get the following code to close the form without saveing if the message box answer is "No" but I don't want it to save if "text1" is null. At the moment the form wont close if "text1" is null. So if the form is opened just to view it wont close.

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
Dim intReturn As Integer
intReturn = MsgBox("Would you like to save this record?", vbYesNo + vbDefaultButton3, "Save changes?")
Select Case intReturn
Case vbYes
'Do Nothing
Case vbNo
Me.Undo
End Select
If IsNull(Me!text1) Then
Beep
MsgBox "Additional pay number cannot be null", vbExclamation, "Required selection"
Else
DoCmd.Close
End If
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub

 

[PHV]

Perhaps this ?
If IsNull(Me!text1) And Me.Dirty Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[lars7]

Thanks PHV,
That worked. Now I will try to find out wny.