بحث عن قيمة فى نموذج فرعى وتنفيذ الامر

[tiger wanted]

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

test.accdb

[ابو البشر]

ضع هذا الكود تحت حدث الزر

If DLookup("nam", "nam", "[nam] = '" & Me.tt & "'") = Me.tt Then
MsgBox "هذا الاسم موجود مسبقا"
'DoCmd.Close
End If

 

[tiger wanted]

اجابة رائعة شكر لكم وبارك الله فيكم