Mehrspaltige Listbox füllen
24.05.2002 16:24:01
Philip
ich habe ein kleines Problem. Ich möchte Daten aus Access (Abfrage SQL) in einer Listbox in ein Userform unter Excel einfügen.
Ich kann 1 Spalte einfügen, haber ich schaffe es nicht mit mehrere.
Vielen Dank für Ihre Hilfe !
Philip;-)
Stand der Macro:
Private Sub TEST()
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim V As String
Dim Anz As Variant
Set DB = DBEngine.OpenDatabase("C:\DATEN\DB.MDB")
Let V = TextBoxFAZID.Text
If V = "" Then GoTo Err
SQL = "SELECT * From OBJEKT where FAZ_ID = " & V
Set Rs = DB.OpenRecordset(SQL)
If Rs.EOF Then GoTo Err 'kein DS gefunden
With Rs
.MoveLast
Anz = .RecordCount
.MoveFirst
End With
For i = 1 To Anz
ListBoxOBJLISTE.AddItem ("???") 'PROBLEM
Next i
Rs.Close
DB.Close
Exit Sub
Err:
End Sub