Office: Do...Loop mit Tastatur abbrechen

Hi

Ich habe den Code mit F8 durchlaufen. Die erste Fehlermeldung kommt bei "Reports("rptLaufzettel").Visible = False".
Der nächste Fehler bei:" Code"DoCmd.PrintOut , , , , rs!LaufzettelAnzahl. Hier werden alle DS des Forms dem Durcker zugewiesen.

Was meinst Du mit?

Oski ( Habe wohl zu früh aufgeben!)

 

Hallo Oski,

das war noch ein Fehler meinerseits. *eek.gif* DoCmd.OpenReport "rptLaufzettel", acViewPreview, , "AuftragID=" & Me!AuftragID

 

\@Nouba

Habe acViewPreview angepasst, funktioniert. Eines stimmt noch nicht ganz.
Ich habe insgesamten 40 DS, jedoch nur 4, bei denen Laufzettel gedruckt werden müssen.

Bei
Code:

gibt er 40 DS an den Drucker weiter und zählt dann LaufzettelGedruckt um 1 höher und dann geht er zum nächsten DS und macht dasselbe - also 160 Datensäte drucken.

Ich glaube wenn wir das noch lösen könnten, sind wir am Ziel.

Oski

 

Hallo Oski,

werden zur Zeit für die AuftragID 40 DS im UFO angezeigt? Worin unterscheiden sich die 4 von den restlichen 36 DS?

 

Hi

DS-Herkunft ist im HF und im UF die gleiche Abfrage.
Diese Abfrage enthält Total 40 DS.
Im HF habe ich ein Feld [Lieferwoche] wo ich eingebe für welche Woche ich die DS im UF anzeigen möchte. HF und UF sind über das Feld [Lieferwoche] verknüpft.

Oski

 

Warum stellst Du dieselben Daten zweilmal im Formular dar? *confused.gif*

Eine Möglichkeit wäre, eine ungebundene Kombobox zur Auswahl zu nehmen, in der gruppiert alle Lieferwochen vermerkt sind. Nach dem Aktualisieren schreibt man die RecordSource der UFo neu, indem man z.B. die SQL-Anweisung aufgrund der Anweisung neu bastelt.

Für Details stelle mal bitte den SQL-Text der Abfrage hierher.

 

Hi

Ich habe mir selber eine Falle gestellt.

Der ursprüngliche Gedanke war genau dieser, dass ich im Feld Lieferwoche die Woche eintragen kann und dann im Unterformular diese erscheinen. Doch mit der Zeit entstand ein Caos weils nicht funzte und dann.... Tja, jeder arbeitet mit seinen Möglichkeiten, Anfänger tun sich etwas schwerer. *wink.gif*

Nachfolgend der SQL auf dem das Form läuft:

SELECT tblAufträge.AuftragID, tblFertigstellung.Fertigstellung, tblAufträge.Jahr, tblAufträge.Lieferwoche, tblAufträge.WochentagID, tblWochentage.Wochentag, tblKunden.Kundenname, tblKunden.Ort, tblAufträge.ANummer, tblFront.Front, tblAusführung.Ausführung, tblAufträge.LaufzettelAnzahl, tblAufträge.LaufzettelGedruckt
FROM tblKunden INNER JOIN (tblAusführung INNER JOIN (tblFertigstellung INNER JOIN (tblFront INNER JOIN (tblWochentage RIGHT JOIN tblAufträge ON tblWochentage.WochentagID = tblAufträge.WochentagID) ON tblFront.FrontID = tblAufträge.FrontID) ON tblFertigstellung.FertigstellungID = tblAufträge.FertigstellungID) ON tblAusführung.AusführungID = tblAufträge.AusführungID) ON tblKunden.KundenID = tblAufträge.KundenID
WHERE (((tblAufträge.Lieferwoche) Like [Für welche Woche Laufzettel drucken?]))
ORDER BY tblAufträge.Jahr, tblAufträge.Lieferwoche, tblAufträge.WochentagID DESC , tblKunden.Kundenname, tblAufträge.ANummer;

Ich habe das Gefühl, dass ich aus dem UF ein HF machen sollte und das jetzige HF schmeissen.

Oski

 

Hallo Oski,

Wenn Du nur eine Filterung mit der Kombobox machst, kommst Du vermutlich damit schneller ans Ziel. In Don Karls FAQ sollte dazu in der 4er Serie das Nötige zu finden sein.