Fragebögen aufbauen/trimmen

[claudia2324]

Ups, das hat sich wieder überschnitten... Ich lasse meinen Beitrag trotzdem erst mal noch drin...

[claudia2324]

@ DF6GL: Vielen Dank!  

Ich finde leider nicht den Trick, wie du die Textfelder in den Blankos sauber bekommen hast?

Bei der bearbeitet Test-DB von dir klappt es jetzt leider nicht mehr mit dem Druck der personalisierten Fragebögen (Datensätze werden nicht übergeben und unten bei der Versionierung steht Blanko)  ... Was muss ich da noch bedenken?

Dankeschön nochmal!!  

Claudia

[DF6GL]

Hallo,



der Trick besteht darin, per Code in passenden Ereignissen das entspr.Textfeld zu befüllen.  Die Text-DB ist ja nun nur ein Beispiel...  Die Datenherkunft des Berichtes habe ich modifiziert, (where 1=2 oder where false)  , damit ich das Verhalten des Berichtes testen kann.  Du mußt schon selber die "Tricks" in Deine originale DB übernehmen.

[claudia2324]

Hallo,

das ganze haut nur hin mit der Versionsnummer, wenn ich den Bericht in der Access-Ansicht geöffnet habe. Dann wird beim PDF-Druck korrekt mit der Versions versehen, also bei dem "Druck" ins PDF mit den personalierten Daten erscheint dann "Version Teilnehmer". Will ich den Druck ins PDF erzeugen ohne die Acess-Berichtansicht geöffnet zu haben vorher, steht "Version Blanko" in den personalisierten Bögen.

Wie kann man das denn noch umgehen? Also korrekter Druck der Version "Version Teilnehmer" direkt ins PDF ohne den Bericht öffnen zu müssen?

Komm nicht drauf 

VG

Claudia

[DF6GL]

Hallo Claudia,


ja, das ist nachvollziehbar, weil beim direkten Druck nicht alle Ereignisse auftreten und somit die dazugehörenden Prozeduren nicht ausgeführt werden...


Ich habe jetzt keine Lösung für dieses Problem in Deiner Umgebung..

Wie gesagt, da wird viel getrickst und ich muss bei Gelegenheit erst noch mal forschen. Ad hoc fällt mir aber die Verwendung eines Openargs-Parameters ein, oder evtl die Zählung (mit Dcount) der Tabellen-Datensätze mit Hilfe der Bericht-Recordsource...

[claudia2324]

Hallo,

@df6gl

Falls du auf eine Lösung triffst, wäre das sehr interessant für mich nach wie vor.

das ganze haut nur hin mit der Versionsnummer, wenn ich den Bericht in der Access-Ansicht geöffnet habe. Dann wird beim PDF-Druck korrekt mit der Versions versehen, also bei dem "Druck" ins PDF mit den personalierten Daten erscheint dann "Version Teilnehmer". Will ich den Druck ins PDF erzeugen ohne die Acess-Berichtansicht geöffnet zu haben vorher, steht "Version Blanko" in den personalisierten Bögen.

[/size]

Ein weiteres Anliegen war ja noch die immer gleiche Platzierung des Gesamturteils und der Kopfzeile über alle Ratingbögen für die unterschiedlichen Kurse hinweg. Hat jemand hier eine Idee, wie das realisiert werden kann?

Würde mich über Tipps freuen. 

VG

Claudia

[DF6GL]

Hallo,

zeig mal den kompletten Code, mit dem Du den Bericht als PDF-Datei "druckst"....

[claudia2324]

Hallo,

Code PDF an Blanko:

Private Sub Blanko_Pruefb_pdf_Click()
Dim stDocName As String, strSQL As String
   If Me!Kblanko >= 10 Or Me!Kblanko <= 0 Then GoTo fehler Else GoTo Blanko_Kursliste
 
Blanko_Kursliste:
   strSQL = "SELECT Kurse_Abfrage.Raumnr, Kurse_Abfrage.Kursnr, Kurse_Abfrage.ID, Kurse_Abfrage.Nachname, Kurse_Abfrage.Vorname FROM Kurse_Abfrage Where 1=2"
   stDocName = "abf_Kurs_" & Me!Kblanko
   CurrentDb.QueryDefs(stDocName).SQL = strSQL

   DoCmd.OutputTo acOutputReport, "Kurs_" & Me!Kblanko, acFormatPDF, CurrentProject.Path & "\Raum-" & Me!Kblanko & "_" & "Blanko" & Format(Date, "\_yyyy-mm-dd") & ".pdf"
   Exit Sub
fehler:
   MsgBox "xxx!"
   Exit Sub

End Sub

Code an personalisierten Bericht:

Private Sub Pruefb_pdf_Click()
On Error GoTo fehler
Dim stDocName As String, strSQL As String

   If IsNull(K1) Or IsNull(K2) Or IsNull(K3) Then GoTo fehler Else GoTo Kursliste

