Office: SQL Filter erweitern?

Helfe beim Thema SQL Filter erweitern? in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Ich habe den Code nun so erstellt: Code: If Not IsNull(Me!Airline2.Column(1)) Then Krit = Krit & " AND (Airline2.Column(1) LIKE '" &... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von carstiee09, 30. Mai 2011.

Seite 3 von 5

CARSTIEE09

carstiee09

SQL Filter erweitern?

Ich habe den Code nun so erstellt: Code:

If Not IsNull(Me!Airline2.Column(1)) Then
Krit = Krit & " AND (Airline2.Column(1) LIKE '" & Me!Airline2.Column(1) & "*') "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einen Primäre Schlüssel in der Tabelle "Airline" habe ich nicht. Er findet nix. *nerv*

Carsten

carstiee09, 17. August 2011

#31
CARSTIEE09

carstiee09

was haben die Zahlen Code:

AND AirlineID IN (12, 17, 34)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zu bedeuten?

carstiee09, 17. August 2011

#32
MAIKEK

maikek

Beispiel anbei.
maike

maikek, 18. August 2011

#33
CARSTIEE09

carstiee09

SQL Filter erweitern?

Danke Maike für das Beispiel. habe es mir angeschaut, jedoch bin ich am verzweifeln, wie passe ich den Code an meine Datenbank an. Der Ursprüngliche ist komplett anders.

ich habe folgenden Code:

Code:

Private Sub MakeSQL()
Krit = ""

If Not IsNull(Me!Nachname) Then Krit = Krit & " AND Nachname LIKE '" & Me!Nachname & "*'"
' so geht's auch:
' If Not IsNull(Me!Nachname) Then Krit = Krit & " AND Nachname LIKE """ & Me!Nachname & "*"""

' eigentlich muss man hier den Spezialfall, dass das Begrenzungszeichen im Suchbegriff enthalten ist,
' berücksichtigen!

If Not IsNull(Me!Vorname) Then Krit = Krit & " AND Vorname LIKE '" & Me!Vorname & "*'"
If Not IsNull(Me!Firma) Then Krit = Krit & " AND Firma LIKE '" & Me!Firma & "*'"
If Not IsNull(Me!Ort) Then Krit = Krit & " AND Ort LIKE '" & Me!Ort & "*'"
If Not IsNull(Me!PLZvon) Then Krit = Krit & " AND PLZ >= '" & Me!PLZvon & "'"
If Not IsNull(Me!PLZbis) Then Krit = Krit & " AND PLZ =" & Str(Me!Erlösvon)
If Not IsNull(Me!Erlösbis) Then Krit = Krit & " AND Erloes
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

carstiee09, 18. August 2011

#34
MAIKEK

maikek

Das ist aber nicht mehr die letzte Version.
Im Prinzip ist das auch nicht "komplett anders", es immer wird der String Krit zusammengesetzt.

Ich bin jetzt mal von einem Listenfeld namens lstAirlines mit nur einer Spalte für die Namen der Airlines (ohne Schlüsselfeld) ausgegangen.

Code:

If Not IsNull(Me!Name) Then Krit = Krit & " AND Name LIKE '" & Me!Name & "*'"
If Not IsNull(Me!Kette) Then Krit = Krit & " AND Kette LIKE '" & Me!Kette & "*'"

Dim stAirlines As String, varItem As Variant, krit As String
With Me.lstAirlines
For Each varItem In .ItemsSelected
stAirlines = stAirlines & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If len(stAirlines) > 0 then krit = krit & " AND Airline IN (" & Mid(stAirlines, 3) & ")"

With Me.lstAirlines
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With

If Not IsNull(Me!Jahr) Then Krit = Krit & " AND Jahr = " & Me!Jahr
' usw. ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

maikek, 18. August 2011

#35
CARSTIEE09

carstiee09

Hallo Maike,

danke für den Code er geht.

Wenn ich nun noch über ein anderes Listenfeld filtern möchte wie z.B. Bezirk wie kann ich dort den Code anpassen? Ich habe es mal probiert, jedoch zeigt er mir an: "Mehrfachdeklaration im aktuellen Gütligkeitsbereich".

Ich möchte über mehrere Listenfelder filtern können. Oder wird das wieder zu komplex vom Code?

Grüße
Carsten

carstiee09, 18. August 2011

#36
MAIKEK

maikek

"Mehrfachdeklaration im aktuellen Gütligkeitsbereich".
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann hast du da irgendeine Variable doppelt deklariert (Deklaration: Dim irgendeineVariable AS Datentyp)

Ich möchte über mehrere Listenfelder filtern können. Oder wird das wieder zu komplex vom Code?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code kannst du seitenlang schreiben. Da es deiner DB aber scheinbar an Primärschlüsselfeldern mangelt, könnte durch die rein textbasierte Suche das Ganze irgendwann ziemlich lahm werden. Und ob eine Suche nach solcherart vielen Bedingungen sinnvoll ist, musst du selbst entscheiden - irgendwann könnte es doch ein bisschen sehr beliebig werden.

