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 :)
Hallo Sunny,
hier käme wohl eine Lösung mit Hilfe eines Word-Serienbriefs in Frage.
wie genau gehe ich daran ? :)
Ich würde da einfach mal nach "Access Word Serienbrief" googeln.
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