[الميسري]

سهله جدآ Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]

زي ما فعل اخي benomar

[hago]

مع انى لااتعامل مع الـــ dao لاكين انا بشرحلك
فى حدث Form_Load

كود :

Set db = OpenDatabase(App.Path & "\Data\data1.mdb")Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks")
Do While rs.EOF = False
Combo1.AddItem rs![category]
rs.MoveNext
Loop

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

كود :

Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where  category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]

شرح الكود ببساطة : بعد فتح الجدول اذهب الى الحقل وهات النص الموجود فى Combo1 من قاعدة البيانات
اختيار القيمة المقابلة للــعنصر الموجود فى الـــ Combo1 وضعها فى Text1
بالتوفيق

[ENG.MPROG]

بسم الله الرحمن الرحيم

اسمحوا لي بالمشاركة ...

اذا كنت تستعمل اداة adodc فقم بربط الكومبو بوكس بطريقة عادية جدا من شاشة الخصائص - source , feild - ثم اكتب في حدث Click للكمبو بوكس الكود التالي :

كود :

If combo1 = "......." Then
text1 = "......."
End If

اعتقد ان هذه الطريقة أكثر مرونة وأقل تعقيدا

بالتوفيق

[hosney]

شكرا جدا على الشرح

[hosney]

اما فى حالة اتصال كومبوكس اخر بجدول ثانى فما هى الطريقه

[benomar]

خذ هذا المثال أيضاً
الرابط

[hosney]

شكرا جزيلا على مجهوداتكم