[ασχετος]

Κώστα καλησπέρα,

Τροποποίησα λίγο τον κώδικα του Θανάση. Στο button 'Επιλογή' στο συμβάν On Click από το πτυσσόμενο πλαίσιο επέλεξε Event Procedure και πρόσθεσε τον παρακάτω κώδικα

Dim msg As String

If IsNull(Me.ΚΩΔ_ΠΕΛ) = True Then
msg = MsgBox("Σε αυτήν την εγγραφή η τιμή στο πεδίο 'Πελάτης' είναι ΚΕΝΗ", _
vbInformation, "Η Εφαρμογή σας ενημερώνει ότι..")
Exit Sub
Else
DoCmd.OpenForm "ΚΙΝΗΣΕΙΣ17/8", _
WhereCondition:="ΚΩΔ_ΠΕΛ=" & Me.ΚΩΔ_ΠΕΛ
End If

Με τον κώδικα αυτόν όταν είναι ΚΩΔ_ΠΕΛ = Null εμφανίζετε μόνο το μήνυμα