الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أرجو المساعدة في Combo Box والأكسس

مغلق
بدأه AL-LORD في 1 يونيو 2004 · 14 رد · 1,473 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخواني لدي 6 combo box من combo1(0) ....إلى.... combo1(5)

ولدي 6 label من label1(0) ...... إلى ......label1(5)

وأريد ربطهم مع الداتا 1 والمربوطة مع الأكسس

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

أرجوكم ساعدوني

ولكم مني جزيل الشكر

I have 6 combo box from combo1(0) ....to.... combo1(5)

and 6 label from label1(0) ...... to ......label1(5)

i want connect the combo with data1 (Acsess)

and when i select items from the combo

i want to see the price in label

Plz help me with code .........

thanx

#2

لاضافة بيانات حقل معين في combo box استعمل الطريقة الاتية

اضف text1 و اربطه ب data1 و اربطه بالحقل المطلوب

data1.recorcset.movelast
x=data1.recordset.recordcount
data1.recordset.movefirst

combo1.additem (text1.text)
for i=2 to x
data1.recordset.movenext
combo1.additem (text1.text)
next

يفضل ان يكون الكود السابق في timer او command اي انه لا يمكن ان يكون في form_load

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#3

أخي hishamnasr

شكرا لك

ولكن أريد عندما أختار العنصر من combo أن يظهر السعر في label

#4

السلام عليكم

يجب عليك ربط الlabel1 بالداتا و لنفرض هنا انها data2و بحقل السعر

Private Sub Combo1_Click()
x=combo1.listindex
for  i=0 to x
  data2.recordset.movenext
next

جرب هذا الكود

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#5

انا اسف ال for loop يجب ان يكون من 0 الى x-1 , gds x

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#6

انا اسف ال for loop يجب ان يكون من 0 الى x-1 ,و ليس x

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#7

أخي العزيز لم ينفع معي

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

أريد أن تظهر القيم المخزنه في الداتا في الكومبو وعند اختيار أحد العناصر

أريد أن يظهر سعرها في label

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

أرجو أن تضع لي الكود كاملا

تحياتي لك

post-1-1086084582_thumb.gif

#8

هل السعر محفوظ في احد الحقول؟

اذا كان كذلك فما عليك الا اضافة الكودين اعلاه للبرنامج

و كما قلت لك اضف data2 للبرنامج و اربطها بحقل السعر و اربط ال label بها

في عمود total price اضف لكل لابل حاصل ضرب ال labels الخاصين بالكمية و السعر

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#9 
data1.recorcset.movelast
x=data1.recordset.recordcount
data1.recordset.movefirst

combo1.additem (text1.text)
for i=2 to x
data1.recordset.movenext
combo1.additem (text1.text)
next

لاحظ ان ال3 اسطر الاولى تقوم فقط بمعرفة عدد العناصر في الحقل و وضعه في x

السطر الرابع يضيف العنصر الاول للcombo

ال for loop تقوم باضافة بقية العناصر لل combo

Private Sub Combo1_Click()
x=combo1.listindex
for  i=0 to x
 data2.recordset.movenext
next

هنا x هي موقع العنصر في الcombo box

نحرك العناصر في ال label , xخطوة عن طريق ال for loop

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#10

أخي hishamnasr

أعرف بأني عذبتك معي

ولكن لم ينفع الكود

بالنسبة للسعر نعم هو محفوظ في أحد الحقول

أرجو المساعدة

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

#11

اخواني قمت بتعديل البرنامج وحذف الفورم الغير ضرورية

وأبقيت على الفورم التي أريد الحل لها

وهي مرفقة في المرفقات

أرجو أن تجدوا لي الحل لأن تسليم المشروع غدا صباحا الساعة 8

تحياتي لكم

AL-AIN C. F.zip

#12

UP

#13

كنت أبحث عن مشكلة ربط الكومبو بتيكس

و صادف أن وجدت أخرين يبحثون عن نفس المشكلة

و لكنى بعون الله توصلت لها مع أخى

و حرصاً منا على عدم إخفاء العلم الذى كرمنا الله به

أرسل هذا المشروع و فيه الحل بإذن الله

أخيكم

samana_scout

الإسكندرية

مصر

__________________.rar

#14

اخواني طيب لو انا عايز أحمل محتويات حقل معين مثل حقل الاسماء في الcombo box بواسطة sql

انا كتبت هذا الكود لكن ما حصل أي شيء

Y = InputBox("enter name")
SQL = "select*from table1 where like name& y &" '"
Data1.RecordSource = SQL
Do While Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset![Name]
Loop
getalife.gif
#15

انا اسف مش هو ده الكود

الكود:

sql="select name from table1"
data1.recordsource=sql
do while data1.recordset.eof
combo1.additem data1.recordset![name]
loop
getalife.gif

هذا الموضوع مغلق.

مواضيع مشابهة