ربط كومبوبوكس مع تيكست في فورم

[moham_q]

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

emp_cod.rar

تم تعديل فبراير 1, 2016 بواسطه moham_q

[عبدالرحمن هاشم]

وعليكم السلام ورحمة الله

أخي الفاضل سؤال.. لماذا لا تضع حقل كود الوظيفة في نفس جدول الموظفين؟!

ولو أنك تريد جدولان فيجب أن يكون هناك علاقة تعريفية بينهما

[moham_q]

اخي عبدالرحمن المحترم .. اريدهما جدولان ويتم ربط الاسم من الكومبو مع الكود واختياره من التكست

[moham_q]

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

[ابوخليل]

السلام عليكم

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

هل يوجد رابط (قيمة مشابهة) بين الجدولين ؟  

اذا وجد الرابط يمكنك جلب قيمة معينة من الجدول الآخر بناء على هذا الرابط

[moham_q]

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

emp_cod.rar

 

تم تعديل فبراير 3, 2016 بواسطه moham_q

[عبدالرحمن هاشم]

بعد إذن أستاذنا الجليل أبو خليل

تفضل أخي.. حيث تم إدراج عمود كود الوظيفة في استعلام مربع التحرير والسرد ليتم التعرف عليه من خلال الكود الموجود

 

emp_cod.rar

[moham_q]

استاذ عبدالرحمن هاشم المحترم ... جوابك كان شافيا ووافيا ورائعا ... سلمت يداك وجزاك الله خيرا  لقد جربتها واستفدت منها  شكري للاستاذ ابو خليل المحترم ... تحياتي لكم

[moham_q]

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

[عبدالرحمن هاشم]

[Text6] = Me.Combo0.Column(1, Me.Combo0.ListIndex)

ليس هناك تعب أخي اسئل ما شئت

نعم أخي يمكنك إضافة ما تشاء

حيث أن Column هو العمود في مربع التحرير والسرد combo0 و 1) هو رقم العمود.. علما بأن العمود يحسب من بداية الصفر يعني 0 - 1 - 2 - 3 وهكذا

وكل ما عليك هو تغيير ذلك الرقم حسب الذي تريد عرضه

 

 

[moham_q]

استاذ عبدالرحمن هاشم المحترم ... اذا اردت ان اضيف اكثر من تيكست بوكس للاختيار هل تكون بهذه الصيغة المدرجة ادناه ؟  على افتراض ان العمود 0 في مربع السرد والتحرير هو عائد للاسم .... شاكرا تعاونك وتجاوبك معي استاذي العزيز 

[Text6] = Me.Combo0.Column(1, Me.Combo0.ListIndex)

[Text7] = Me.Combo0.Column(2, Me.Combo0.ListIndex)

[عبدالرحمن هاشم]

مسمى مربع التحرير والسرد - طبقا لمرفقك - هو combo0

أما كلمة Column (1 تعني رقم العمود الذي تريد جلب قيمته

الحقل [text6] هو الحقل الذي ستجلب فيه القيمة من العمود المختار سابقا

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

وافني إن لم أكن أبين المطلوب

 

 

 

 

 

 

 

 

 

[moham_q]

الاخ عبدالرحمن هاشم المحترم .. لقد جربت اضافة تيكست بوكس اخر ولم تتنفذ لدي ولم يتم الربط مع الكومبوبوكس فقط تم الربط مع التكست الاول فقط ولكن عندما قمت باختيار column count من الخصائص واخترت العدد 3 تمت الاضافة ولكن تظهر الاعمدة في الكومبو عند الاختيار .. فهل من طريقة تنفذ الاضافة ... جزاك الله خيرا ووفقك ربي

[عبدالرحمن هاشم]

يمكن معالجة ذلك لإظهار عمود الاسم فقط بدون الأعمدة الأخرى في تنسيق - عرض الأعمدة وتضع هذه القيمة  3سم;0سم;0سم

 

 

 

[عبدالرحمن هاشم]

وإليك أخي الفاضل هذه الطريقة أيضا باستخدام الدالة DLookup

Me.Text6 = Nz(DLookup("[كود الموظف]", "table1", "[الاسم]= '" & Me.Combo0 & "'"))

 

 

[moham_q]

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

[عبدالرحمن هاشم]

الحمد لله الذي تتم بنعمته الصالحات

حاول أخي الابتعاد عن تسمية الحقول والكائنات بالعربية فيمكنك تسميتها بالإنجليزية أو الفرانكو وابتعد أيضا عن المسافات بين الكلمات حتى لا تتعرض لأخطاء جراء ذلك في كتابة الأكواد