maike

maikek, 18. August 2011

#37
CARSTIEE09

carstiee09

SQL Filter erweitern?

ich hatte probiert Code:

With Me.Airline2
For Each varItem In .ItemsSelected
Airline2 = Airline2 & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Airline2) > 0 Then krit = krit & " AND Airline IN (" & Mid(Airline2, 3) & ")"

With Me.Airline2
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With

If Not IsNull(Me!Jahr) Then krit = krit & " AND Jahr LIKE '" & Me!Jahr & "*'"

With Me.Bezirk
For Each varItem In .ItemsSelected
Bezirk = Bezirk & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Bezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(Bezirk, 3) & ")"

With Me.Bezirk
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Datenbank ist mit Excel verknüpft, da habe ich keinen Primärschlüssel drin. Schlimm?

Carsten

carstiee09, 18. August 2011

#38
MAIKEK

maikek

Code:

With Me.Airline2
For Each varItem In .ItemsSelected
Airline2 = Airline2 & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Airline2) > 0 Then krit = krit & " AND Airline IN (" & Mid(Airline2, 3) & ")"

With Me.Airline2
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With

If Not IsNull(Me!Jahr) Then krit = krit & " AND Jahr LIKE '" & Me!Jahr & "*'"

With Me.Bezirk
For Each varItem In .ItemsSelected
Bezirk = Bezirk & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Bezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(Bezirk, 3) & ")"

With Me.Bezirk
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek, 19. August 2011

#39
CARSTIEE09

carstiee09

wenn ich es ändere in "y"

With Me.Airline2
For Each varItem In .ItemsSelected
Airline2 = Airline2 & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Airline2) > 0 Then krit = krit & " AND Airline IN (" & Mid(Airline2, 3) & ")"

With Me.Airline2
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With

If Not IsNull(Me!Jahr) Then krit = krit & " AND Jahr LIKE '" & Me!Jahr & "*'"

With Me.Bezirk
For Each varItem In .ItemsSelected
Bezirk = Bezirk & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Bezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(Bezirk, 3) & ")"

With Me.Bezirk
Dim y As Long
For y = 0 To .ListCount - 1
.Selected(y) = False
Next y
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zeigt er bei Bezirk nix mehr an.

Carsten

carstiee09, 19. August 2011

#40
MAIKEK

maikek

Du meinst, es ist im Listenfeld nichts mehr markiert?
Das ist auch so gedacht, genau das soll diese Anweisung:
Code:

With Me.Bezirk
Dim y As Long
For y = 0 To .ListCount - 1 'Vom ersten bis zum letzten Eintrag
.Selected(y) = False 'Eintrag ausgewählt = Falsch
Next y 'nächster Eintrag
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du das an der Stelle nicht haben willst sondern evtl. erst später, setze dir einen Button auf dein Formular z.B. "Suchfelder leeren" und bringe die Anweisung(en) dort unter.

Ich würde auch raten, Feld und Variable nicht genau gleich zu benennen:
Code:

With Me.Bezirk 'Feld
For Each varItem In .ItemsSelected
stBezirk = stBezirk & ", '" & .ItemData(varItem) & "'" 'Variable
Next varItem
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

maikek, 19. August 2011

#41
CARSTIEE09

carstiee09

der Code ist geändert

Code:

With Me.Bezirk
For Each varItem1 In .ItemsSelected
stBezirk = stBezirk & ", '" & .ItemData(varItem1) & "'"
Next varItem1
End With

