استدعاء بيانات من جدول في نموذج عن طريق دالة

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام

 

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

مرفق مثال للعمل عليه

TEST.rar

[Shivan Rekany]

استخدم دالة دي لوك اب

مثلا لحقل الاسم تكدر تكتب هكذا

Me.costmor_name = DLookup("[costmor_name]", "TABOL_COSTMOR", "[costmor_no]=" & Me.SERH)

وغدا ان شاء الله راح اعمل ماتريد لاني خلاص وقتي الان

[حسين العربى]

الف شكر اخي الفاضل 

انت وعدتني اليوم

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

ولي طلب لوسمحت ( هغلبك معي ) ممكن لو عندي زر امر في النموذج الي في المثال  الي بالمشاركة  هذ الزر يفتح نموذج اخر به نموذج فرعي مصدره TABOL_ COSTMOR  

هل ممكن استخدم هذا الكود في حدث عند النقر علي رقم العميل  يظهر لي البيانات في النموذج  forms1 ولك مني الف شكر وانا اسف 

[حسين العربى]

اليك مثال لما اريد للتطبيق عليه

TEST.rar

[Shivan Rekany]

2 ساعات مضت, حسين العربى said:

الف شكر اخي الفاضل 

انت وعدتني اليوم

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

ولي طلب لوسمحت ( هغلبك معي ) ممكن لو عندي زر امر في النموذج الي في المثال  الي بالمشاركة  هذ الزر يفتح نموذج اخر به نموذج فرعي مصدره TABOL_ COSTMOR  

هل ممكن استخدم هذا الكود في حدث عند النقر علي رقم العميل  يظهر لي البيانات في النموذج  forms1 ولك مني الف شكر وانا اسف 

انت طبقت الكود بشكل ممتاز وكان يعمل جيدا

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

اتفضل اليك قاعدة بياناتك بعد التعديل 

لكن للاسف ما اكدر ان اقصر  الكود الى سطر واحد لان كل مربع نصي يحتاج لسطر

تحياتي

 

TEST (1).rar

[حسين العربى]

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

[Shivan Rekany]

6 دقائق مضت, حسين العربى said:

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

 لا داعي للشكر