Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular mit anfrage
zurück: Bild als Hintergrund weiter: Eingabeformular für Datenliste Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Daniel10
Gast


Verfasst am:
10. Sep 2004, 12:44
Rufname:

Formular mit anfrage - Formular mit anfrage

Nach oben
       

Hallo an alle,
wer kann mir sagen wie ich etwas basteln kann das mir auf einem Formular die möglichkeit bietet mehrere Id´s anzuwählen (oder zu bestimmen 1+5+190 usw) die ich dann in einen Bericht(oder am besten Excel) einbinden kann,damit ich sie dann als e-mail versenden kann.
Am besten währe ein fenster (*box) die dann fragt "welche lfd soll in den Bericht" und dann ausführt und fertig.
Ich Danke euch allen im voraus

Daniel10
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
11. Sep 2004, 17:06
Rufname:
Wohnort: Hannover / Seelze


AW: Formular mit anfrage - AW: Formular mit anfrage

Nach oben
       

Hallo Daniel10,

hast Du schon mal darüber nachgedacht,
dieses mit einem Listenfeld mit Mehrfachauswahl zu machen,
in den du die zu Druckenden Datensätze auswählst
und dann dein Bericht mit den ausgewählten DS über der Filterfunktion anzeigen lässt...

So könnte dann z.B. der Code zum Drucken aussehen....
Code:
    Dim stDocName As String
    Dim i As Variant
    Dim Filter As String
   
    Filter = ""
    ' Hier werden Die markierten DS in Listenfeld ausgelesen
    For Each i In Me!Dein_Listenfeld.ItemsSelected
        If Not Filter = "" Then Filter = Filter & " OR "
        Filter = Filter & "(ID = " & Me!Dein_Listenfeld.Column(0, i)
    Next i
    stDocName = "Dein Bericht"
    DoCmd.OpenReport stDocName, acPreview, , Filter
Hilft es Dir weiter???

Gruß Helge

_________________
Unmögliches wir sofort erledigt, Razz
auf Wunsch wird gehext, Very Happy
nur Wunder dauern etwas länger... Embarassed
Eine Rückmeldung, gibt uns und allen anderen Auskunft, ob wir richtig lagen... Wink


Zuletzt bearbeitet von Helge am 14. Sep 2004, 00:03, insgesamt einmal bearbeitet
Daniel10
Gast


Verfasst am:
13. Sep 2004, 07:11
Rufname:

AW: Formular mit anfrage - AW: Formular mit anfrage

Nach oben
       

Daniel10 am 13. Sep 2004 um 06:49: hat folgendes geschrieben:
Hallo Helge,

Danke dir das könnte helfen,versuche es gleich einmal und gebe dann bescheid.............
1000 Dank
Grüße Daniel

Daniel10 am 13. Sep 2004 um 07:08 : hat folgendes geschrieben:
Hallo Helge,

also es klappt bestimmt......nur ich glaube ich habe einen Fehler gemacht...
1. kommt die Fehlermeldung:sie haben als einstellung der erreignis eigenschaft den Ausdruck nach Aktualisierung eingegeben das hat einen Fehler verursacht auserhalb einer Prozedur ungültig.
2. wie und wo muss ich den Filter setzten ,vieleicht kannst du mir den genauen vorgang sagen.

Ich Danke nochmal
Grüße Daniel

Habe noch was vergessen,der Code sieht jetzt so aus stimmt da alles?
Code:
    Option Compare Database
   
    Dim stDocName As String
    Dim Filter As String
   
    Filter = ""
    ' Hier werden Die markierten DS in Listenfeld ausgelesen
    For Each i In Me!ID.ItemsSelected
        If Not Filter = "" Then Filter Filter = Filter & " OR "
        Filter = Filter & "(ID = " & Me!ID.Column(0, i)
    Next i
    stDocName = "Zündkerze"
    DoCmd.OpenReport stDocName, acPreview, , Filter
Zündkerze mein Bericht
Id die erste spalte wo er anzeigen soll damit man auswählen kann
Grüße Daniel
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
14. Sep 2004, 00:01
Rufname:
Wohnort: Hannover / Seelze

AW: Formular mit anfrage - AW: Formular mit anfrage

Nach oben
       

Hallo Daniel,

erst mal muss ich gestehen,
dass ich einige fehler in meinem Code habe,
womit er ehe einem Fehler erzeugt hätte... Confused

hier ist er erst mal neu....
Code:
    Dim stDocName As String
    Dim i As Variant
    Dim Filter As String
   
    Filter = ""
    ' Hier werden Die markierten DS in Listenfeld ausgelesen
    For Each i In Me!ID.ItemsSelected
        If Not Filter = "" Then Filter = Filter & " OR "
        Filter = Filter & "(ID = " & Me!ID.Column(0, i) & ")"
    Next i
    stDocName = "Zündkerze"
    DoCmd.OpenReport stDocName, acPreview, , Filter
Leider kann ich noch nicht genau sagen,
wieso du deinem Fehler bekommst,...
aber versuch dem Code mal in einem Butten einzubauen....
und schreib dann mal was dann passiert....

Gruß Helge

_________________
Unmögliches wir sofort erledigt, Razz
auf Wunsch wird gehext, Very Happy
nur Wunder dauern etwas länger... Embarassed
Eine Rückmeldung, gibt uns und allen anderen Auskunft, ob wir richtig lagen... Wink
Gast



Verfasst am:
14. Apr 2006, 01:44
Rufname:


AW: Formular mit anfrage - AW: Formular mit anfrage

Nach oben
       

Hallo Helge,

ist zwar ewig alt der Trade aber ich habe heute auch ewig gebastelt und habs nun hinbekommen. Deine Variante bei Mehrfachauswahl in Listenfeldern und über Button Report starten war dann der Erfolg.

Bei mir kam aber auch erst ein Fehler nähmlich hier:
Code:
        Filter = Filter & "(ID = " & ID.Column(0, i)
Da war ein Klammer zu viel drin.
Code:
    Dim stDocName As String
    Dim i As Variant
    Dim Filter As String
   
    Filter = ""
    ' Hier werden Die markierten DS in Listenfeld ausgelesen
    For Each i In Me!Liste1.ItemsSelected
        If Not Filter = "" Then Filter = Filter & " OR "
        Filter = Filter & "Auftrag_Jahr = " & Me!Liste1.Column(0, i)
    Next i
    stDocName = "Rep_Auftrag"
    DoCmd.OpenReport stDocName, acPreview, , Filter

So klaptts Very Happy
Gruß Martin
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: Aus Abfrage auf ein Feld im Formular zugreifen 5 Olsen 1647 11. Jul 2005, 12:34
Willi Wipp Aus Abfrage auf ein Feld im Formular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter fuer SQL-Statement aus Formular 1 kuni 825 04. Jul 2005, 10:22
jens05 Parameter fuer SQL-Statement aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1238 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Formular --> Tabelle ? 6 AlexisM 836 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 733 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1042 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1245 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: parametrisierte Anfrage 1 netti 476 07. Dez 2004, 09:21
stpimi parametrisierte Anfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1978 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Add Record - Formular in ein Nebenformular 6 User007 927 27. Okt 2004, 11:49
Gast Add Record - Formular in ein Nebenformular
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1778 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
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!!!
 

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