امثلة بسيطة ارجوا ان تنفعنا جميعا
صيغة الدالة DLookup
DLookup(expr, domain [, criteria] )
expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط
دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name
كود:
MsgBox DLookup("[items_Name]", "items", "code_items=15")
ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode
كود:
MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode)
ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان
txtItemsCode
موجود في نموذج آخر
باسمfrm1
فإن الكود سيأخذ الشكل التالي
:
كود:
MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode)
ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل
نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items
كود:
MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'")
طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا
كود:
MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#")
وشكر الله لكم جميعا