Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular filtern mit mehreren Kombifeldern
zurück: Filter Herkunftsland weiter: ERLEDIGT: Weiteres Datenbank-Feld ausgeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Natsch377
Neuling


Verfasst am:
21. Mai 2007, 12:01
Rufname:

Formular filtern mit mehreren Kombifeldern - Formular filtern mit mehreren Kombifeldern

Nach oben
       Version: Office 2k (2000)

Hallo,

ich habe hier schon so einiges an Tips gefunden, dafür erstmal ganz vielen Dank!
Jetzt komme ich aber einfach nicht weiter - mein Problem ist folgendes:

Ich habe ein Formular, das auf einer Abfrage basiert.

Ich möchte die Datensätze im Formular filtern, und zwar nach 2 Kriterien, Steelgrade und Surf.

Dafür habe ich 2 Kombifelder "KombiSteelgrade" und "KombiSurf" im Formularkopf angelegt. Die Kombi-Felder sind gefüllt mit Daten aus ihren entsprechenden Untertabellen (tblSteelgrade & tblSurf). Außerdem gibt es noch das Kombifeld cbotyp (Suchbedingung), mit dem man zwischen AND und OR wählen kann (Standardwert ist immer AND).

Jetzt möchte ich, dass, wenn ich in beiden Kombifeldern etwas ausgewählt habe, auf den Button "Jetzt filtern" klicken, und dann soll anschließend das Formular entsprechend den beiden Kombifeldern gefiltert werden.

Er macht mir das aber einfach nicht! Ich weiß einfach nicht, woran das liegen kann.

Hier ist mal der Code, vom Feld "Jetzt filtern":
Code:
Private Sub Jetztfiltern_Click()
    Dim txtSteelgrade As String
    Dim txtSurf As String
    Dim strSQL As String
    Dim strtyp As String
    Dim strSQLwhere As String
   
    strtyp = " " & Trim(Me!cboTyp) & " "
    If Not IsNull(Me!KombiSteelgrade) And Me!KombiSteelgrade > 0 Then
        txtSteelgrade = strtyp & " [Steelgrade]='" & Me!KombiSteelgrade & "'"
      Else
        txtSteelgrade = ""
    End If
    If Not IsNull(Me!KombiSurf) And Me!KombiSurf > 0 Then
        txtSurf = strtyp & " [Surf]='" & Me!KombiSurf & "'"
      Else
        txtSurf = ""
    End If
    strSQLwhere = txtSteelgrade & txtSurf
'    If Trim(strSQLwhere) <> "" Then
'        If Left(strSQLwhere, Len(strtyp)) = strtyp Then
'            strSQLwhere = Mid(strSQLwhere, Len(strtyp))
'        End If
'      Else
'        MsgBox "Keine Auswahl"
'        Exit Sub
'    End If
    strSQL = "SELECT Steelgrade, Surf FROM tblArticle " & _
              "WHERE " & strSQLwhere
    Me.Filter = "[Steelgrade]='" & Me!KombiSteelgrade & "'" And _
                "[Surf]='" & Me!KombiSurf & "'"
    Me.FilterOn = True
End Sub
Da kommt dann aber die Fehlermeldung: "Typen unverträglich" und markiert mir beim Debuggen die Zeile ab "Me.Filter = "SELECT ..."

Das wäre toll, wenn mir jemand irgendnen Hinweis geben könnte, was ich da falsch mache...

Ganz vielen Dank schon einmal!

Liebe Grüße,
Natsch
jens05
Moderator


Verfasst am:
21. Mai 2007, 20:31
Rufname:
Wohnort: ~~~~~


AW: Formular filtern mit mehreren Kombifeldern - AW: Formular filtern mit mehreren Kombifeldern

Nach oben
       Version: Office 2k (2000)

Hallo,
möchtest du Filtern, oder die Datenherkunft verändern?

Gibt das Formular jetzt Datensätze aus? Falls ja versuchen wir es als erstes mit dem Filter ;)
Code:
Private Sub Jetztfiltern_Click()
    Dim txtSteelgrade As String
    Dim txtSurf As String
    Dim strSQL As String
    Dim strtyp As String
    Dim strSQLwhere As String
   
    strtyp = Nz(Me!cboTyp, "AND")
    If Not IsNull(Me!KombiSteelgrade) And Me!KombiSteelgrade > 0 Then
        txtSteelgrade = "[Steelgrade]='" & Me!KombiSteelgrade & "' "
    End If
    If Not IsNull(Me!KombiSurf) And Me!KombiSurf > 0 Then
        txtSurf = " [Surf]='" & Me!KombiSurf & "'"
    End If
    If Len(txtSteelgrade) > 0 And Len(txtSurf) > 0 Then
        strSQLwhere = txtSteelgrade & strtyp & txtSurf
    End If
    If Len(txtSteelgrade) = 0 And Len(txtSurf) > 0 Then
        strSQLwhere = txtSurf
    End If
    If Len(txtSteelgrade) > 0 And Len(txtSurf) = 0 Then
        strSQLwhere = txtSteelgrade
    End If
    If Len(strSQLwhere) > 0 Then
        Me.Filter = Mid(strSQLwhere, 5)
        Me.FilterOn = True
      Else
        Me.FilterOn = False
    End If
End Sub
Falls die zu filternden Felder numerisch sind, bitte die Hochkommata weglassen.
_________________
mfg jens05 Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Formular für mehrere Abfragen benutzen 2 Oli aus Bonn 1262 21. Nov 2004, 01:30
Oli aus Bonn Formular für mehrere Abfragen benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Filtern aus Kombi & Listenfeld 1 Gast 817 16. Nov 2004, 22:07
lothi Filtern aus Kombi & Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage mit mehreren Bedingungen 5 Gast 1416 15. Nov 2004, 16:01
Skogafoss Löschabfrage mit mehreren Bedingungen
Keine neuen Beiträge Access Tabellen & Abfragen: Add Record - Formular in ein Nebenformular 6 User007 926 27. Okt 2004, 11:49
Gast Add Record - Formular in ein Nebenformular
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Einen Wert per Abfrage in mehreren Tabellenspalten suchen 2 Danny G. 606 10. Sep 2004, 18:22
Danny G. Einen Wert per Abfrage in mehreren Tabellenspalten suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus nem Formular die mich fertig machen!!! 19 Martin von der Bergwiese 2658 24. Aug 2004, 12:53
Lorenz Kriterien aus nem Formular die mich fertig machen!!!
Keine neuen Beiträge Access Tabellen & Abfragen: datum in Tabelle nur nach Jahr & Monat filtern.....aber. 4 mirko 1236 20. Jul 2004, 12:03
mirko datum in Tabelle nur nach Jahr & Monat filtern.....aber.
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Daten aus mehreren Word-files übernehmen. 4 mw1 481 12. Jul 2004, 16:08
lothi Access-Daten aus mehreren Word-files übernehmen.
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Formular 1 Sumo_Racer 1092 28. Mai 2004, 21:59
lothi Suchen in Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Access Formular 2 Mielke 951 06. Mai 2004, 21:49
Hausmeister Access Formular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum