Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Selektierte Daten Drucken
zurück: Serienberichte weiter: Problem mit Summenfunktion 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
Suli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Jan 2010, 16:34
Rufname:

Selektierte Daten Drucken - Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Hallo Liebe User

Wie Ihr an dem Bild sehen könnt versuche ich einen Bericht zu drucken mit krietrien aus diesem Filter. Leider weiss ich nicht wie das geht denn ich möchte alle kriterien verwenden können. Über ein makro gehen nur 3.

Die kriterien müssen nach dem Or prinzip funktionieren



screen.png
 Beschreibung:
 Dateigröße:  47.32 KB
 Angeschaut:  735 mal

screen.png


Sinister
Access-Programmierer


Verfasst am:
29. Jan 2010, 17:34
Rufname:


AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Hallo,

Man soll immer VBA statt Makro benutzen. Man setzt aus beliebig vielen Kriterien eine Bedingung (etwa so (Problem mit If-Abfragen)) und gibt diese als Parameter an OpenReport.

_________________
Warum einfach, wenn es kompliziert geht!?
Suli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Jan 2010, 18:03
Rufname:

AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Etwa So aber ist das mit dem SQL richtig ist das ein String?
Code:
    Dim Krit As String
    Dim SQL As String

    Krit = ""
    If Not IsNull(Me!ParticipationF) Then
        Krit = Krit & " AND TrainingParticipation LIKE '" & Me!ParticipationF & "*'"
    End If
    If Not IsNull(Me!MandatoryF) Then
        Krit = Krit & " AND Mandatory LIKE '" & Me!MandatoryF & "*'"
    End If
    If Not IsNull(Me!TrainingDateF) Then
        Krit = Krit & " AND TrainingDate LIKE '" & Me!TrainingDateF & "*'"
    End If
    If Not IsNull(Me!TrainingTopicF) Then
        Krit = Krit & " AND TrainingTopic LIKE '" & Me!TrainingTopicF & "*'"
    End If
    If Not IsNull(Me!SpeakerF) Then
        Krit = Krit & " AND Speaker LIKE '" & Me!SpeakerF & "*'"
    End If
    If Not IsNull(Me!LanguagesF) Then
        Krit = Krit & " AND Languages LIKE '" & Me!LanguagesF & "*'"
    End If
    If Not IsNull(Me!LocationF) Then
        Krit = Krit & " AND Location LIKE '" & Me!LocationF & "*'"
    End If
    SQL = "SELECT TrainingParticipation, Mandatory, TrainingDate, TrainingTopic, Speaker, Languages, Location, " _
         & " FROM [001_Trainings]"
    If Krit <> "" Then Krit = Mid(Krit, 6)
        SQL = SQL & "WHERE " & Krit
        Me!SelecionReport.Form.RecordSource = SQL
    End If
    DoCmd.OpenReport "SelecionReport", acViewPreview
End Sub
steffen0815
VBA-Programmierer


Verfasst am:
29. Jan 2010, 18:17
Rufname:

AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Hallo,
wobei ich mal denke das der Nachbau des aktuellen Filters ganz schön aufwändig ist. Evtl. ist ja sogar die "von Hand Filterung" freigeschalten!?

Der direkte Einbau des Formularfilters (Me.Filter) als WHERE-Klausel sollte doch möglich sein.

_________________
Gruß Steffen
Suli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Jan 2010, 18:19
Rufname:

AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Wie geht sowas? Wo muss ich was machen?

Besten Dank
steffen0815
VBA-Programmierer


Verfasst am:
30. Jan 2010, 11:46
Rufname:

AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Hallo,
also ich habe mal nachgedacht (ich habe eigentlich mit Berichten nix am Hut Embarassed ), aber sollte der Einzeiler
Code:
    DoCmd.OpenReport "DeinBericht", acPreview, , IIf(Me.FilterOn, Me.Filter, "")
nicht völlig ausreichend sein?
_________________
Gruß Steffen
Suli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Feb 2010, 16:39
Rufname:


AW: Selektierte Daten Drucken - AW: Selektierte Daten Drucken

Nach oben
       Version: Office 2003

Wow funktioniert perfekt, danke
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 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Wichtige frage zur eingabe von daten (ohne nervige Meldunge) 2 Mod 573 18. März 2005, 11:05
Gast Wichtige frage zur eingabe von daten (ohne nervige Meldunge)
Keine neuen Beiträge Access Tabellen & Abfragen: Daten abfragen nach Buchstabenreihenfolge 2 wrengers 699 07. März 2005, 22:59
Gast Daten abfragen nach Buchstabenreihenfolge
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren von gruppierten Daten 3 Thomas Theurer 1202 27. Jan 2005, 17:36
mapet Summieren von gruppierten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus einer dat Datei in eine Access Tabelle einlesen! 7 VP 001 8238 26. Okt 2004, 21:57
snurb Daten aus einer dat Datei in eine Access Tabelle einlesen!
Keine neuen Beiträge Access Tabellen & Abfragen: Komment. u Daten in zelle schreiben, Zellenausrichtung festl 2 k@lle 816 06. Okt 2004, 11:49
k@lle Komment. u Daten in zelle schreiben, Zellenausrichtung festl
Keine neuen Beiträge Access Tabellen & Abfragen: Daten Trennen 4 Oliver.Giertz 1194 02. Sep 2004, 13:05
Oliver.Giertz Daten Trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Zwischenablage anhängen 5 Elhana 1077 30. Aug 2004, 13:00
Pusteblume Daten aus Zwischenablage anhängen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten suchen in ACCESS. Daten aus Tabellen suchen! 7 Gast 2093 26. Aug 2004, 13:55
Gast Daten suchen in ACCESS. Daten aus Tabellen suchen!
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Monate zwischen 2 Daten 2 master_tj 1837 22. Jul 2004, 13:17
master_tj Anzahl der Monate zwischen 2 Daten
Keine neuen Beiträge Access Tabellen & Abfragen: logische Zuordnung der Daten / Beziehung 0 DEAthWiNg 991 14. Jul 2004, 22:07
DEAthWiNg logische Zuordnung der Daten / Beziehung
 

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