Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word-Dokument aus Access-Formular erstellen
zurück: Überprüfung auf richtigkeit weiter: Bedingung beim Öffnen aus einem Unterformular 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
DaniGee
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2007, 13:43
Rufname:
Wohnort: München

Word-Dokument aus Access-Formular erstellen - Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hallo,

ich muss aus einem Access-Formular einen Geschäftsbrief(Word-Dokument, siehe anbei) generieren, der sich seine Infos automatisch aus dem Access-Formular zieht. (Thema: Standortmeldungen an Arbeitgeberverbände). Hierzu habe ich in dem Word-Dok. Textmarken erstellt und bei Access einen Befehlsbutton mit folgendem Code eingefügt. Hier ein Auszug:
Code:
Private Sub Drucken_Click()
On Error GoTo Err_Drucken_Click
    Dim Word As Word.Application
'    Dim unserz As String
   
    '*tb_Dateien
    Vorlage_Meldung_AGV = DBEngine(0)(0).OpenRecordset( _
                              "SELECT Speicherort " & _
                                "FROM tb_Dateien " & _
                               "WHERE Dateiname = 'Vorlage_Meldung_AGV'", _
                                                       dbOpenDynaset)(0)
    Set Word = CreateObject("Word.Application")
    With Word
        .Visible = True
        .Documents.Open (Vorlage_Meldung_AGV)
        .ActiveDocument.Bookmarks("KFIRMENNAME").Select
        .Selection.Text = Me!Firmenname
        .ActiveDocument.Bookmarks("KABSABTEILUNG").Select
        .Selection.Text = Me!Absender_Abteilung
        .ActiveDocument.Bookmarks("KABSPLZSTADT").Select
        .Selection.Text = Me!Absender_PLZ_Stadt
        .ActiveDocument.Bookmarks("AGV").Select
        .Selection.Text = Me!Arbeitgeberverband
        .ActiveDocument.Bookmarks("ERKLAERUNG").Select
        .Selection.Text = Me!Erklaerung
    End With
Exit_Drucken_Click:
    Exit Sub
Err_Drucken_Click:
    MsgBox Err.Description
    Resume Exit_Drucken_Click
End Sub
Allerdings sind bei mir nicht alle Felder (bspw. das Formularfeld "Erklaerung" oder die Word-Textmarke "ERKLAERUNG") im Formular ausgefüllt. Gerade für diese Felder bekomme ich immer eine Fehlermeldung (Unzulässige Verwendung von Nullen!"). Wie muss ich meinen Code an der Stelle umschreiben,
Code:
        .ActiveDocument.Bookmarks("ERKLAERUNG").Select
        .Selection.Text = Me!Erklaerung
damit Access prüft ob in dem Formularfeld ein Eintrag vorliegt und sollte dies nicht der Fall sein, die Textmarke einfach leer macht (also quasi ein Leerzeichen setzen).

Hoffe auf baldige Antworten, da ich ein wenig unter Zeitdruck stehe. Danke! Wink

Grüße DaniGee



Vorlage_Meldung_AGV_bsp.doc
 Beschreibung:

Download
 Dateiname:  Vorlage_Meldung_AGV_bsp.doc
 Dateigröße:  36.5 KB
 Heruntergeladen:  51 mal

steffen0815
VBA-Programmierer


Verfasst am:
30. Apr 2007, 14:00
Rufname:


AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hallo,
für sowas gibt es die Nz-Funktion
Code:
        .Selection.Text = Nz(Me!Erklaerung)

_________________
Gruß Steffen
DaniGee
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2007, 14:12
Rufname:
Wohnort: München

AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Es funktionier - vielen Dank steffen!

Hast du zufällig noch eine Idee, wie ich ein Kontrollkästchen aus einem Access-Formular in ein Word-Dokument übernehmen kann? (Hierbei selbstverständlich auch, ob das Kästchen angekreuzt ist oder nicht)

Wäre echt toll Wink

GRüße DaniGee
steffen0815
VBA-Programmierer


Verfasst am:
30. Apr 2007, 14:27
Rufname:

AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hallo,
was hast du denn im Worddokument dafür vorgesehen, ein Formularfeld, ein Text ...

_________________
Gruß Steffen
DaniGee
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2007, 14:48
Rufname:
Wohnort: München


AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hi,

habe im Word-Dokument auch ein Kontrollkästchen (aus der Symbolleiste "Formulare") eingefügt.
Name: Angemeldet_am

Hast du eine Idee dafür?

Gruß DaniGee
steffen0815
VBA-Programmierer


Verfasst am:
30. Apr 2007, 14:54
Rufname:

AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hallo,
Code:
        .ActiveDocument.FormFields("Angemeldet_am").CheckBox.Value = True ' False

_________________
Gruß Steffen
DaniGee
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2007, 15:15
Rufname:
Wohnort: München

AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hi Steffen,
hab deinen Code ausprobiert, aber leider funktioniert es nicht (Das angeforderte Element ist nicht in der Sammlung vorhanden).
Hab leider aber auch einen falschen Kontrollkästchen-Namen angegeben. Hier zur Info:
Kontrollkästchen im Formular: Anmeldung_Niederlassung
Kontrollkästchen/Textmarke im Word-Dokument: Anmeldung

Liegt er vlt daran, dass es nicht funkt., weil ich den Namen des Kontrollkästchens aus dem Formular nirgends im Code angegeben habe.

Hast du eine Idee, welchen Code ich hierfür bei dem Befehlsbutton "Drucken" hinterlegen muss?

GRüße DaniGee
steffen0815
VBA-Programmierer


Verfasst am:
30. Apr 2007, 15:30
Rufname:

AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Hallo,
du musst schon die Textmarke des Kontrollkästchens FormFields("WordTextName") anpassen Wink
Code:
        .ActiveDocument.FormFields("Anmeldung").CheckBox.Value = me![Anmeldung_Niederlassung]

_________________
Gruß Steffen



Zwischenablage.png
 Beschreibung:
 Dateigröße:  11.56 KB
 Angeschaut:  1406 mal

Zwischenablage.png


DaniGee
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2007, 15:42
Rufname:
Wohnort: München


AW: Word-Dokument aus Access-Formular erstellen - AW: Word-Dokument aus Access-Formular erstellen

Nach oben
       Version: Office 2003

Perfekt!!
Funktioniert alles. Herzlichen Dank

DaniGee
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: Adressdatenbank erstellen 1 MoellerCH 3805 04. Feb 2006, 10:41
blicki Adressdatenbank erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: tabellen automatisch erstellen 6 integral logistics 775 01. Feb 2006, 17:15
integral logistics tabellen automatisch erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Code erstellen 2 Frosch73 578 30. Nov 2005, 14:32
Frosch73 Code erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: 1:1-Beziehung erstellen / Fehlermeldung 3201 6 Silvercreast 2196 17. Okt 2005, 04:55
Timbo 1:1-Beziehung erstellen / Fehlermeldung 3201
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung mit Mastertabelle erstellen 1 Mucro 2910 23. Sep 2005, 19:23
stpimi Beziehung mit Mastertabelle erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: beziehungen erstellen ? 5 _nadine_ 667 09. Aug 2005, 15:20
MasterPRO beziehungen erstellen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungsproblem bzw. erstellen von Tabellen 24 Katja2 1988 20. Jul 2005, 22:25
Katja2 Beziehungsproblem bzw. erstellen von Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensaetze erstellen 3 ITHeiko 777 24. Jun 2005, 12:54
Willi Wipp Datensaetze erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Bericht über best. Zeitraum erstellen 22 JensS 2813 25. Mai 2005, 15:38
mapet Bericht über best. Zeitraum erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungen erstellen 3 Dirk_B 668 17. Jun 2004, 12:30
Dirk_B Beziehungen erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen