PDA

Vollständige Version anzeigen : Im Formular Datensätze filtern


dwarf63
09.05.2004, 18:42
Hallo zusammen,

ich habe in einem Formular eine Schaltfläche, die nach anklicken eine Inputbox öffnet.

Was muss ich machen, damit Access die Datensätze anhand der Eingabe der Inputbox im Feld "ORT" filtert?

Die Eingabe von z.B. "DU" soll alle Orte finden, die mit DU (Duesseldorf, Duisburg) beginnen.

Gruß
Daniel

SWR
09.05.2004, 18:51
Abgesehen davon, daß das mit der Inputbox
'ne denkbar schlechte Lösung ist:

Private Sub Befehl1_Click()
Dim suche As String
suche = InputBox("Eingabe")

If Not IsNull(suche) Then
suche = suche & "*"
Me.Filter = "Ort LIKE '" & suche & "'"
Me.FilterOn = True
End If
End Sub

Im FilterString genau auf ' und " achten!

Mußt dann halt auch dafür sorgen, daß FilterOn = false
auch entsprechend gesetzt werden kann.

dwarf63
09.05.2004, 18:54
Hallo Stefan,

was sollte ich denn anstatt einer Inputbox nehmen?

Gruß
Daniel

SWR
09.05.2004, 18:58
zum Thema "Suchformular" mal das Forum durchforsten.

Bin sicher, da gibt's 'ne Menge hocheleganter
Lösungen, z.B. ein Form öffnen zur Eingabe von
Suchkriterien mit Submit-Button, der dann die
Filterung ausführt, usw.

dwarf63
09.05.2004, 19:00
Danke für die Info.

Deine erste Lösung funzt super.

Gruß
Daniel

SWR
09.05.2004, 19:01
--kein beitrag -- fehlalarm

Feldprediger
14.05.2004, 12:53
Ist es auch möglich eine Art Volltextsuche zu machen, in dem ich schaue, ob der Suchbegriff in Feld1 ODER Feld2 ODER Feld3 usw. ist? Wie müsste dann der String für Me.Filter lauten?
mfg,
Stephan

Arne Dieckmann
14.05.2004, 12:56
Ja, dann musst Du die Kriterien mit OR verknüpfen:


suche = suche & "*"
'oder
'suche = "*" & suche & "*"
Me.Filter = "FELD1 LIKE '" & suche & "' OR FELD2 LIKE '" & suche &"' OR FELD3 LIKE '" & suche & "'"