جلب قيمة من سجل بالجدول

[Ahmed_J]

السلام عليكم

لدي ملف اكسس فيه جدول المخصصات

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

علما عملت جدولين (tp1) و(tp2)  فيها المخصصات ولااعرف ايهم الاصح بالتصميم

تحياتي

test.accdb

تم تعديل يناير 8, 2023 بواسطه Ahmed_J

[ابوخليل]

الاصح بين الجدولين هو tp2 لانه قابل للزيادة

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

Me.a5 = DLookup("[النسبة]", "tp2", "[المنصب]='" & Me.a4 & "'")

اذا تريده عن طريق وحدة نمطية عامة سوف ازودك بالجملة البرمجية

[Ahmed_J]

السلام عليكم استاذنا العزيز @ابوخليل

نعم اريدة في الوحدة النمطية بارك الله فيك

لان عندي اكثر من  حالة  في جداول  متعددة نفس الموضوع

تحياتي لك استاذ

[ابوخليل]

لانك في مربعات التحرير اعتمدت على القيم

فهكذا ستكون الوحدة النمطية :

Public Function SubSalary3()
Dim i As String
i = DLookup("[النسبة]", "tp2", "[المنصب]='" & Forms!form1!a4 & "'")
SubSalary3 = i
End Function

ونناديها هكذا :

Me.a5 = SubSalary3()

لو بنيت مربع تحرير  المنصب في الجدول الرئيس على جدول tp2 وجعلته عمودين .. ويكون العمود الافتراضي رقمي ومخفي والعمود الظاهر هو قيمة النسبة لامكن بناء وحدة نمطية مختلفة

[Ahmed_J]

بارك الله فيك استاذ ابو خليل

الله يعطيك العافية

فقط لدي ملاحظة  حول الكود

i = DLookup("[النسبة]", "tp2", "[المنصب]='" & Forms!form1!a4 & "'")

 هذا الجدول  (tp2) ثابت لكل النماذج

انا لدي ثلاثة نماذج استدعي منها نفس الكود من الجدول 

هل اكرر الوحدة النمطية ثلاث مرات  لان فيها كود خاص بنموذج واحد ( Forms!form1!a4 & "'") ام يكون هنالك كود يعمل علىى كل النماذج

وشكرا

[ابوخليل]

تفضل

Public Function SubSalary3(fld As String)
Dim i As String
i = DLookup("[النسبة]", "tp2", "[المنصب]='" & fld & "'")
SubSalary3 = i
End Function

نناديه هكذا

Me.a5 = SubSalary3(a4)

 

[Ahmed_J]

استاذي العزيز @ابوخليل

كلوا تمام بارك الله فيك

فقط لدي سؤال اخير لو سمحت / لزيادة المعرفة من خبراتكم

هل استدعاء القيم من الجدول مباشرة افضل ام من الوحده النمطية

تحياتي لك

تم تعديل يناير 8, 2023 بواسطه Ahmed_J

[ابوخليل]

حبيبنا كلها من الجدول ولا فرق

تقصد جلب القيمة داخل النموذج مباشرة او عن طريق الوحدة النمطية ، فهذا انت اجبت عليه :

1 ساعه مضت, Ahmed_J said:

انا لدي ثلاثة نماذج استدعي منها نفس الكود من الجدول 

هل اكرر الوحدة النمطية ثلاث مرات  لان فيها كود خاص بنموذج واحد ( Forms!form1!a4 & "'") ام يكون هنالك كود يعمل علىى كل النماذج

وشكرا

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

مئات  الدالات التي وفرها اكسس عند كتابة الاكواد هي عبارة عن وحدات نمطية .