[ تمت الإجابة ]كيف تظهر رسالة عند عدم الضغط على القائمة

جربت هذا الكود ونجح معي :

If IsNull(aa.Value) Then
MsgBox "يجب أن تختار من القائمة"
Else
    DoCmd.Close
End If

هل توجد طريقة أفضل من ذلك ؟

حاول الخروج قبل أن تدخل قيم للحقول :mad:

الكود المستخدم

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me.List1) Or IsNull(Me.Text1) Then
MsgBox "عذرا أخي الكريم .... لا يمكن ترك أحد الحقول فارغة يجب أن تدخل قيم للحقول"
Cancel = True
SendKeys "esc", True
End If
End Sub

[تحياتي ..

db1_up.rar

مشكور أخي أبو عدنان