مساعدة حول الكومبوبوكس

[ليث ليث]

السلام عليكم

في الملف المرفق يوجد فوره فيه تكست بوكس 1 وتكست بوكس 2

اريد ان اعمل قائمة منسدلة تاخذ بياناتها من تكست بوكس 1 وتكست بوكس 2

Database.accdb

[kha9009lid]

ممكن ذلك باكثر من طريقة

بداية نعملها بالطريقة الاصعب 😎

لكون حقول النص غير منظمة فقد عملنا جدولين وعملنا استعلام الحاق لكل من حقلي النص في حدث عند التحديث

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl1(tx1 )VALUES (tx1)"
Me.Combo4.Requery
DoCmd.SetWarnings True

وكذلك للحقل النصي الثاني

ثم عملنا استعلام توحيدي

SELECT tx1  FROM tbl1 UNION ALL SELECT txt2 FROM tbl2;

وجعلناه هو مصدر القائمة المنسدلة

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

 

Database2.accdb

[ابو عارف]

وهذا على طريقة كود في حدث بغد تحديث لـ تكست بوكس 1 و تكست بوكس 2 

Database.accdb

 

[kha9009lid]

ما اجمل مشاركاتك اخي واستاذي ابو عارف

[ليث ليث]

شكرا على الابداع الجميل اصدقائي

اخي خالد المبدع دائما

اخي ابو عارف فكرتك جميلة ارجو منك شرح الفكرة وماذا يعني chr34

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

ممكن ذلك باكثر من طريقة

بداية نعملها بالطريقة الاصعب 😎

لكون حقول النص غير منظمة فقد عملنا جدولين وعملنا استعلام الحاق لكل من حقلي النص في حدث عند التحديث

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl1(tx1 )VALUES (tx1)"
Me.Combo4.Requery
DoCmd.SetWarnings True

وكذلك للحقل النصي الثاني

ثم عملنا استعلام توحيدي

SELECT tx1  FROM tbl1 UNION ALL SELECT txt2 FROM tbl2;

وجعلناه هو مصدر القائمة المنسدلة

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

اخي خالد هل بالامكان ان اضع النص الموجود في text0 كقيمة افتراضية للكومبوبوكس طبعا بعد انشاء هذين الاستعلامين؟؟؟

Database2.accdb 576 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

 

اخي خالد هل بالامكان ان اضع النص الموجود في text0 كقيمة افتراضية للكومبوبوكس طبعا بعد انشاء هذين الاستعلامين؟؟؟

[kha9009lid]

اكيد ممكن القيمة الافتراضية تكون اخر نص تم تسجيلة في tx1

وعند تغييرة يتم تغيير القيمة في للكمبو

Me.Combo4 = DLast("[tx1]", "tbl1")

جرب الملف المرفق

Database210.accdb

[kha9009lid]

بعد اذن استاذي الفاضل ابو عارف chr34 =  "

[ابو عارف]

2 ساعات مضت, kha9009lid said:

ما اجمل مشاركاتك اخي واستاذي ابو عارف

نظرتكم أجمل من مشاركاتي 

[ليث ليث]

2 ساعات مضت, kha9009lid said:

بعد اذن استاذي الفاضل ابو عارف chr34 =  "

؟؟؟؟؟

[kha9009lid]

الان, ليث ليث said:

؟؟؟؟؟

chr(34) رمز اسكي يعني نص هذة العلامة  " و تعني بينري 00100010

[ابو جودي]

في ١٩‏/٩‏/٢٠١٩ at 14:31, ليث ليث said:

؟؟؟؟؟

chr34

هى لغة الاسكى كود

وعندما تكتب فى عالم البرمجة تترحم عند معالجتها الى علامة التنصيص "

 

 

 

[ليث ليث]

شكرااا لانكم موجودون في تاريخنا

[kha9009lid]

بل الشكر لك اخي ليث انت وكل عضو في هذا الموقع

[ابو جودي]

في ١٩‏/٩‏/٢٠١٩ at 14:56, kha9009lid said:

بل الشكر لك اخي ليث انت وكل عضو في هذا الموقع

ليس كروعتكم اساتذتى منكم اتعلم حتى كيف افكر

لكم كل الشكر والتقدير واسال الله تعالى لكم البركة فى العمر والعمل والاهل والولد وان يغفر لكم ويتقبل اعمالكم ان شاء الله امين امين امين