السلام عليكم اخوتي الكرام
هل هناك طريقة لملأ الكومبو بوكس ببيانات جدول من قاعدة البيانات ؟؟؟
لقد وجدت هذا الكود Do While Not Adodc2.Recordset.EOF
Combo4.AddItem Adodc2.Recordset.Fields("classe").Value
Adodc2.Recordset.MoveNext
لكن المشكلة انه عند الاختيار يقوم بحذف كل البيانات من الجدول
وعليكم السلام
ضع المثال كي يتم التعديل علية
والله الموفق
لقد ارفقت المثال
بارك الله في الجميع
السّلام عليكم و رحمة الله و بركاته
نيابة عن أخي و أستاذي الكريم الغالي " SENDBAD100 " .. و بعد إذنه ..تفضّل عزيزي " العربي " محاولة لعلها تفي بالغرض إن شاء الله .. قمت بإضافة كومبوبوكس رقم 2 فقط لملاحظة الإختلاف بين ملء الكومبوبوكس بالتّكرار و بدون تكرار
فائق إحتراماتي
جزاك الله خير اخي الغالي / عبد العزيز البسكري
يعطيك العافية.
انا بعيد الان عن الجهاز فقط من الجوال.
شكرا و بارك الله فيك اخي عبد العزيز و شكرا للاستاذ sendbad100
الله يحفظكم و يستركم بستره
هناك طريقة باستخدام المؤشرات وفتح قاعدة البيانات والجدول لحفظ البيانات وهي طريقة ممتازة ولا يوجد بها اخطاء
مثال على ذلك
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
tb1.Update
'Call clean
MsgBox "ÊãÊ ÚãáíÉ ÇáÍÝÙ ÈäÌÇÍ"