مساعدة في تصفية بيانات داخل نموذج فرعي حسب اسم المورد

[أحمد وجيه]

الأخوة الكرام عندي قاعدة بيانات تخص إنشاء أوامر الشراء :

عندي أكثر من شركة توريد تعمل في نفس المجال ولكل لكل شركة سعر مختلف للأصناف ، فأنشأت جدول للموردين وربطته بجدول الأصناف بحيث عند إضافة المورد أضيف أيضاً أصنافه وأسعاره

المطلوب :

في نموذج fr_po  عند اختيار المورد وليكن على سبيل المثال شركة 1  أن يظهر فقط في حقل الصنف بالنموذج الفرعي أصناف شركة 1 فقط مع الوحدة والسعر

وهكذا كل ما غيرت حقل المورد يظهر لي أصنافه فقط

 

أوامر الشراء.accdb

[kanory]

منذ ساعه, أحمد وجيه said:

الأخوة الكرام عندي قاعدة بيانات تخص إنشاء أوامر الشراء :

عندي أكثر من شركة توريد تعمل في نفس المجال ولكل لكل شركة سعر مختلف للأصناف ، فأنشأت جدول للموردين وربطته بجدول الأصناف بحيث عند إضافة المورد أضيف أيضاً أصنافه وأسعاره

المطلوب :

في نموذج fr_po  عند اختيار المورد وليكن على سبيل المثال شركة 1  أن يظهر فقط في حقل الصنف بالنموذج الفرعي أصناف شركة 1 فقط مع الوحدة والسعر

وهكذا كل ما غيرت حقل المورد يظهر لي أصنافه فقط

تفضل <<<<<<>>>>>>>

 

أوامر الشراء.accdb

[أحمد وجيه]

مشكور الله يبارك فيك أستاذنا @kanory

[أحمد وجيه]

أستاذ @kanory المحترم

ظهر عندي مشكلة ، وهي انه  في نموذج fr_po عند اختيار المورد ومن ثم اضافة الأصناف ومع اختيار الصنف يظهر بحقل السعر سعر مورد آخر لديه نفس الصنف غير المورد المختار رغم ظهور السعر الصحيح في قائمة الأصناف

‏‏أمر شراء.accdb

[kanory]

51 دقائق مضت, أحمد وجيه said:

أستاذ @kanory المحترم

ظهر عندي مشكلة ، وهي انه  في نموذج fr_po عند اختيار المورد ومن ثم اضافة الأصناف ومع اختيار الصنف يظهر بحقل السعر سعر مورد آخر لديه نفس الصنف غير المورد المختار رغم ظهور السعر الصحيح في قائمة الأصناف

طيب استبدل هذا الكود الموجود في مربع التحرير السرد item في حدث بعد التحديث ....

On Error Resume Next
Me.unit = DLookup("[unit]", "tb_items", "item='" & Me.item & "'")
Me.price = DLookup("[price]", "tb_items", "item='" & Me.item & "'")

بهذا الكود ........

Me.unit = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(1)
Me.price = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(2)

 

[kanory]

وهذه بنفس طريقة السابقة بعد التعديل .... اختر احدى الطريقتين ......

Me.price = DLookup("[price]", "[tb_items]", "[vendor] Like '" & [Forms]![fr_po]![vendor] & "' And [item] Like '" & [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(0) & "' ")
Me.unit = DLookup("[unit]", "[tb_items]", "[vendor] Like '" & [Forms]![fr_po]![vendor] & "' And [item] Like '" & [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(0) & "' ")

 

[أحمد وجيه]

3 ساعات مضت, kanory said:

طيب استبدل هذا الكود الموجود في مربع التحرير السرد item في حدث بعد التحديث ....

On Error Resume Next
Me.unit = DLookup("[unit]", "tb_items", "item='" & Me.item & "'")
Me.price = DLookup("[price]", "tb_items", "item='" & Me.item & "'")

بهذا الكود ........

Me.unit = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(1)
Me.price = [Forms]![fr_po]![نموذج فرعي tb_purchase_order].[Form]![item].Column(2)

 

شاكر لك جداً أستاذنا الكريم