| |
| Hallo zusammen,
ich habe in einem Endlosformular eine Suchfunktion eingebaut, die über ein Suchfeld eine Spalte einer Tabelle durchsucht und alle Datensätze, die eines der genannte Zeichen enthalten anzeigt.
Ich möchte jetzt gerne zwei weitere Suchfelder anlegen über die ich zwei andere Spalten durchsuche. Dabei soll aber die Suche in jedem der drei Suchfelder jeweils unabhängig davon sein, ob in den anderen Suchfeldern etwas steht. Die Such soll also funktionieren, wenn nur ein Suchfeld einen Eintrag enthält oder alle drei Felder. Wenn in allen drei Fledern Einträge sind, dann müssen natürlich alle drei Felder als Bedingungen erfüllt sein.
Kann mir jemand dabei weiterhelfen? Ich komme damit einfach nicht weiter.
Hier ist mein bisheriger Code:
Dim intkeyascii As Integer
Private Sub Suchfeld_Change()
Dim strsuche As String
Me![Tool].SetFocus
strsuche = "*" & Me![Suchfeld] & "*"
Me.Filter = "[Short Description] Like '" & strsuche & "'"
Me.FilterOn = True
Me![Suchfeld].SetFocus
If intkeyascii = 32 Then
Me![Suchfeld] = Me![Suchfeld] & Chr(32)
End If
If Me.RecordsetClone.RecordCount = 0 Then
Else
Me![Suchfeld].SelStart = Len("" & Me![Suchfeld])
End If
End Sub
Private Sub Suchfeld_KeyPress(KeyAscii As Integer)
intkeyascii = KeyAscii
End Sub
Vielen Dank im Voraus.
Hansi | |
|