السلام عليكم الاساتذة الافاضل
بارك الله فيكم امين
اقوم غصب عنى بادخال مستندات اكثر من مرة ويحدث مشاكل بسبب هذا وفى اوقات يتشابه الرقم المدخل
هل بالامكان مثل الاكسل هذا الكود بالاكسيل اريد مثله للاكسس فى الفورم المسمى frm_Items_Entry
If m <> 0 Then
Reponse = MsgBox("رقم المستند مكرر هل تريد الاستمرار: " & Chr(10) & _
Join(Arr, " ; "), 524292)
If Reponse <> 6 Then Exit Sub
End If
هنا عند الادخال والترحيل وعند الضغط على زر ترحيل هل بالامكان ان تظهر لى هذه الرسالة فى حالة تكرار الرقم فاذا كنت ادخلت المستند اذاهب واتأكد منه واذا كان الرقم مكرر
اضغط نعم فيستمر العمل
بارك الله فيكم اخواتى الافاضل
1311.11.DATA12.mdb.zip