02-08-14, 10:27 PM
هذا الكود يقوم بملئ الكمبو بكس ببيانات الجدول
On Error Resume Next
If U.State = 1 Then U.Close
U.Open "select * from AcUser ", US, adOpenStatic, adLockPessimistic
If U.RecordCount > 0 Then
For I = 0 To U.RecordCount
Combo1.AddItem U!Acc
U.MoveNext
Next
End If
On Error Resume Next
If U.State = 1 Then U.Close
U.Open "select * from AcUser ", US, adOpenStatic, adLockPessimistic
If U.RecordCount > 0 Then
For I = 0 To U.RecordCount
Combo1.AddItem U!Acc
U.MoveNext
Next
End If