PDA

Vollständige Version anzeigen : Wie die Suchfunktion abwandeln?


Growtosh
06.07.2001, 13:34
Hallo,

ich habe eine einfache DB erstellt in der folgende Werte eingetragen werden können:

Vertragspartner
Projekt
Vertragsinhalt
Termin

etc.

In einem Textfeld soll nach Stichworten aus obiger Tabelle
gesucht werden, was auch gut funktioniert mit:

Me!Vertragspartner.SetFocus
DoCmd.FindRecord Me!SucheVP

Me!Projekt.SetFocus
DoCmd.FindRecord Me!SucheVP

Me!Vertragsinhalt.SetFocus
DoCmd.FindRecord Me!SucheVP

etc.

Nun kann es aber vorkommen, dass mehrmals der gleiche Vertragspartner eingetragen ist und dann bekomme ich nur einen Datensatz als Suchergebnis angezeigt.

Kann mir jemand sagen, wie ich alle Datensätze erhalte, die
z.B. den gleichen Vertragspartner beinhalten?

Vielen Dank im Voraus und schönes Wochenende!

WalterS
06.07.2001, 16:15
Hallo!

Viele Wege führen nach ROM und hier ist es genau so.

Am einfachsten?? ist es statt findRecord mit Filtern zu arbeiten


Dim hFilter as String

hFilter="(Vertragspartner like '*" & Me!sucheVP & "*')"
hFilter = hfilter & " or (Projekt like '*" & Me!sucheVP & "*')"
hFilter = hfilter & " or (Vertragsinhalt like '*" & Me!sucheVP & "*')"
me.Filter=""
me.Filter= hFilter
me.FilterOn= True