[شبح_الشبكة]

السلام عليكم ورحمة الله وبلاكاته ، أخوكم من مصر مغرم بالبرمجة كتبت الكود دا وأتمنى يحوز على رضاكم . والهدف منه هو تحديد اسم 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

[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