سنستخدم هذه الدالة dlookup لاستدعاء كود الصنف الموجود في جدول بطاقة الصنف إلى فاتورة المبيعات.
سنوضح هذا بالتفصيل.....
١- قم بإنشاء جدولين :
أ- ItemCard (بطاقة الصنف).
ب-TradeList (فاتورة المبيعات).
٢- الحقول:
أ- ItemCard:
- Code (رقم الصنف).
- Item ( إسماعيل الصنف).
- Unit (الوحدة).
- UnitPrice (سعر المبيع).
ب- TradeList:
- Code (رقم الصنف).
- Item (إسماعيل الصنف).
- Qyantity (الكمية).
- Unit (الوحدة).
- UnitPrice (سعر المبيع).
- Total (المجموع).
بعد أن قمنا بإنشاء الحقول لكلا الجدولين ننتقل إلى المرحلة التالية وهي تحويل الجدولين إلى نموذجين
النموذج الأول بعنوان (ItemCardF).
النموذج الثاني بعنوان (TradeListF).
بعد إنشاء النموذجين نفتح النموذج (TradeListF) في حالة عرض التصميم ونحدد مربع النص (Code) ثم نقوم بالعملية التالية:
- نضغط على يمين الفأرة
- تظهر لائحة نختار منها الخيار الأخير (خصائص)
- نختار AfterUpdate (بعد التحديث)
- يظهر مربع سياسة الإجراءات التي سنعتمدها فنختار الإجراء الأخير (Build Event Code)
ثم نكتب الكود التالي الذي سنستخدم فيه الدالة DLookup وهو على الشكل التالي:
Item= DLookup("Item","ItemCard","Code = ' " & Code & " ' " )
Unit = DLookup("Unit","ItemCard","Code = ' " & Code & " ' ")
UnitPrice = DLookup("UnitPrice","ItemCard", "Code = ' " & Code & " ' ")