السلام عليكم
أخوتي الكرام لدي قاعدة وقمت بالتعديل عليها ولكن واجهتني مشكبة وهي اني لا اريد أن يتكرر التقرير الواحد للشخص وبحثت في المنتدى ووجدت موضوع للأخ
MHN يطلب فيه حل المشكلة ولكني قمت بتطبيق الحل وواجهتني مشكلة وهي أن نموذج الأخ كان حقل الادخال نوعه رقم وانا اريد ان يكون نص وهذا هو الكودOption Compare Database
Private Sub na_pr_BeforeUpdate(Cancel As Integer)
If DLookup("[na_pr]", "data", "[na_pr]='" & Me![na_pr] & "' And [id]=" & Me.id.Column(0)) Then
MsgBox " التقرير مسجل مسبقا ", vbCritical, "تنبيه"
Me.Undo
End If
End Sub
