09-12-12, 10:46 AM
سهله جدآ Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]
زي ما فعل اخي benomar
Text1.Text = rs![aladai]
زي ما فعل اخي benomar
الصفحات : 1 2
09-12-12, 10:46 AM
09-12-12, 10:49 AM
مع انى لااتعامل مع الـــ dao لاكين انا بشرحلك
فى حدث Form_Load
شرح الكود ببساطة : الاتصال بقاعدة البيانات عن طريق المسار الذى موجود فيه القاعدة ... فتح الجدول المراد العمل من خلاله...استخدام جملة التكرار Do لمئ المكبو
اما فى حدث الـــ Combo1_Click
شرح الكود ببساطة : بعد فتح الجدول اذهب الى الحقل وهات النص الموجود فى Combo1 من قاعدة البيانات
اختيار القيمة المقابلة للــعنصر الموجود فى الـــ Combo1 وضعها فى Text1
بالتوفيق
فى حدث 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اما فى حدث الـــ Combo1_Click
كود :
Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]اختيار القيمة المقابلة للــعنصر الموجود فى الـــ Combo1 وضعها فى Text1
بالتوفيق
09-12-12, 02:25 PM
بسم الله الرحمن الرحيم
اسمحوا لي بالمشاركة ...
اذا كنت تستعمل اداة adodc فقم بربط الكومبو بوكس بطريقة عادية جدا من شاشة الخصائص - source , feild - ثم اكتب في حدث Click للكمبو بوكس الكود التالي :
كود :
If combo1 = "......." Then
text1 = "......."
End Ifاعتقد ان هذه الطريقة أكثر مرونة وأقل تعقيدا
بالتوفيق
09-12-12, 02:31 PM
شكرا جدا على الشرح
09-12-12, 02:32 PM
اما فى حالة اتصال كومبوكس اخر بجدول ثانى فما هى الطريقه
11-12-12, 09:55 AM
شكرا جزيلا على مجهوداتكم
الصفحات : 1 2