Supportnet / Forum / Datenbanken
Access Filter
Frage
Hallo zusammen, hoffe ihjr könnt mir bei meinem problemchen weiterhelfen.
Und zwar habe ich ne Suchfunktion für mein Formular, dass aus einer Tabelle besteht. der Code sieht wie folgt aus:
Private Sub BtSearch_Click()
Dim sSQL As String
sSQL = "SELECT * FROM [Kopie von tbl_abf_alle_Werke] "
sSQL = sSQL & " WHERE [Material] LIKE '*" & mName & "*'"
Me.RecordSource = sSQL
Me.Requery
End Sub
wobei "BtSearch" eine Schaltfläche ist, "[Kopie von tbl_abf_alle_Werke]" ist der Name der Tabelle aus der das Formular besteht, "[Material]" ist die Spalte in der Gesucht werden soll und "mName" ist der Name des Textfeldes in das ich den Wert eingeben kann. Dies funktioniert auch super.
Das Problem ist, dass ich ne zweite Suchfunktion oder villeicht noch mehr benötige (siehe unten) aber die sind leider unabhängig voneinander.
Mein Problem ist, dass ich beide Suchfunktionen gleichzeitig benutzen will, also soll er mir anzeigen, was mit beiden Kriterien übereinstimmt, was ich in die jeweiligen Textfelder eingebe. Ich komm einfach nicht auf die Lösung.
Würde mich über eure Hilfe freuen.
Gruß Kai
Private Sub BtSearch1_Click()
Dim sSQL As String
sSQL = "SELECT * FROM [Kopie von tbl_abf_alle_Werke] "
sSQL = sSQL & " WHERE [Liefer#Lif] LIKE '*" & lName & "*'"
Me.RecordSource = sSQL
Me.Requery
End Sub
Antwort 1 von lorf55
Hallo,
Du musst eigentlich nur deine SQL-Abfrage so anpassen, dass du beide (oder mehr) Kriterien durch AND verknüpfst und zur Sicherheit noch Klammern drum machst.
Private Sub BtSearch_Click()
Dim sSQL As String
Dim sKrit1 As String
Dim sKrit2 As String
sSQL = "SELECT * FROM [Kopie von tbl_abf_alle_Werke] "
sKrit1 = "([Material] LIKE '*" & mName & "*')"
sKrit2 = "([Liefer#Lif] LIKE '*" & lName & "*')"
sSQL = sSQL & " WHERE " & sKrit1 & " AND " & sKrit2
Me.RecordSource = sSQL
Me.Requery
End Sub
Ein Problem ist natürlich, die richtigen Anführungszeichen an der rictigen Stelle zu setzen. Aber das kennst du ja.
Gruß
lorf
Zitat:
Mein Problem ist, dass ich beide Suchfunktionen gleichzeitig benutzen will, also soll er mir anzeigen, was mit beiden Kriterien übereinstimmt, was ich in die jeweiligen Textfelder eingebe.
Mein Problem ist, dass ich beide Suchfunktionen gleichzeitig benutzen will, also soll er mir anzeigen, was mit beiden Kriterien übereinstimmt, was ich in die jeweiligen Textfelder eingebe.
Du musst eigentlich nur deine SQL-Abfrage so anpassen, dass du beide (oder mehr) Kriterien durch AND verknüpfst und zur Sicherheit noch Klammern drum machst.
Private Sub BtSearch_Click()
Dim sSQL As String
Dim sKrit1 As String
Dim sKrit2 As String
sSQL = "SELECT * FROM [Kopie von tbl_abf_alle_Werke] "
sKrit1 = "([Material] LIKE '*" & mName & "*')"
sKrit2 = "([Liefer#Lif] LIKE '*" & lName & "*')"
sSQL = sSQL & " WHERE " & sKrit1 & " AND " & sKrit2
Me.RecordSource = sSQL
Me.Requery
End Sub
Ein Problem ist natürlich, die richtigen Anführungszeichen an der rictigen Stelle zu setzen. Aber das kennst du ja.
Gruß
lorf
Antwort 2 von Kai_00
Danke lorf55, funktioniert genauso wie ichs mir vorgstellt hab.
Super Hilfe.
Gruß Kai
Super Hilfe.
Gruß Kai