PDA

Vollständige Version anzeigen : A97-Suchkombination für mehrere Kriterien


Stefan K
28.02.2001, 09:39
Hallo NG,

ich habe ein Suchform mit einem Textfeld, als Datensatzherkunft dient eine Abfrage.
Wie "*" & [Formulare]![F_Suchauswahl]![Meldung] & "*"
findet den gesuchten Wortlaut, z.B. BLAU oder BLAUES AUTO.
Wie suche ich aber alle Datensätze, die entweder BLAU oder ROT enthalten, mittels oben beschriebenem Parameter ?

Danke im voraus
Stefan

Heathen
28.02.2001, 10:50
Hallo Stefan,
versuch mal diesen VBA-Code:
(am besten bei Form_open)

Dim Suche As String
Dim i As Integer

Suche = [Formulare]![F_Suchauswahl]![Meldung]

For Each Object In Split(Suche, ";", , vbTextCompare)
i = i + 1
If i = 1 Then
sqry = "Select * from [Abfrage] where [Feld] Like '*" & Object & "*'"
Else
sqry = sqry & "OR [Feld] Like '*" & Object & "*'"
End If
Next

Me.Recordsource = sqry


Das sollte klappen

Heathen
28.02.2001, 10:51
Ach ja, die Suchkriterien werden hierbei mit einem ";" getrennt eingegeben.

Stefan K
01.03.2001, 08:25
Hallo Heathen,

danke für deine Mühe, werde ich versuchen.

Gruß
Stefan