( موضوع مغلق ) اذا كيف نتعلم في ظل العجز عن الرد

والله ما ادري ماذا اقول .... والله اني بحثت وقرات اكثر من مقال وكتاب عن استخدام الجمل التكرارية سواء do او عبارة while...wend واكتب الكود كما هو موجود بالاسفل ولا يتم تفعيل الكود او عمله ... ما ادري وين الخطأ حتى اني وضعت هذه المشاركه في اكثر من منتدى ولا مجيب .... اذا نن في خلل ما ...ز وانا لاحظت ان اغلب النتديات تهتم بعملية كيف تزيين النماذج وترقيصها وكيف استعلم عن المعلومه هذه او تللك ... وعندما نسأل عن البرمجة الحقيقية وهو استخدام الكود في التعامل مع البيانات لا مجيب اذا اقترح اغلاق جميع المنتديات حيث اني جالس اكثر من اسبوعين بحث بجميع المنتديات اريد شرح تفصيلي يعني مو شرح ان تقوم بوضع التركيب النحوي لها وتقوم باعطاء مثال من رأسك والتعليم الصحيح الذي يقوم على استخدام امثله واقعية وتقولي ليش استخدمت هذه العباره ولماذا في هذه الموضع

طيب اتركم لكم الكود الاتي ومن يقول لي ليش لم يعمل اكون له من الشاكرين

Private Sub texacc_Exit(Cancel As Integer)

Dim cus As Dao.Database

Dim reccus As Dao.Recordset

Set cus = CurrentDb

Set reccus = cus.OpenRecordset("ÇáÚÏÇÏÇÊ", dbOpenTable)

reccus.MoveFirst

Do Until reccus.EOF

If reccus![ÇáÍÓÇÈ] = Me.texacc.Value Then

MsgBox "åÐÇ ÇáÍÓÇÈ ÓÈÞ ÊÓÌíáå"

Cancel = True

Exit Do

End If

reccus.MoveNext

Loop

reccus.Close

cus.Close

Set reccus = Nothing

Set cus = Nothing

End Sub