Hallo,
ich habe in einem Formular eine [xurl=
http://jamaipa.de|Jamaipa - Suche ohne Spam und Shops]Suche[/url] implementiert, mit der ich zur Laufzeit Daten filtern kann. Ich tippe also in ein Textfeld einen Suchbegriff ein, und nur Daten, welche diesen Begriff enthalten werden angezeigt.
Der Code dazu sieht folgendermaßen aus:
[code]Private Sub txt_Schnellsuche_Change()
Dim strFilter As String
Dim intStart As Integer
intStart = Me!txt_Schnellsuche.SelStart
If Len(Me!txt_Schnellsuche.Text) <> 0 Then
strFilter = "PersNr LIKE '*" & Me!txt_Schnellsuche.Text & "*' Or Titel LIKE '*" & Me!txt_Schnellsuche.Text & "*' Or Vorname LIKE '*" & Me!txt_Schnellsuche.Text & "*' Or Nachname LIKE '*" & Me!txt_Schnellsuche.Text & "*'"
Me.Filter = strFilter
Me.FilterOn = True
Me!txt_Schnellsuche.SelStart = intStart
Else
Me.Filter = ""
Me.FilterOn = False
Me!txt_Schnellsuche.SetFocus
End If
End Sub
[/code]
Wenn ich das Formular ausdrucken lassen möchte druckt er genau die Datensätze aus, welche durch das Filterkriterium angezeigt werden.
Ich möchte allerdings einen Bericht erzeugen lassen, der auf dem Filterkriterium der Sucheingabe beruht.
Kann mir bitte jemand helfen, wie ich das machen kann?
Wenn ich einen Bericht erzeuge und drucke, werden alle Datensätze in den Bericht aufgenommen.
Es sollen aber nur die Datensätze in den Bericht genommen werden, welche ich zur Laufzeit als Suchbegriff eingegeben habe.
Daher ist es auch nicht möglich eine extra Abfrage für den Bericht zu erzeugen, da der Suchbegriff ja variabel ist ...
Vielen Dank für Eure Hilfe :)