Cancel and Delete Record

[Loc]

Here is my problem,

In this form I am looking to add a record but I want to be able to cancel and delete this addition if they change there mind. The catch is if they don't enter any data then there is no record and I get the error no current record. Is there code I can use to check and tell it to just close the form if it's a new record?

Here is my code
Private Sub cmdCancel_Click()
On Error GoTo errr



If MsgBox("Cancel this record?", vbQuestion + vbYesNo, "Delete") = vbYes Then
If MsgBox("Do you realy want to cancel the record", vbQuestion + vbYesNo, "delete") = vbYes Then
Me.Recordset.Delete
DoCmd.Close
End If
End If

errr:
MsgBox Err.Description
End Sub

[ssanfu]

Try:

Private Sub cmdCancel_Click()
   On Error GoTo errr

   If MsgBox("Cancel this record?", vbQuestion + vbYesNo, "Delete") = vbYes Then
      If MsgBox("Do you realy want to cancel the record", vbQuestion + vbYesNo, "delete") = vbYes Then
         Me.Recordset.Delete
         DoCmd.Close
      End If
   End If

errr:
   If Err.Number <> 3021 Then
      MsgBox Err.Description
   End If

End Sub

[Missinglinq]

You could only execute the deletion code if the Record is actually Dirty:

Private Sub cmdCancel_Click()
On Error GoTo errr

If Me.Dirty Then
 If MsgBox("Cancel this record?", vbQuestion + vbYesNo, "Delete") = vbYes Then
  If MsgBox("Do you realy want to cancel the record", vbQuestion + vbYesNo, "delete") = vbYes Then
   Me.Recordset.Delete
   DoCmd.Close
  End If
 End If
Else
 DoCmd.Close
End If
errr:
MsgBox Err.Description
End Sub

[Loc]

Missinglinq,
This worked but I get a message box with no information in it and just an OK button when I run the code.
Now I get the no current record error when the record has information in it.