Kursliste:
   strSQL = "SELECT Kurse_Abfrage.Raumnr, Kurse_Abfrage.Kursnr, Kurse_Abfrage.ID, Kurse_Abfrage.Nachname, Kurse_Abfrage.Vorname FROM Kurse_Abfrage Where [Raumnr]='" & Me!K1 & "'"

   stDocName = "abf_Kurs_" & Me!K2

   CurrentDb.QueryDefs(stDocName).SQL = strSQL

   DoCmd.OutputTo acOutputReport, "Kurs_" & Me!K2, acFormatPDF, CurrentProject.Path & "\Kurs-" & Me!K2 & "_" & "Raum-" & Me!K1 & Format(Date, "\_yyyy-mm-dd") & ".pdf"
   Exit Sub
   
fehler:
   MsgBox "xxx!"
Exit Sub

End Sub[/size]

VG Claudia

[DF6GL]

Hallo,

anbei..

[Anhang gelöscht durch Administrator]

[claudia2324]

Dankeschön erst mal... 

[claudia2324]

Hallo,

inzwischen klappt das alles wunderbar mit dem Ausblenden etc. bestimmter Text- und Bezeichnungsfeldern. Danke nochmal

Eine Frage war aber noch nicht ganz beantwortet.

Kann ich Felder in einem Bericht per VBA immer an exakt die selbe Stelle drucken lassen? Drucken erst in pdfs und dann werden diese an die Druckerei übergeben.

Also in meinem Fall alle Inhalte der Kopfzeile (Kursnummer, Raumnummer, Kennummer, Teilnhemer-ID -> alles als Strichcode sowie Nachname, Vorname) und des Gesamturteils (Wertung von sehr schlecht bis sehr gut durch ankreuzen der Optionsfelder, im Detailbereich angelegt). Es geht darum sicherzustellen, dass auf jeden Bericht die Positionen exakt identisch sind. So kann dann die OMR-Scannsoftware mit nur einem Template alle Bögen scannen. Das erleichtert die Arbeit unter dem bei den Test vorherrschenden Zeitdruck enorm.

Man hätte dann vielleicht eine Berichtsvorlage direkt in Access und passt diese dann entsprechend der Vorgaben für die Prüfungen an.

Lässt sich so etwas realisieren?

Ich würde mich sehr über hilfreiche Antworten freuen.

VG

Claudia

[DF6GL]

Hallo,

ein Bericht druckt die Daten immer an dieselbe Stelle(n), wenn man keine besonderen Vorkehrungen (Vergrößerbar/Verkleinerbar bei unterschiedlich "langen" Daten ,  oder Maßnahmen zur Verschiebung der Steuerelemente) trifft.   Insofern ist das, was Dir vorschwebt, schon standardmäßig der Fall.

Wenn Du mehrere Berichte herstellst, ist es sinnvoll, zunächst den ERSTEN Bericht GENAU zu designen und den dann zu KOPIEREN und an den nötigen Stellen anzupassen. 

[ebs17]

Ein wenig muss man aufpassen, da Berichtsdruck auch ein wenig abhängig vom verwendeten Drucker ist, z.B. bei Mindestwerten für Ränder.

MfGA
ebs

[DF6GL]

Hallo,

Drucken erst in pdfs und dann 

lässt vermuten, dass immer derselbe PDF-Drucker benutzt wird.

[claudia2324]

Hallo und vielen Dank für die Antworten!  

Ich habe hierzu noch eine Frage 1) und ein weiteres Anliegen 2).

1)
Das mit der Berichts-Vorlage, welche dann entsprechend angepasst wird, scheint auch ausreichend zu sein für diese Aufgabe. Solange es darum geht, dass die Optionsfelder immer an der selben Stelle und korrekt ausgerichtet untereinander stehen. Kann man sich denn einmal die Koordinaten der gesetzten Feldtypen anzeigen/ausgeben lassen? -> Einfach für die Dokumentation des Ganzen.


2) (siehe angehängte Datei (Beispiele_Optionsfelder.pdf) mit Beispielen)

Im angehängten Dokument sieht man bei Bsp. 1 + 2 Optionsfelder in denen einmal im Kreis m bzw. w steht und einmal Zahlen von 1 bis 0.
Im Bsp. 3 sollen die Kreise kleiner sein und um einige Optionsfelder ein eckiger Bereich grau hinterlegt sein.

Tja, sieht dann wohl so aus, als wenn da doch ggf. noch mit VBA nachgeholfen werden muss? Kommt man hier an Grenzen oder ginge das theoretisch zu lösen, auch wenns einmal mehr Aufwand wäre? Also einmal umkringelte Zahlen bzw. Buchstaben und kleinere grau umkästelte Kreise?

Prio hat aus meiner Sicht vor allem die Umsetzung des Bsp. 3.

Bei den Bsp. 1 und 2 würde ich auch gerne nochmal intern klären, ob es nicht auch mögl. ist die ID auf den entsprechenden Fragebögen anders einzutragen. Ich frage mich, ob diese Optionsfelder auch gescannt werden und ich kann mir kaum vorstellen, dass die OMR-Scann-Software umkreiste Zahlen als gekreuzt oder empty erkennen kann?! Also erst mal klären, warum das ganze so aussehen muss... Aber dennoch wäre es gut zu wissen, inwieweit sich solche Optionsfelder in Access realisieren lassen.

Würde mich sehr über eure Tipps freuen.

VG

Claudia