(تمت الاجابة) جلب قيمة بناءا على قيمة أخرى

[المهاجر]

لدي جدولين :

الأول : جدول البضاعة واسمه ( pr ) ويضم الحقول التالية :

1- رقم الصنف واسمه PrID

2 سعر السنف واسمه ( PrPrice )

والثاني : InvoiceDetails ويضم الحقول :

1 - رقم الصنف PrID

2 – سعر الصنف PrPrice

وجعل الإدخال في الجدول الثاني من خلال ثموذج .. والعلاقة بين الجدولين واحد إلى متعدد ..

واريد عندما اختار الصنف من خلال النموذج يتم حدث بعده وهو أخذ السعر من الجدول الأول Pr

والمطلوب ما هو الكود الذي تتم كتابه في الحدث لعمل ذلك ؟؟

مع جزيل الشكر .

[Dream_Works]

يمكنك الاشاره الى أي عنصر في أي فورم بالطريقة التالية:

Forms("FormName").Controls("ControlName")

بهذه الطريقة يمكنك استرجاع أو وضع أي قيمة بين الشاشات المختلفة

[المهاجر]

شكرا أخي على سرعة إجابتك ..

ولكن لم أصل إلى الحل المطلوب

[المهاجر]

مرفق مثال للتوضيح ..

والمطلوب كتابة الحدث اللزم لعمل ذلك ..

Ex1.rar

[Dream_Works]

هذا الكود أخوي

ضعه قي النموذج Invoice Details

Private Sub مربع_تحرير_وسرد6_AfterUpdate()
Me.PrPrice = DLookup("PrPrice", "TabPr", "PrID = '" & Me.PrID & "'")
End Sub

أرجو أن يكون هذا طلبك ...

[المهاجر]

مميز بحق أخي ..

أشكرك جزيل الشكر على إفادتي ..

حقيقة قبل أن اضع سؤال ابحث عن إجابته واحاول مراراً ..

وتوصلت إلى ما ذكرته أخي إلا في هذه الجزئية ..

"PrID = '" & Me.PrID & "'"

تم تعديل أغسطس 25, 2007 بواسطه المهاجر