تشييك في جدول عن سجل

استخدم دالة المجال DLookup :

Dim القيمة_المعادة
القيمة_المعادة = DLookup("[أي حقل بالجدول]", "اسم الجدول", _
"[اسم الحقل المطلوب البحث فيه]='" & Me![اسم مربع النص على النموذج] & "'")
If Not IsNull(القيمة_المعادة) Then MsgBox "النص موجود"

مع أهمية أن تذكر اسم الجدول واسم الحقل ونوع بيانات الحقل المبحوث فيه حتى يصلك الكود بدون أن تحتاج لتغيير شيء فيه وأيضا لاتنسى متى يتم البحث والتي لم تذكرها في سؤالك .

ولك تحياتي

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

ابو حمود الله يجعلنا وإياك وعوائلنا من الخالدين المخلدين في جنات النعيم في اعلى عليين مع سبعين من الحور العين.

حاولت أطبق اللي أرسلت لي حرفيا ولكن لم أنجح‍‍‍‍‍!!!

لكن هذه هي التفاصيل :

اسم الجدول المراد البحث فيه هو: [bLACKLIST]

اسم الحقل في الجدول هو: [sUSPECIANTIDNO]

اسم النموذج : [APPLICANT]

اسم النص في النموذج هو : [AppID]

وابغا الحدث يكون عند التغيير في النص [AppID]

ومعليش ما فهمت وش تقصد بــ: [أي حقل بالجدول] و [اسم الحقل المطلوب البحث فيه]

والله يرزقك ويرزقنا الصحه والعافيه.

أخوك FAI

الأخ الكريم

وفقك الله لكل خير على هذه الدعوات الطيبات .

Dim القيمة_المعادة
القيمة_المعادة = DLookup("[SUSPECIANTIDNO]", "BLACKLIST", _
"[SUSPECIANTIDNO]='" & Me![AppID] & "'")
If Not IsNull(القيمة_المعادة) Then MsgBox "النص موجود"

أي حقل : يعني ضع اسم اي حقل موجود في الجدول الذي ترغب البحث فيه ولايهم أي حقل فيهم .

وإن اخترت ترقيم تلقائي فهو أفضل لأنني لم أجرب في حالة كون هذا الحقل فارغ مع وجود النص المبحوث فيه في حقل AppID .

واسم الحقل المطلوب البحث فيه : الذي توجد فيه البيانات والتي ترغب بالبحث فيها عن بيانات مطابقة للموجودة في مربع النص AppID .

ولك تحياتي