عندي قيمة في listbox ارغب في وضعها في مربع نص
رجاء المساعدة في الكود
لم يصلح الكود التالي
me![texet]=me![listbox]
رجاء التصحيح
كود لعرض قيم من ListBox في مربع نص
مغلق
إذا كانت القائمة تحتوي على عمود واحد فأكتب في حدث ( عند النقر _On Click ) للقائمة ListBox الكود التالي :
Me.Txt1 = Me.List1
وإذا كانت القائمة تحتوي على عمودين وأردت قيمة العمود الثاني فأكتب الكود التالي :
Me.Txt1 = Me.List1.Column(1)
وهكذا
بالإضافة إلى أن تجعل عناوين مشاركاتك تدل على الموضوع
مصلح الحريصي كتب:إذا كانت القائمة تحتوي على عمود واحد فأكتب في حدث ( عند النقر _On Click ) للقائمة ListBox الكود التالي :Me.Txt1 = Me.List1وإذا كانت القائمة تحتوي على عمودين وأردت قيمة العمود الثاني فأكتب الكود التالي :
Me.Txt1 = Me.List1.Column(1)وهكذا
بالإضافة إلى أن تجعل عناوين مشاركاتك تدل على الموضوع
اخوي ابو سارة
بارك الله فيك وزادك من علمه
وشاكر على سرعة الرد
ولكن لقد جربت الكود الذي وضعت ولم يفلح
ويتطلب مني الضخط على القيمة للتحديدها اولا حتى يستطيع وضعها في مربع النص
فارجو منك او ممن لديه الخبرة مساعدتي
وهذا ملف مرفق بالضغط على مربع الامر المفترض وضع قيمة text1 في text2
تم تعديل هذه المشاركة بواسطة esamesam1000 في 28 مايو 2007 في 02:57
اخي الكريم...
مربع القائمة ListBox صنع ليعرض بيانات في اعمدة وصفوفو وهذا يعني انها اكثر من بيان واحد ولاجل استخدام اي منها لا بد من وضع التركيز في مربع القائمة اولا حتى تخزن القيم ومن ثم تستطيع استخدامها في اي مكان في الكود..
ولهذا لا بد من اختيار عنصر من القائمة، او تحديد معيار او شرط لجعل احد العناصر دون غيره يتم وضعه في مربع النص Text
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
أخي الكريم
لم أفهم ماذا تريد للآن
تكتب قيمة في مربع نص ثم بعد كتابة تلك القيمة تنتقل للقائمة ثم تضغط زر أمر لنقل القيمة الموجودة في القائمة إلى مربع نص أخر.
ما السر من ذلك
ليتك توضح الوظيفة الأساسية للكود فقد يمكن نجد حل أفضل
اخواني الملف المرفق جزء من برنامج تنظيم حركة المخزون والبيع في محل
بمربع listbox نحصل على الفارق بين البيع والشراء او المردوات لنحصل على الرصيد
وتتم هذه العملية معي بفاعلية كبيرة
ولكن اريد ان اضع كود يقارن بين الكمية التي نرغب في بيعها وبين الرصيد الذي نحصل عليه من مربع القائمة
فالرصيد يظهر في listbox استخدمت الكود
if [me]![listbox].colmun(0)< [text] then
الى اخر الكود ولكن الكود غير صحيح لا يعترض عليه ولا ينفذ الشرط
فارجو من اخواني المساعدة في تحديد اول خانة في مربع القائمة ونقله الى مربع غير منضم حتى تتم عملية if
وجزاكم الله عني خير الجزاء
أخي الكريم والله ليس صعوبة في الحل ولكن أعذرني أنا واجهة مشكلة في فهم السؤال .
عموماً .
اقتباسفارجو من اخواني المساعدة في تحديد اول خانة في مربع القائمة ونقله الى مربع غير منضم حتى تتم عملية if
إذن هذا الكود ضعه على مربع النص المسمى no في حدث بعد التحديث
Me.Refresh Me.text2 = Me.text1.Column(0, 0)
ولا تتردد في السؤال ولكن على الله أن أصل لما تريد
هذا الموضوع مغلق.