21-11-21, 07:03 PM
السلام عليكم ورحمة الله وبلاكاته ، أخوكم من مصر مغرم بالبرمجة كتبت الكود دا وأتمنى يحوز على رضاكم . والهدف منه هو تحديد اسم RecordSet من قاعدة hgبيانات وتحديد أداة combobox وترتيب Field المطلوب ......... ويتم المطلوب
Public Sub ComboFeeder(Feeder_Combo As ComboBox, _
Feeder_RS As Recordset, _
Feeder_Filed As Integer)
Dim Counter as Integer
On Error Resume Next
Feeder_Combo.Clear
Feeder_RS.MoveLast: Feeder_RS.MoveFirst
For Counter = 0 To Feeder_RS.RecordCount - 1
Feeder_Combo.AddItem Trim(Feeder_RS.Fields(Feeder_Filed))
Feeder_RS.MoveNext
Next Counter
End Sub
Public Sub ComboFeeder(Feeder_Combo As ComboBox, _
Feeder_RS As Recordset, _
Feeder_Filed As Integer)
Dim Counter as Integer
On Error Resume Next
Feeder_Combo.Clear
Feeder_RS.MoveLast: Feeder_RS.MoveFirst
For Counter = 0 To Feeder_RS.RecordCount - 1
Feeder_Combo.AddItem Trim(Feeder_RS.Fields(Feeder_Filed))
Feeder_RS.MoveNext
Next Counter
End Sub