السلام عليكم اخوتي الكرام
هل هناك طريقة لملأ الكومبو بوكس ببيانات جدول من قاعدة البيانات ؟؟؟
لقد وجدت هذا الكود Do While Not Adodc2.Recordset.EOF
Combo4.AddItem Adodc2.Recordset.Fields("classe").Value
Adodc2.Recordset.MoveNext
لكن المشكلة انه عند الاختيار يقوم بحذف كل البيانات من الجدول
نيابة عن أخي و أستاذي الكريم الغالي " SENDBAD100 " .. و بعد إذنه ..تفضّل عزيزي " العربي " محاولة لعلها تفي بالغرض إن شاء الله .. قمت بإضافة كومبوبوكس رقم 2 فقط لملاحظة الإختلاف بين ملء الكومبوبوكس بالتّكرار و بدون تكرار
هناك طريقة باستخدام المؤشرات وفتح قاعدة البيانات والجدول لحفظ البيانات وهي طريقة ممتازة ولا يوجد بها اخطاء
مثال على ذلك
Set db = OpenDatabase("c:\mosa\db1333.mdb")
Set tb = db.OpenRecordset("emplye")
Set tb1 = db.OpenRecordset("emplye")
tb1.MoveFirst
tb1.Index = "no_emp"
tb1.Seek "=", Text1
If Not tb1.NoMatch Then
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãÓÈÞÇð"
Text1.SetFocus
End If
tb1.AddNew
tb1.Fields(0) = Text1
tb1.Fields(1) = Text2
tb1.Fields(2) = Text3
tb1.Fields(3) = Text4
tb1.Fields(4) = Combo1.ListIndex
tb1.Fields(5) = Text5
tb1.Fields(6) = Text6
tb1.Fields(7) = Combo2.ListIndex
tb1.Fields(8) = Combo3.ListIndex