Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
bericht per VBA mit mehreren Kriterien öffnen
zurück: #Fehler im Bericht weiter: seitenkopf& detailbereich Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
siegpes
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2008, 11:06
Rufname:

bericht per VBA mit mehreren Kriterien öffnen - bericht per VBA mit mehreren Kriterien öffnen

Nach oben
       Version: Office 2007

Hallo Leute!

Öffnen mit diesem VBA code einen Bericht und übergeb die Werte die in der Textbox steht als Kriterium zum öffnen.
Code:
    DoCmd.OpenReport "B_BERICHTE", acViewPreview, , _
                     "[Projektbezeichnung]='" & Me.Projektbezeichnung & "'" & _
                 "AND [Status]='" & Me.Status & "'" & _
                 "AND [Techniker_CO_I]='" & Me.Techniker & "'"
Wenn nun ein Wert zb Status nicht angegeben wird funktioniert das ganze nicht mehr.
--> Wenn zb Status nicht angegeben soll er es auslassen und zur nächsten Kriterie springen.
Kann mir da jemand bitte weiterhelfen?

lg siegpes
JörgG
Access-Team


Verfasst am:
25. Sep 2008, 16:56
Rufname:
Wohnort: b. Dresden

AW: bericht per VBA mit mehreren Kriterien öffnen - AW: bericht per VBA mit mehreren Kriterien öffnen

Nach oben
       Version: Office 2007

Hallo,

für diesen Fall setze den Filterstring stückweise zusammen, zB so:
Code:
    Dim strFilter As String

    If Nz(Me!Projektbezeichnung, "") <> "" Then _
        strFilter = " AND Projektbezeichnung = '" & Me!Projektbezeichnung & "'"
    If Nz(Me!Status, "") <> "" Then _
        strFilter = strFilter & " AND Status = '" & Me!Status & "'"
    If Nz(Me!Techniker, "") <> "" Then _
        strFilter = strFilter & " AND Techniker_CO_I = '" & Me!Techniker & "'"
    If strFilter <> "" Then
        DoCmd.OpenReport "B_BERICHTE", acViewPreview, , Mid(strFilter, 6)
      Else
        DoCmd.OpenReport "B_BERICHTE", acViewPreview
    End If

Idea Beachte die Leerzeichen zwischen den Filterargumenten (oben fehlen sie?)!

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
siegpes
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Sep 2008, 13:47
Rufname:


AW: bericht per VBA mit mehreren Kriterien öffnen - AW: bericht per VBA mit mehreren Kriterien öffnen

Nach oben
       Version: Office 2007

Danke für die hilfe funktioniert super

Habe mich am WE auch noch gespielt.
Kann man diesen code auch als "sinnvoll" bezeichnen
Code:
    Dim strKrit As String

    strKrit = ""
    If Not (IsNull(Me!Projektbezeichnung)) Then
        strKrit = "[Projektbezeichnung]='" & Me.Projektbezeichnung & "'"
      Else
        strKrit = ""
    End If
    If Not (IsNull(Me!Status)) Then
        If Not (IsNull(Me!Projektbezeichnung)) Then
            strKrit = strKrit & "AND [Status]='" & Me!Status & "'"
          Else
            strKrit = "[Status]='" & Me!Status & "'"
        End If
    End If
    If Not (IsNull(Me!Techniker)) Then
        If Not (IsNull(Me!Status)) Then
            If Not (IsNull(Me!Projektbezeichnung)) Then
                strKrit = strKrit & _
                          "AND [Techniker_CO_I]='" & Me!Techniker & "'"
              Else
                strKrit = "[Techniker_CO_I]='" & Me!Techniker & "'"
            End If
        End If
    End If
    DoCmd.OpenReport "B_BERICHTE", acViewPreview, , strKrit


lg siegpes
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: Unterformular öffnen 1 mike1967 1022 10. Feb 2005, 08:53
MirkoK Unterformular öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-Abfrage mit Kriterien aus mehreren Feldern einer Spalte! 6 Casius 1651 31. Jan 2005, 00:47
Casius SQL-Abfrage mit Kriterien aus mehreren Feldern einer Spalte!
Keine neuen Beiträge Access Tabellen & Abfragen: Wie mache ich per Abfrage 305 -> K3.05? 2 Maik_25 792 21. Jan 2005, 10:38
Maik_25 Wie mache ich per Abfrage 305 -> K3.05?
Keine neuen Beiträge Access Tabellen & Abfragen: per SQL-Abfrage Feld füllen... 1 Gast 880 04. Jan 2005, 10:36
lothi per SQL-Abfrage Feld füllen...
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Kriterien 1 Gast 509 23. Dez 2004, 20:00
mapet Problem mit Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle per SQL umbennen (Access 2000) 2 DerPater 1084 09. Dez 2004, 14:02
Gast Tabelle per SQL umbennen (Access 2000)
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: Per SQL maximalen Spaltenwert im VBA code ermitteln 2 Gast 4779 31. Okt 2004, 23:10
Tom2002 Per SQL maximalen Spaltenwert im VBA code ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien Abfrage 2 Alex25 675 27. Okt 2004, 13:02
Alex25 Kriterien Abfrage
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: Suchfunktion mit mehreren Kriterien aus Formular 5 Danny G. 2218 09. Sep 2004, 11:08
Danny G. Suchfunktion mit mehreren Kriterien aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung zur Anwendung von Kriterien in einer Abfrage 1 Lorenz 918 19. Aug 2004, 19:47
lothi Bedingung zur Anwendung von Kriterien in einer Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks