لا اريد ان يتكرر اسم الموظف في النماذج

هذا كود لا أعرف بالضبط من قام بعمله فله جزيل الشكر .. أرجو أن يفيدك .

If Me.NewRecord = True Then
Dim strWhere As String, strMessage As String

strWhere = "[الاسم] = '" & Me![الاسم] & "'"
Me.RecordsetClone.MoveFirst
Me.RecordsetClone.FindFirst strWhere
If Me.RecordsetClone.NoMatch = False Then
strMessage = "يوجد سجل مطابق مدخل مسبقاً .. هل ترغب المتابعه ؟"
lResponse = MsgBox(strMessage, vbYesNo + vbQuestion, strTitle)
If lResponse = vbNo Then
Cancel = True
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo
Me.Undo
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If
End If

وأتمنى أن تختار لمشاركاتك عنواناً يدل عليها حتى لا تعرض مشاركاتك للإغلاق من قبل مشرفي المنتدى.

تحياتي ..

عدم التكرار.rar

الاستاذ فهد أطال الله في عمرك

السلام عليكم

وين ترووووح مني وراك وراك !!!

طيب إذا كان في الجدول دون النموذج حقل إسمه القائمة السوداء نوع بياناته نعم/لا

فإذا تطابق الاسم في النموذج مع الاسم في الجدول كما في الشرح السابق إضافة إلى أن حقل القائمة السودء في الجدول قيمته نعم تظهر رساله "محظور التعامل معه هل تريد المتابعة"

كيف يكون ذلك يا أستاذنا القدير مع تمنياتي لك بدوام التوفيق .

تلميذك

ثبيت عرب

الاستاذ فهد الدوسري

السلام عليكم

في استفساري السابق عن كيفية إقتران قيمة حقل آخر بعملية إظهار الرسالة

أرفق لك مثال للتعديل عليه

مع فائق تحياتي لك

مثال.rar

أخي : ثبيت عرب ..

أنظر المثال بعد التعديل ..

تحياتي ..

مثال.rar

الاستاذ فهد

والله لك علي فضل عظيم لن أنساه ما حييت في تطوير أفكاري وتعلمي للآكسس خصوصاً ( الأكواد )

ولا أملك إلا أن أقوووووول الله يوفقك أينما وجهت وجهك ويحفظك

تلميذك

ثبيت عرب

مرحبا استاذ فهد

عزيزي بالنسبة لكود عدم التكرر اذا كان الحقل رقم (مفتاح اساسي ) لا ينجح فما الحل

أي كود تقصد الأول(إجابتي على Azouz) أم الثاني ( إجابتي على ثبيت عرب ) ؟

ما نوع هذا الحقل نص أم رقم ؟ .. لأن الكود يختلف إذا تغير نوع الحقل .

تحياتي ..