تحياتي للجميع .... وكل عام وانتم بخير
انا لدي قاعدة بيانات من ضمن جداولها بيانات تخص العدادات التابعة للمشترك فانشأة نموذج ادخال بيانات واستخدمت فيه الاداة dao ومن ضمن الحقول حقل رقم الحساب والهو المفتاح الاساسي للجدول واريد في حدث الخروج من مربع النص بالنموذج ان يتم التكرار والمرور على جميع السجلات لمعرفة هل السجل موجود من قبل والا لا واستخدمات الكود التالي ولكنه لا يعمل ... ارجوا تصحيح ماهو الخطأ
Dim cus As Dao.Database
Dim reccus As Dao.Recordset
Set cus = CurrentDb
Set reccus = cus.OpenRecordset("ÇáÚÏÇÏÇÊ", dbOpenTable)
While Not reccus.EOF
If reccus![ÇáÍÓÇÈ] = Me.texacc.Value Then
MsgBox "åÐÇ ÇáÍÓÇÈ ÓÈÞ ÊÓÌíáå"
End If
reccus.MoveNext
Wend
reccus.Close
cus.Close
Set reccus = Nothing
Set cus = Nothing
End Sub