23-08-19, 04:39 PM
خطرت ببالي فكرة حاولت تطبيقها بكود لكنه أراه غير مرضي على الرغم من كونه بشتغل تمام
والخلاصة
فهل يوجد كود أفضل لتعبئة أكثر من كومبوكس ببيانات جدول وذلك بكود واحد وقد استخدمت هذا الكود
والخلاصة
فهل يوجد كود أفضل لتعبئة أكثر من كومبوكس ببيانات جدول وذلك بكود واحد وقد استخدمت هذا الكود
كود :
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