[مصمم هاوي]

خطرت ببالي فكرة حاولت تطبيقها بكود لكنه أراه غير مرضي على الرغم من كونه بشتغل تمام
والخلاصة
فهل يوجد كود أفضل لتعبئة أكثر من كومبوكس ببيانات جدول وذلك بكود واحد وقد استخدمت هذا الكود

كود :

Combday1.Clear
Combday1.Clear
If DB.State = adStateClosed Then Call ConnectionDatabase
   
Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * From TBL_Day order by DNo", DB, adOpenStatic, adLockOptimistic
   
If rs.RecordCount > 0 Then
   Do Until rs.EOF
          Combday1.AddItem rs![Day]
         Combday2.AddItem rs![Day]
       
          rs.MoveNext
   Loop
   '
   rs.MoveFirst
'
End If

[سعود]

اكيد ممكن لكن نحتاج تضييق دائرة العمل واقصد حصر الموضوع على فكرة محددة  حتى لا تتشعب واكتشف اني لم اقدم فائدة.
تحياتي اخي الكريم

[مصمم هاوي]

شكراً على مرورك العطر أخي سعود ولكن التعبئة من جدول واحد فقط