Ich beziehe Daten aus meiner MDB und will sie Listboxen zuweisen. Jedoch stimmt hier die Reihenfolge nicht. Und genau während dem Zuweisen zur Listbox
funktioniert das Debuggen nicht, also es zeigt nichts an, weswegen ich nicht weiß, wieso er das so macht. Daher bitte ich Euch um Hilfe, um Ideen. Hier mein Code:
Public Sub a_DB_Verbindung_aufbauen()
With cn
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Softwerk ERP\Softwerk\SoftWERK_ERP.mdb;Persist Security Info=False;"
End With
End Sub
...
Public Sub b_SQL_Abfrage_Listbox_PrivatKd()
strQuery = "SELECT * FROM tKunden "
Set rs = cn.Execute(strQuery)
End Sub
...
Public Sub c_Handling_PrivDaten_fuer_Auswahl_holen()
Dim i As Integer
i = 1
Do While Not rs.EOF
frmAuswahl.lstAuswahlKundennummer_KV.AddItem rs.Fields("fKDNummer").Value
frmAuswahl.lstAuswahlNachname_KV.AddItem rs.Fields("fKdNachname").Value
frmAuswahl.lstAuswahlVorname_KV.AddItem rs.Fields("fKdVorname").Value
frmAuswahl.lstAuswahlOrt_KV.AddItem rs.Fields("fKdOrt").Value
rs.MoveNext
i = i + 1
Loop
End Sub
In der Listbox erscheint es von oben nach unten in folgender Reihenfolge: 2, 3, 1 und in der MDB wäre es von oben nach unten 1, 2, 3.Vielen Dank im Voraus für Eure Vorschläge und Ideen.
Gruß Ronald