Hallo,
ich möchte eine Suchfunktion verwirklichen. Dazu soll man die Suchparameter in 2 Textfelder eingeben können und dann auf einen „Suche“ Button klicken. Das Ergebnis soll in einem Listenfeld dargestellt werden. Wie kann den Listenfeldinhalt aktualisieren ?
Hier ist mal der Code für die Ereignisprozedur meines „Suche“-Buttons,
vielleicht hilft der:
Private Sub Befehl8_Click()
Dim KBez
Dim KNum
Dim SQLLine As String
KBez = Text2.Value
KNum = Text4.Value
SQLLine = "SELECT P.Name,P.Vorname FROM Personen P, Zuordnungen Z WHERE P.PNr = Z.PNr AND Z.KNr = (SELECT KNr FROM Kurse WHERE Kurzbez = " & KBez & " AND KursNummer = " & KNum & „)
“
Liste6.RowSource = SQLLine
End Sub