[AccessD] one more tip for help...

[Kostas Konstantinidis]

HI again,
It works with YES but not in NO
Am I missing something?
Thank's
kostas

If IsNull(date1) Then
Msg = "Select OK to continue or No to delete current record"
Style = vbYesNo
Title = "Choose"
responce = MsgBox(Msg, Style, Title)
If responce = vbYes Then
Me.date1.SetFocus
Cancel = True
Else
DoCmd.RunCommand acCmdDeleteRecord
End If
End If
End If
End Sub