ايجاد قيمة فى مربع فارغ

لا بد وان يكون اسم الشركة فريد اي لا يتكرر او اسم الشركة والصنف لايتكرران ... ولا يوجد حل ثالث

فاذا كان اسم الشركة والصنف لا يتكرران فستخدم هذا الكود

Me.c = Nz(DLookup("[c]", "[Table1]", "[a]=forms!form1!a and =forms!form1!b"), "")

واذا كان اسم الشركة لا يتكرر استخدم

Me.c = Nz(DLookup("[c]", "[Table1]", "[a]=forms!form1!a"), "")

c = السعر

b=الصنف

a= الشركة

الفيلسوف111 كتب:

لا بد وان يكون اسم الشركة فريد اي لا يتكرر او اسم الشركة والصنف لايتكرران ... ولا يوجد حل ثالث

فاذا كان اسم الشركة والصنف لا يتكرران فستخدم هذا الكود

Me.c = Nz(DLookup("[c]", "[Table1]", "[a]=forms!form1!a and =forms!form1!b"), "")

واذا كان اسم الشركة لا يتكرر استخدم

Me.c = Nz(DLookup("[c]", "[Table1]", "[a]=forms!form1!a"), "")

c = السعر

b=الصنف

a= الشركة

اخى العزيز

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

لاارى الملف :calc:

الفيلسوف111 كتب:

لاارى الملف :calc:

اسف لعدم ارفاق الملف

test.rar

تفضل اخي الكريم

اختر اسم الشركة ثم اختر الصنف وسيظهر السعر مباشرة بعد اختيار الصنف

Private Sub B_AfterUpdate()
Me.c = DLookup("[pric]", "[Table1]", "[item]='" & Me! & "'")
End Sub

za-test-UP.rar

بالتوفيق

zahrah كتب:

تفضل اخي الكريم

اختر اسم الشركة ثم اختر الصنف وسيظهر السعر مباشرة بعد اختيار الصنف

Private Sub B_AfterUpdate()
Me.c = DLookup("[pric]", "[Table1]", "[item]='" & Me! & "'")
End Sub

za-test-UP.rar

بالتوفيق

الف الف الف شكر