[Tasos]

Καλημέρα!

Στο κουμπί "Έξοδος" δεν θα χρειαστεί να τροποποιήσεις κάτι.

Πρόσθεσε απλά τον παρακάτω κώδικα στη φόρμα:

Option Compare Database
Option Explicit

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If IsNull(Me.Price) Then
        Cancel = True
        Me.Undo
    End If
End Sub

' Επειδή μετά την αναίρεση εγγραφής, με το κλείσιμο της φόρμας ενδέχεται να προκληθεί σφάλμα,
' μπορούμε να το προσπεράσουμε με τον παρακάτω κώδικα:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 2169 Then
        Response = acDataErrContinue
    End If
End Sub

Καλή συνέχεια!

Τάσος