كيف أملآ listbox من حقل في قاعدة بيانات ؟

حاول ان تستفيد من هذا

Private Sub FillList()
List1.Clear
SQL = "Select CustID from Tbl_Cus "
Set t = d.OpenRecordset(SQL)
With t
  Do Until .EOF
     List1.AddItem !CustID
     .MoveNext
  Loop
  .Close
End With

End Sub

و يستخدم لعرض ارقام العملاء CustID في List1 من جدول العملاء Tbl_Cust

و لاستخدامه فقط اكتب FillList في الحدث المناسب ....

أو جرب :

ListBox

تفضل أخي محمد زغلول هذا الكود وهو بسيط ولا يحتاج إلى شرح

وشكرًا لأخي إبراهيم الطيب ...

ملاحظة بسيطة : اسم الحقل هو Name تستطيع تغييره بإسم حقل آخر

Private Sub Form_Load()
    On Error GoTo r
    Dim a  As String
        Data1.Recordset.MoveFirst
    Do While Not Data1.Recordset.EOF = True
        a = Data1.Recordset.Fields("Name").Value
                List1.AddItem a
                Data1.Recordset.MoveNext
    Loop
    Data1.Recordset.MoveLast
 r:
End Sub

اقتباس

Private Sub Form_Load()

  On Error GoTo r

  Dim a  As String

      Data1.Recordset.MoveFirst

  Do While Not Data1.Recordset.EOF = True

      a = Data1.Recordset.Fields("Name").Value

              List1.AddItem a

              Data1.Recordset.MoveNext

  Loop

  Data1.Recordset.MoveLast

r:

End Sub

تعديل بسيط على الكود

 
Private Sub Form_Load()
Dim Count1 as long
   On Error GoTo r
   Dim a  As String
       Data1.Recordset.MoveFirst
   Do While Not Data1.Recordset.EOF = True
       a = Data1.Recordset.Fields(Count1).Value
               List1.AddItem a
               count1=count1+1
   Loop
   Data1.Recordset.MoveLast
exit sub
r:
msgbox Error
exit sub
End Sub