friedrichshain
Grünschnabel
Hallo Zusammen,
ich brauche mal dringend Eure Hilfe.
Und zwar habe ich ein Suchfeld txtSuchfeld in dem ich den Suchbegriff eingeben kann. Dieses sendet wiederrum den Suchbegriff an das Listenfeld, welches sich mit jedem weiteren Suchzeichen aktualisieren soll. Das Listenfeld zieht seinen Inhalt aus der Tabelle dbo.Programm_daten.
Hier mal die Ereignisprozedur bei Änderung des Suchfeldes (txtSuchfeld) = Textfeld:
Private Sub txtSuchfeld_Change()
Dim strSuchbegriff As String
'Suchbegriff in Variable speichern
strSuchbegriff = Me!txtSuchfeld.Text
'Neue Datensatzherkunft zuweisen
Me!Liste169.RowSource = "SELECT * FROM dbo.Programm_daten WHERE Programmname LIKE '" & strSuchbegriff & "*'"
'Inhalt des Listenfeldes aktualisieren
Me!Liste169.Requery
End Sub
Mein Problem ist nun, dass sich das Listenfeld leert, sobald ich auch nur ein Zeichen in das Suchfeld eingebe
. Wäre echt schön, wenn mir jemand helfen könnte...
ich brauche mal dringend Eure Hilfe.
Und zwar habe ich ein Suchfeld txtSuchfeld in dem ich den Suchbegriff eingeben kann. Dieses sendet wiederrum den Suchbegriff an das Listenfeld, welches sich mit jedem weiteren Suchzeichen aktualisieren soll. Das Listenfeld zieht seinen Inhalt aus der Tabelle dbo.Programm_daten.
Hier mal die Ereignisprozedur bei Änderung des Suchfeldes (txtSuchfeld) = Textfeld:
Private Sub txtSuchfeld_Change()
Dim strSuchbegriff As String
'Suchbegriff in Variable speichern
strSuchbegriff = Me!txtSuchfeld.Text
'Neue Datensatzherkunft zuweisen
Me!Liste169.RowSource = "SELECT * FROM dbo.Programm_daten WHERE Programmname LIKE '" & strSuchbegriff & "*'"
'Inhalt des Listenfeldes aktualisieren
Me!Liste169.Requery
End Sub
Mein Problem ist nun, dass sich das Listenfeld leert, sobald ich auch nur ein Zeichen in das Suchfeld eingebe
. Wäre echt schön, wenn mir jemand helfen könnte...
