Formular mit Button der Daten in Word einfügt und Druckt.

[SSunny5]

Hallo Liebe Mitglieder.
Ich habe eine Frage, folgendes:

Ich möchte in access einen datensatz in deine tabelle einfügen (z.B über ein Formlar) und dann einen Button in das Formular integrieren der die Daten dann an bestimmte stellen in ein vorhandenes Text-Dokument einfügt. (Geht darum AGB's zu personalisieren) und dann druckt.

Kann mir jemand Helfen? Ich habe in Access schon die Tabelle für die Daten und ein Formular erstellt in die man die Daten direkt eingeben kann.

Jetzt geht es darum die daten in das vorhandene dokument per cklick einzufügen und dann direkt zu drucken..

Ich wäre für jede Hilfe sehr dankbar.

Freundliche Grüße

Sunny

[MaggieMay]

Hallo Sunny,

hier käme wohl eine Lösung mit Hilfe eines Word-Serienbriefs in Frage.

[SSunny5]

wie genau gehe ich daran ?

[MaggieMay]

Ich würde da einfach mal nach "Access Word Serienbrief" googeln.

[mohab]

Hi Sunny,

ich habe hierzu eine Lösung gefunden die per VBA code eine Wordvorlage aufruft, und dort die Inhalte des Formulars einfügt. Hierzu musst du lediglich irgendwo dein Wordformular ablegen, und mit entsprechenden "Textmarken" versehen die genau so heißen wie deine Datenfelder.
code:
Private Sub [deineSchaltfläche]_click()
Dim objword As Object
Dim wdDok As Object
Dim rs As DAO.Recordset, feld As DAO.Field
     Set rs = Me.Recordset
     Set objword = CreateObject("Word.Application")
     objword.Visible = True
     objword.WindowState = 1
     Set wdDok = objword.Documents.Add(Template:="[dein pfad und Name der wordvorlage")
     For Each feld In rs.Fields
         If wdDok.Bookmarks.Exists(feld.Name) Then
             If Not feld.Type = 11 Then
                 If IsNull(feld.Value) Then 'Kein Feldwert
                     'textmarke leer lassen
                     wdDok.Bookmarks(feld.Name).Range.Text = ""
                   Else
                     'Wenn Feldwert vorhanden, dann Textmarkenfeld substituieren
                     wdDok.Bookmarks(feld.Name).Range.Text = feld.Value
                 End If
             End If
         End If
     Next feld
     Set rs = Nothing
     Set wdDok = Nothing
     Set objword = Nothing

End Sub

Grüße,
mohab