Code to check if field is empty

[darekg11]

Private Sub Anuluj_Click()
Dim final As String
Dim data As String
If Nz(id_dostawcy, "") & "" <> "" Then
DoCmd.Close
DoCmd.OpenForm "Dostawcy_główny"
Else
DoCmd.SetWarnings False
MsgBox ("CHECK")
data = id_dostawcy.Value
DoCmd.Close
final = "DELETE * FROM Dostawcy WHERE id_dostawcy = " & data & ";"
DoCmd.RunSQL final
DoCmd.OpenForm "Dostawcy_główny"
DoCmd.SetWarnings True
End If
End Sub

id_dostwacy is field which hold unique ID of record and is aumatically entered by acNewRec now I have Cancel button on form and when I press it without enterin fields on form like name, second name etc it was crashing due to NULL value in id_dostawcy so I made this code but it never go to else code even if dostwacy_id is filled.

[June7]

Why would id_dostawcy be null? If your procedure automatically creates this value when going to new record how can the control be null? If id_dostawcy is an autonumber type field, just going to new record does not actually create a record. Should be able to simply quit the form unless something else is happening. Do you have other fields/controls set with DefaultValue? If data is entered into any field, this will initiate a record. Need to Undo before trying to close form if you want to cancel. Delete won't work because the record is not yet committed to table, there is no record to delete.

Want to provide db for analysis? Follow instructions at bottom of my post.

[darekg11]

Hey man, thanks for Your answer but I have already solved it. I was so stupid to put "if" code in place of "else" code and "else" code to "if" code. Now when I changed it, it works without a problem but still thank You.