Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mehrfachauswahl in Listenfeld an Bericht übergeben
zurück: Webbrowser Inhalt an größe von Webbrowser anpassen weiter: Datensatz wiederholt speichern 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
Matrix33
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Mai 2012, 15:22
Rufname:

Mehrfachauswahl in Listenfeld an Bericht übergeben - Mehrfachauswahl in Listenfeld an Bericht übergeben

Nach oben
       Version: Office 2007

Matrix33 am 31. Mai 2012 um 14:39 hat folgendes geschrieben:
Hallo miteinander,

folgendes Problem:

Ich möchte, dass aus einer Tabelle mehrere Datensätze ausgewählt werden können und diese dann an einen Bericht übergeben werden.

Tabelle: tblTeilnehmerDaten, benötigte Felder: Kursteilnehmer-ID, Kursteilnehmer-Name, Kursteilnehmer-Vorname

Ich habe nun ein Formular mit Listenfeld mit Mehrfachauswahl erstellt, das sich aus tblTeilnehmerDaten speist, der Bericht "rptMehrereEtiketten" ist auch vorhanden.

Ich bekomme es nur nicht hin, dass mit einem Klick auf eine Schaltfläche die ausgewählten Datensätze an den Bericht übergeben werden. Habe hier im Forum einiges gefunden, aber nichts hat mich wirklich weitergebracht.

Kann mir jemand helfen?

Nach hin und her probieren, habe ich es nun doch überraschen geschafft.
Code:
    Dim varItem As Variant, strFilter As String

    For Each varItem In Me!lfTeilnehmer.ItemsSelected
        strFilter = strFilter & " OR [Kursteilnehmer-ID] = " & Me!lfTeilnehmer.Column(0, varItem)
       'für eine Tätigkeit als String
       'strFilter = strFilter & " OR Taetigkeit = '" & Me!Auswahl.Column(0, varItem) & "'"
    Next varItem
    If strFilter <> "" Then
        DoCmd.OpenReport "rptMehrereEtiketten", acViewPreview, , Mid(strFilter, 5)
      Else
        MsgBox "Erst Teilnehmer auswählen!"
    End If
End Sub
Wenn ich nun jedoch alle ausgewählt habe, bringt er mir:
Zitat:
Der filterbezogene Vorgang wurde abgebrochen. Der Filter wäre zu lang geworden.
Kann ich das irgendwie umgehen? Oder ist die Anzahl schlichtweg beschränkt?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
31. Mai 2012, 15:48
Rufname:
Wohnort: NRW


AW: Mehrfachauswahl in Listenfeld an Bericht übergeben - AW: Mehrfachauswahl in Listenfeld an Bericht übergeben

Nach oben
       Version: Office 2007

Hallo,

wenn der Filterstring zu lang wird, dann wähle die IN-Variante:
Code:
  Dim varItem As Variant, strFilter As String
    For Each varItem In Me!lfTeilnehmer.ItemsSelected
        strFilter = strFilter & ", " & Me!lfTeilnehmer.Column(0, varItem)
    Next varItem
    If strFilter <> "" Then
        DoCmd.OpenReport "rptMehrereEtiketten", acViewPreview, , "[Kursteilnehmer-ID] IN (" & (strFilter, 3) & ")"
      Else
        MsgBox "Erst Teilnehmer auswählen!"
    End If
End Sub

_________________
Gruß MissPh!
Matrix33
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2012, 08:38
Rufname:

AW: Mehrfachauswahl in Listenfeld an Bericht übergeben - AW: Mehrfachauswahl in Listenfeld an Bericht übergeben

Nach oben
       Version: Office 2007

Danke für den Code. Er spuckt mir jedoch einen "Syntaxfehler" in der DoCmd.Open... Zeile aus und sagt zusätzlich "Erwarte )"
MissPh!
Office-VBA-Programmiererin


Verfasst am:
01. Jun 2012, 09:01
Rufname:
Wohnort: NRW

AW: Mehrfachauswahl in Listenfeld an Bericht übergeben - AW: Mehrfachauswahl in Listenfeld an Bericht übergeben

Nach oben
       Version: Office 2007

Hi,

sorry, ich hab den Einsatz der Mid-Funktion vergessen, also das Wort "MID":
Code:
        DoCmd.OpenReport "rptMehrereEtiketten", acViewPreview, , "[Kursteilnehmer-ID] IN (" & Mid(strFilter, 3) & ")"

_________________
Gruß MissPh!
Gast



Verfasst am:
01. Jun 2012, 09:08
Rufname:


AW: Mehrfachauswahl in Listenfeld an Bericht übergeben - AW: Mehrfachauswahl in Listenfeld an Bericht übergeben

Nach oben
       Version: Office 2007

Jetzt läufts durch. Wunderbar, danke dir vielmals.
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: Kriterium an Unterabfrage von einer Unterabfrage übergeben 0 Willifighter 1113 23. Aug 2006, 14:31
Willifighter Kriterium an Unterabfrage von einer Unterabfrage übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Werte an Tabelle übergeben 2 daniela_24 3837 29. Jun 2006, 09:37
Willi Wipp Werte an Tabelle übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Unterschiedliche Ergebnisse Abfrage <--> Bericht ?!? 0 ..::noOb::.. 718 21. Jun 2006, 11:18
..::noOb::.. Unterschiedliche Ergebnisse Abfrage <--> Bericht ?!?
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungs-abfrage beim Listenfeld 1 DarkAngel1208 575 21. Mai 2006, 00:03
Solaiman Aktualisierungs-abfrage beim Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung in Bericht nach berechnetem Feld möglich ? 1 J. Schreiber 1331 12. Apr 2006, 08:36
stargazer01 Sortierung in Bericht nach berechnetem Feld möglich ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, Bericht erstellen 1 bama 1324 15. März 2006, 16:08
LaSweeta Abfrage, Bericht erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage in Bericht 1 Fabs 2846 08. Dez 2005, 21:38
jens05 Parameterabfrage in Bericht
Keine neuen Beiträge Access Tabellen & Abfragen: Access Tabelle + Abfrage + Bericht + Formular 1 Todesengel-m 4249 10. Nov 2005, 16:31
stpimi Access Tabelle + Abfrage + Bericht + Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit Listenfeld 1 Schnoop 512 17. Okt 2005, 10:04
rita2008 Probleme mit Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Datum Monat und Jahr an Abfrage übergeben 9 Morthen 1376 07. Okt 2005, 11:15
Dalmatinchen Datum Monat und Jahr an Abfrage übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Daten von Listenfeld(Formular) in Access-Tabelle schreiben 6 fantasy 3980 14. Sep 2005, 13:50
fantasy Daten von Listenfeld(Formular) in Access-Tabelle schreiben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web