كود منع التكرار ... ورسالة خطأ

[abofayez1]

الأخوة الكرام

السلام عليكم ورحمة الله

 

استخدمت هذا الكود لمنع التكرار في النموذج الفرعي وهو يعمل بشكل ممتاز إن كان هناك سجلات لكن إن لم يكن هناك سجلات تظهر هذه الرسالة  : لا يوجد سجل حالي 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

 

 

 

[محمد احمد لطفى]

تفضل بالتوفيق
 

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

 

[abofayez1]

أستاذ محمد ظهرت لي نفس الرسالة السابقة

لكن هنالك ملاحظة :

إذا كان لا يوجد للموظف سجلات وأريد كتابة سجل إريده أن ييسمح لي بالكتابة لكن لو كانت هناك سجلات سابقا ؤأدخلت سجل مكرر أريد تظهر لي  رسالة التحذير

يعني باختصار أريد تحذير عند التكرار فقط والسماح فيما عدا ذلك بما فيها ادخال السجلات الجديدة

[محمد احمد لطفى]

ضيف فى الكود الاول 
On Error Resume Next

[abofayez1]

الله يفتح عليك أستاذ محمد ويجزيك خير الجزاء

ممتاز