[γιώργοςΚ]

Δημήτρη ειναι απλό το πρόβλημα σου (αν κατάλαβα σωστά τι ζητάς),

Βάλε τον ιδιο κώδικα που έγραψες στο

Option Compare Database
Option Explicit

Private Sub Form_Load()
If Nz(Me.Çìåñïìçíßá, 0) = 0 Then

' MsgBox "Äåí õðÜñ÷ïõí åããñáöÝò !", vbInformation, "ÌÞíõìá åöáñìïãÞò"
DoCmd.Close acForm, "frm1", acSaveNo

End If
End Sub