Access Abfrage mit Bedingung
26.10.2021 16:47:11
Ronald
Ich möchte gerne alle Datensätze in eine Listbox laden. Nur wenn ein bestimmter Wert in einem Feld vorkommt, dann den ganzen Datensatz überspringen.
Ich habe das Gefühl, da fehlt nicht viel. Ich hab nur leider keine Idee. Vielleicht kann mir hier jemand helfen.
Mein Code sieht wie folgt aus. Die Darstellung des Codes für den DB-zugriff spare ich mir jetzt und zeige nur die Zuweisung zu den Listboxen:
Public Sub b_SQL_Abfrage_Listbox_PrivatKd()
strQuery = "SELECT * FROM tKunden ORDER BY fKdNummer ASC"
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
Danke im Voraus.
Gruß Ronald
PS: Wenn ich Quellcode in der Anfrage hervorheben möchte, wie mache ich das?