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

**المهاجر** · أغسطس 22, 2007

لدي جدولين :

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

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

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

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

1 - رقم الصنف PrID

2 – سعر الصنف PrPrice

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

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

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

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

**Dream_Works** · أغسطس 22, 2007

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

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

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

**المهاجر** · أغسطس 23, 2007

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

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

**المهاجر** · أغسطس 23, 2007

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

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

**Dream_Works** · أغسطس 23, 2007

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

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

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

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

**المهاجر** · أغسطس 23, 2007

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

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

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

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

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

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

الردود الموصى بها