Abfrage ms access aus mehreren textfeldern
Ist extrem DRINGEND*
Ich habe ein Formular mit insgesamt 5 Textfeldern.
Jetzt bräuchte ich eine Abfrage, die je nachdem wieviele Textfelder ich mit Werten belege, genau die Datensätze liefert, die auf diese Angaben zutreffen. Wenn ein Textfeld leer belibt, soll die Abfrage alle Werte dieser Spalte leifern
Zu jedem Textfeld gibt es eine Spalte in der Tabelle.
Wäre über ein Code-Beispiel dankbar
Antworten zur Frage
Videos zum Thema
YouTube Videos
Abfrage mit MS ACCESS aus mehreren Textfeldern
Ein konkretes Beispiel wäre schön gewesen. Ich habe mir jetzt folgendes aus den Fingern gesaugt: Du hast eine Tabelle mit vier Spalten: Name, Geburtsjahr, -monat, -tag. Jetzt möchtest du in deinem Formular z.B. alle Personen suchen, die im Jahr 1980 geboren sind. Oder alle, die an einem 29. Februar geboren sind. Oder genau denjenigen, der am 1. April 1960 geboren wurde. Dieser Code löst die Aufgabe:
' --- --
Private Sub cmdSearch_Click()
Dim strSQLQuery As String
Dim strWhereClause As String
Dim rstResult As Recordset
strSQLQuery = "SELECT * FROM Birthdays"
strWhereClause = " WHERE 1=1" & _
IIf(txtDay.Value "", " AND Day like '" & txtDay.Value & "'", ""txtMonth.Value "", " AND Month like '" & txtMonth.Value & "'", ""txtYear.Value "", " AND Year like '" & txtYear.Value & "'", "")
Set rstResult = CurrentDb.OpenRecordset
If Not rstResult.EOF Then rstResult.MoveLast
MsgBox rstResult.RecordCount & " Treffer."
End Sub
' --- --
Die WHERE-Clause wird dabei nur dann um den Inhalt der jeweilgen Textfelder ergänzt, wenn dort irgend etwas eingegeben wurde. Der etwas seltsame Beginn ("WHERE 1=1"Sonst würde das erste "AND" direkt hinter dem "WHERE" stehen) Notwendig für die Funktion ist es nicht, man könnte also auch mit der Replace-Funktion nach dem Zusammenbauen das überflüssige AND oder gar den gesamten WHERE-Teil entfernen.
In rstResults findest du dann alle Treffer. Ich gebe in dem Beispiel nur die Anzahl aus, aber natürlich könntest du die Datensätze auch einzeln auslesen und an beliebiger Stelle ausgeben.
Hoffe, das hilft.
Thomas