If Len(Bezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(Bezirk, 3) & ")"

With Me.Bezirk
Dim y As Long
For y = 0 To .ListCount - 1
.Selected(y) = False
Next y
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit dem leeren habe ich bereits den Code eingefügt.

Jedoch filtert Access mir nichts raus, ich markiere erst die Airlines, dann den Bezirk, bei Bezirk zeigt er nichts an.

Carsten

carstiee09, 19. August 2011

#42
MAIKEK

maikek

SQL Filter erweitern?

mit dem leeren habe ich bereits den Code eingefügt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*confused.gif*

... bei Bezirk zeigt er nichts an.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

If Len(stBezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(stBezirk, 3) & ")"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sowas müsstest du aber jetzt langsam selber hinkriegen *wink.gif* .

maike

maikek, 19. August 2011

#43
CARSTIEE09

carstiee09

ich bin zu doof. *bawling

nochmal der komplette Code

Private Sub MakeSQL()
Dim Airline2 As String, varItem As Variant, krit As String
Dim stBezirk As String, varItem1 As Variant, krit1 As String

With Me.Airline2
For Each varItem In .ItemsSelected
Airline2 = Airline2 & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(Airline2) > 0 Then krit = krit & " AND Airline IN (" & Mid(Airline2, 3) & ")"

With Me.Airline2
Dim x As Long
For x = 0 To .ListCount - 1
.Selected(x) = False
Next x
End With

With Me.Bezirk
For Each varItem1 In .ItemsSelected
stBezirk = stBezirk & ", '" & .ItemData(varItem) & "'"
Next varItem1
End With

If Len(stBezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(stBezirk, 3) & ")"

With Me.Bezirk
Dim y As Long
For y = 0 To .ListCount - 1
.Selected(y) = False
Next y
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit dem leeren habe ich bereits den Code eingefügt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

damit meinte ich das dies

Wenn du das an der Stelle nicht haben willst sondern evtl. erst später, setze dir einen Button auf dein Formular z.B. "Suchfelder leeren" und bringe die Anweisung(en) dort unter.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

erledigt ist.

Carsten

carstiee09, 19. August 2011

#44
MAIKEK

maikek

Code:

Private Sub MakeSQL()
Dim stAirline2 As String
Dim varItem As Variant
Dim krit As String
Dim stBezirk As String

With Me.Airline2
For Each varItem In .ItemsSelected
stAirline2 = stAirline2 & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(stAirline2) > 0 Then krit = krit & " AND Airline IN (" & Mid(stAirline2, 3) & ")"

With Me.Bezirk
For Each varItem In .ItemsSelected
stBezirk = stBezirk & ", '" & .ItemData(varItem) & "'"
Next varItem
End With

If Len(stBezirk) > 0 Then krit = krit & " AND Bezirk IN (" & Mid(stBezirk, 3) & ")"

'... usw.

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

krit muss krit bleiben, krit1 wäre ein neuer String und würde dann nicht mehr beim Suchen berücksichtigt.
varItem kannst du recyclen, das reicht dann einmal.
Wenn du das "Entmarkieren" der Listenfelder jetzt woanders machst, brauchst du das an dieser Stelle nicht mehr.
maike

maikek, 19. August 2011

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 5

Thema:

SQL Filter erweitern?

Die Seite wird geladen...

SQL Filter erweitern? - Similar Threads - SQL Filter erweitern
Sql-Abfrage, Laufzeitfehler 3075, Syntaxfehler (fehlender Operator)
in Microsoft Access Hilfe
Sql-Abfrage, Laufzeitfehler 3075, Syntaxfehler (fehlender Operator): Hallo an alle, ich habe folgendes Problem. In meiner Datenbank habe ich mehrere Tabellen, unter anderem die Tabelle Teile_allgemein und Faktura. Mit meinem Abfrageformular funktioniert folgender...
OpenRecordset mit SQL
in Microsoft Access Hilfe
OpenRecordset mit SQL: Hallo! Ich weiß dass es Themen im Forum gibt, aber leider finde ich für mich keine Lösung. Nachdem ich in dem Forum mit einem ähnlichenThema bereits Hilfe bekommen habe habe ich meinen...
Benötige Hilfe bei SQL-Befehl
in Microsoft Access Hilfe
Benötige Hilfe bei SQL-Befehl: Hallo zusammen und alles Gute für 2025 Es ist mal wieder Sale-Zeit und jetzt müssen bei vielen Artikel zu eine festgesetzten Zeit die VK-Preise geändert werden. Man kann das in unserem...
SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)
in Microsoft Excel Hilfe
SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste): Hallo zusammen, ich bräuchte Eure Hilfe, bei dem ich nicht weitere komme. Ich lasse importiere SQL-Daten über mehrere Abfragen im Editor vor filtern. Eine Spalte über einen Artikel...
SQL-Abfrage mit where
in Microsoft Access Hilfe
SQL-Abfrage mit where: SQL-Abfrage mit where-Parameter. PNrHaupt ist eine Zahl. Ich vermute, da liegt der Fehler, aber ich weiss nicht, wie ich das darstellen soll. Bei jeder neuer PNrHaupt soll eine neue Datei erstellt...
Apostroph in sql Recordset
in Microsoft Access Hilfe
Apostroph in sql Recordset: Hallo Gemeinde, einen hätte ich noch: sqlTitel = "SELECT * FROM tbl_Files_Edited WHERE Titel='" & strTitel & "'" Set rs1 = db.OpenRecordset(sqlTitel) Enthält strTitel einen...
Datenimport aus SQL - Filter in Zelle definieren
in Microsoft Excel Hilfe
Datenimport aus SQL - Filter in Zelle definieren: Hallo an alle, ich importiere über einen Button Daten aus einer Datenbank ins Excel. Der Code dazu schaut so aus: Sub Schaltfläche3_KlickenSieAuf() With ActiveWorkbook.Connections("Abfrage...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden