abofayez1 قام بنشر نوفمبر 27, 2023 مشاركة قام بنشر نوفمبر 27, 2023 الأخوة الكرام السلام عليكم ورحمة الله استخدمت هذا الكود لمنع التكرار في النموذج الفرعي وهو يعمل بشكل ممتاز إن كان هناك سجلات لكن إن لم يكن هناك سجلات تظهر هذه الرسالة : لا يوجد سجل حالي Run time Error 3021 فما الحل ؟ الكود : Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!ymd = Me.ymd Then MsgBox "تاريخ الغياب مكرر" Cancel = True Exit Do End If rst.MoveNext Loop rst.Close db.Close End Sub رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 27, 2023 مشاركة قام بنشر نوفمبر 27, 2023 تفضل بالتوفيق Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!ymd = Me.ymd Then MsgBox "تاريخ الغياب مكرر" Cancel = True Exit Do End If rst.MoveNext Loop rst.Close db.Close If rst.EOF Then MsgBox "لا يوجد سجلات" End If 1 رابط هذا التعليق شارك More sharing options...
abofayez1 قام بنشر نوفمبر 27, 2023 الكاتب مشاركة قام بنشر نوفمبر 27, 2023 أستاذ محمد ظهرت لي نفس الرسالة السابقة لكن هنالك ملاحظة : إذا كان لا يوجد للموظف سجلات وأريد كتابة سجل إريده أن ييسمح لي بالكتابة لكن لو كانت هناك سجلات سابقا ؤأدخلت سجل مكرر أريد تظهر لي رسالة التحذير يعني باختصار أريد تحذير عند التكرار فقط والسماح فيما عدا ذلك بما فيها ادخال السجلات الجديدة رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد احمد لطفى قام بنشر نوفمبر 27, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 27, 2023 ضيف فى الكود الاول On Error Resume Next رابط هذا التعليق شارك More sharing options...
abofayez1 قام بنشر نوفمبر 27, 2023 الكاتب مشاركة قام بنشر نوفمبر 27, 2023 الله يفتح عليك أستاذ محمد ويجزيك خير الجزاء ممتاز 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان