Office: (Office 2003) Übertragung Ja/Nein Feld in Serienbrief

Hallo Andreas,

ich will versuchen, dir die Verwendung des Codes aus dem Link im eigenen Projekt zu verwenden.
http://www.ms-office-forum.net/forum...ief+aus+access

Kurz gesagt, du musst eigentlich nur ein paar Namen und den SQL-Code anpassen. Hier etwas ausführlicher:

1. Erstelle mit Hilfe des Abfrageeditors in Access eine Abfrage, die die benötigten Felder, die du auch im Serienbrief brauchst, enthält. Speicher die Abfrage unter einem entsprechenden Namen.

2. Erstelle den Serienbrief und verbinde ihn mit der Datenquelle, das ist die Abfrage die du gerade gespeichert hast. Füge dann die in der Datenbasis vorhandenen Seriendruckfelder in deinen Serienbrief ein.

Jetzt müsste ein (statischer) Seriendruck bereits klappen, am besten ausprobieren.

3. Den Serienbrief als Word-Vorlage speichern, achte darauf dass er die Dateiendung ".dot" erhält.

4. In deiner Access-Datenbank solltest du jetzt ein Formular erstellen (gibt es bestimmt schon), dass ungefähr die Daten anzeigt, die auch im Serienbrief verwendet werden sollen. Wenn es bspw. Adressen sind, dann wird es bestimmt schon ein Formular zur Pflege dieser Adressen, oder zur Suche nach Adressen geben. Auf dieses Formular setzt du einen neuen Button.

5. Dem neuen Button weist du beim Ereignis "Beim Klicken" den Code aus dem Link zu. Einfach Copy&Paste, die Anpassung an deine Bedürfnisse kommt gleich.

Im VBA-Code musst du nun noch ein paar Sachen ersetzen.

6. Den Namen "QryAnschreiben" ersetzt du mit dem Namen der Abfrage, die du als Erstes erstellt hast.

7. Den Namen "Serien_Anschreiben.dot" ersetzt du mit dem Namen der Vorlage, die du vorher gespeichert hast.

8. Den SQL-Befehl ersetzt du natürlich auch, das ist der Teil "strSQLAbfrage = "SELECT ...". Dafür einfach die Abfrage, die du als Erstes gespeichert hast, in der SQL-Ansicht öffnen. Dort den Befehl kopieren und im Code einfügen.

9. Letzte Anpassung: Die richtigen Daten suchen. Das passiert im Code an der Stelle "VarKursNr = FrmKursNr". Die Variable VarKursNr wird im SQL-Befehl in einer WHERE-Bedingung verwendet. Die Zeile kannst du eigentlich komplett löschen, wir machen das etwas anders.

Nehmen wir mal an, du befindest dich in einem Formular für Adressen, und weiter dass jede Adresse durch eine eindeutige ID gekennzeichnet ist(AdressID). Dann würdest du deinen SQL-Befehl, den du bereits kopiert und eingefügt hast, noch wie folgt anpassen müssen:
"alter" Luftcode:
Code:

angepasster Luftcode:
Code:

Müsste eigentlich so klappen und ist auf jeden Fall machbar, auch ohne Wissen von VBA. Kannst dich ja mal dran versuchen und noch mal hier nachfragen, wenn was nicht klappt.

 

Hallo Dave,
vielen Dank für die ausführliche Erklärung.
Die ersten Punkte habe ich bislang so gemacht, nur habe ich den Serienbrief bislang nicht als dot gespeichert.
Werde versuchen, anhand Deiner Erklärung voranzukommen - kann aber ein paar Tage dauern, da ich zurzeit mächtig eingebunden bin. Sobald ich es versucht habe, werde ich berichten.
Gruß
Andreas

 

Hallo Dave,
habe es gestern Abend mal versucht und bin Deiner Anleitung gefolgt.
Nach dem Kopieren der SQL-Abfrage in das Beispiel habe ich es vom Format her bezüglich der Übersichtlickeit dem Beispiel angepasst und am Ende einer Zeile " & _ eingefügt. Ebenso am Anfang das ". Sobald ich nun aber das ganze speichere, wird der Text rot.
Ich habe anschließend versucht am Ende die Where-Funktion miteinzubauen.
Wenn ich Deinen Punkt 9 nun richtig umsetzen würde in dem vorhandenen Beispiel, dann müsste doch AdressID mit KursToPerson.Status und Feld1 mit Kurse.* übreinstimmen, oder?
Jedenfall bekomme ich beim Versuch Word über den Button zu öffnen einen Syntaxfehler beim Kompilieren. Mein

"SELECT tblErfassung.lfdNr_Erf, tblErfassung.Aktenzeichen, "

bleibt rot.
Oder müsste ich für den Teil

"SELECT Date()+14 AS Fälligkeit"

aus dem Beispiel
etwas anderes eingeben?
Danke
Gruß
Andreas

 

Hallo Andreas,

rot = Syntax-Fehler, also poste doch mal bitte deinen gesamten SQL-String aus dem Code oder noch besser den gesamten von dir angepassten Code.

 

Hallo Dave,
hab es gelöst. Hatte "" statt ' ' gesetzt. Nach dem Austausch hat es gefunzt.
Bis auf die tatsache, dass das Word Fenster nicht in den Vordergrund geholt wird, läuft es nun.
Gruß
Andreas

 

Hallo Andreas,

dabei könnte Dir die Funktion AppActivate behilflich sein. Details findest Du hier:
vb@rchiv · Befehlsreferenz · AppActivate-Anweisung

HTH

 

Ich verwende diese Lösung auch in einer DB und das Word-Fenster erscheint dort ohne mein Zutun automatisch im Vordergrund. Im Code gibt es nämlich diese Stelle:
Code:

Check mal deinen Code, was an der Stelle bei dir steht ...

 

Hallo Dave,
das hatte ich schon mit aufgenommen als Du mir Dein Bsp geschickt hattest.

Also mein Code lautet mittlerweile so:

Code:

 

Hallo Thomas,
verstehe ich es richtig, dass ich quasi eine Zeile

AppActivate "Word"

einfügen müsste? Ich habe es grad am Ende meines Codes vor dem End Sub versucht, aber das ändert nichts.
Außerdem habe ich es nach

wrdApp.Visible = True

versucht, aber da bekomme ich immer einen Debuggen-Fehler
Hast Du noch eine Idee?
Gruß
Andreas

 

Hallo!

mir ist in Deinem Code diese Zeile aufgefallen:

Auf diesem Weg deklarierst Du nur die Variable wrdDoc vom Typ Object. Die Variable wrdApp wird auf diesem Weg vom Typ Variant deklariert.

Um solche "Unfälle" zu vermeiden habe ich mir angewöhnt, nur eine Variable in einer Zeile zu deklarieren:
Code:

CU

 

Hallo Thomas,
danke für den Hinweis. Habe es geändert, aber das brachte mich bei der Lösung des Problems nicht weiter. Word bleibt weiterhin im Hintergrund.
Ist das

AppActivate "Word"

nur ander falschen Stelle?

Gruß
Andreas

 

Hallo Andreas,

ich vermisse einige Codestellen bei mir, die es im Originalcode gibt:
Code:

Ohne diesen Teil bleibt es eine statische Lösung, d.h. die Abfrage ändert sicht nicht, dein SQL-Code wird also gar nicht ausgeführt.

Wegen deines Problems, dass Word im Hintergrund bleibt, fällt mir aber leider nichts auf. Ist komisch ...

 

Hallo Dave,
ich hatte das erst mit drin. Nur wurde mir, sobald ich den Code in meinem Formular ausgeführt hatte, meine QrySerienbrief gelöscht, aber kein Ersatz geschaffen. Ohne diesen Teil greift Word auf meine Abfrage zu.
Oder lag es ggfs. an etwas anderem? Bin halt leider nicht so firm in VB und versuche mir aus den Hilfen, etwas zusammenzubasteln.
Gruß
Andreas

 

Das Löschen übernimmt db.QUeryDefs.Delete, das Neuanlegen db.CreateQueryDef.

Wo hast du die Info her, dass die Abfrage gelöscht sei? Wenn du da nur im Db-Container guckst, dann drück doch mal F5. Wenn du db.QUerydefs durchsuchst, dann lass db.Querydefs doch mal refreshen.

Im übrigen würde es reichen, die SQL der Abfrage zu ändern. Dann fällt das Gehampel mit Löschen von QryAnschreiben und Neuanlage von ebenfalls QryAnschreiben weg. Letztlich ändert sich nur die SQL.

Code:

 

Hallo Andreas,

ich habe gerade noch ein bisschen mit AppActivate experimentiert. Bei mir funktioniert es wie erwartet.

Bitte poste doch noch einmal Deinen aktuellen Code incl. dem AppActivate. (Auf den vollständigen SQL-String darfst Du gern verzichten.*wink.gif* )

CU