Daten aus Access nach Excel
USD
ich versuche grade (mal wieder :-) ) Daten nach Excel, um genau zu sein , direkt in eine Userform zu importieren.
Das gelingt ansich sehr gut, nur leider kann ich nur 10 Datensätze ansprechen.
Habe es mit einer combobox wie mittels Listbox probiert.
Gibt es da irgendwelche Restriktionen?
Wäre nett, wenn mir hierzu jemand einen Tip geben könnte
Hier der bisherige code
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\KUNDEN.mdb"
'SQL String definieren
sql = "SELECT NAME, NAME, VORNAME, NACHNAME, STRASSE, NR, LAND, REGION FROM tblKDerfassung ORDER BY NAME"
'Abfrage öffnen
DBS.Open sql, ADOC
i = 0
While Not DBS.EOF
frmERFASSUNG.lstTEST1.AddItem
frmERFASSUNG.lstTEST1.List(i, 0) = DBS!NAME
frmERFASSUNG.lstTEST1.List(i, 1) = DBS!VORNAME
frmERFASSUNG.lstTEST1.List(i, 2) = DBS!NACHNAME
frmERFASSUNG.lstTEST1.List(i, 3) = DBS!STRASSE
frmERFASSUNG.lstTEST1.List(i, 4) = DBS!NR
frmERFASSUNG.lstTEST1.List(i, 5) = DBS!LAND
frmERFASSUNG.lstTEST1.List(i, 6) = DBS!REGION
.
.
.
.
.
.
frmERFASSUNG.lstTEST1.List(i, 33) = DBS!NOTICE
DBS.MoveNext
i = i + 1
Wend
DBS.Close
ADOC.Close
End Sub
Private Sub lstTEST_Change()
x = lstTEST.ListIndex
'On Error Resume Next
frmERFASSUNG.lstNAME.Value = lstTEST.List(x, 0)
frmERFASSUNG.lstVORNAME.Value = lstTEST.List(x, 1)
frmERFASSUNG.lstNACHNAME.Value = lstTEST.List(x, 2)
frmERFASSUNG.lstSTRASSE.Value = lstTEST.List(x, 3)
frmERFASSUNG.lstNR.value = lstTESTList(x, 3)
frmERFASSUNG.lstNOTICE.value = lstTESTList(x, 33)
Danke fürs Feedback
gruss
walther