السلام عليكم ورحمة الله وبركاته ،،،
أخواني كيف يمكنني عمل فحص للبيانات التي أدخلها المستخدم مثلا الشهر والسنة والإسم بحيث لايتكرر إدخال السنة والشهر وإسم العميل في النموذج الحالي علما بأن النموذج جدولي ولقد قمت بتجربة الكود التالي في Form_BeforeUpdate لكن المشكلة هي أنه عندما يقوم المستخدم بإختيار شهر (محرم)من القائمة ويكمل جميع البيانات المطلوبة ثم ينتقل إلى صف جديد ويكمل البيانات أيضا ويرجع إلى الصف الذي قام بإنشائه أولاُ ويختار نفس الشهر الذي أختاره سابقا وهو شهر (محرم) "موسوس مثلا" :blink: فإن الرساله المفترض ظهورها عند وجود تكرار في إدخال البيانات تظهر مع أنه لايوجد تكرار فعليا إن شاء الله تكون فهمتوني
Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!YateemNo = Me!YateemNo And rst!KestYear = Me!KestYear And rst!KestMonth = Me!KestMonth Then MsgBox " الرجاء التأكد من عدم تكرار البيانات", vbInformation + vbOKOnly Cancel = True Exit Do End If rst.MoveNext Loop rst.Close
تحياتي وشكري للجميع