[Taha Okla]

وعليكم السلام ورحمة الله وبركاته


هذا الكود بعد التطوير :

كود :

Public Sub ComboFeeder(Feeder_Combo As ComboBox, _
                      Feeder_RS As Recordset, _
                      Feeder_Filed As Integer)

   If Feeder_RS.RecordCount > 0 Then Feeder_RS.MoveFirst
   
   Do Until Feeder_RS.EOF
       Feeder_Combo.AddItem Trim(Feeder_RS.Fields(Feeder_Filed))
       Feeder_RS.MoveNext
   Loop
     
End Sub