كيف اكمل هذا الكود ؟

لديك عدة خيارات ...

** بناء استعلام جديد يربط بين الجدولين وتضمين كل المعلومات التي تريدها . ومن ثم بناء النموذج من الاستعلام(وهذا سهل جدا) .

** تعديل الكود بحيث تعرف متغير جديد قبل جملة DLOOKUP يحتوي على القيمه Me.ItemNo . ومن ثم تختبر وجود القيمه من عدمها قبل تنفيذ جملة DLOOKUP . ثم تنفذجملة DLOOKUP مع المتغير ..

** الخيار الثالث : عكس الخيار الثاني أي تخزن ناتج الداله DLOOKUP في متغير أولاً ثم تختبر وجود هذا المتغير .

طبعا بإستخدام الداله IsNull والداله IIf .

انا أفضل الخيار الأول فهو أكثر كفاءه في الربط بين الجداول وأسرع في ايجاد ناتج البحث .

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

Roof2000

هذا كود قريب من إجابة الأخ ابو لمى سلمه الله في الفقرة الثانية :

If IsNull(DLookup("[ItemNo]", "Items", "[ItemNo]=" & Me![ItemNo])) Then
MsgBox "الرقم الذي أدخلته غير موجود ."
Cancel = -1
Else
Me.ItemSale = DLookup("[ItemSale]", "Items", "[ItemNo]=" & Me.ItemNo)
End If

وللجميع التحية