Inhalte aus Word-Formularfeldern in Access Datenbank schreiben

Hi,

ich habe eine dot-Vorlage erstellt, in der es mehrere Formularfelder gibt. Diese sollen mittels Knopfdruck (in Tabelle speichern) in eine Access-Datenbank gespeichert werden.

Ich hatte mal eine ähnliche Aufgabe und habe versucht das Makro anzupassen, leider erfolglos.

Hier mein Code:

Sub speichern()
On Error Resume Next
frmSaveData.Show
End Sub

Sub Transfer_Data()
Dim db As DAO.Database
Dim strSQL As String 'SQL-String
Dim aFN(4) As String 'Array mit 5 Feldern

With ActiveDocument
aFN(0) = .FormFields("Eingang_Poststelle").Result 'Eingangsdatum Poststelle
aFN(1) = .FormFields("Eingang_Abteilung").Result 'Eingangsdatum Abteilung
aFN(2) = .FormFields("F_nnam").Result 'Nachname Betroffener
aFN(3) = .FormFields("F_vnam").Result 'Vorname Betroffener
aFN(4) = .FormFields("F_kvnr").Result 'KVNR Betroffener
End With

Set db = DBEngine.Workspaces(0).OpenDatabase("c:\ws_pv.mdb")
strSQL = "insert into tblWS_PV (kvnr, chg_date, eingang_poststelle, eingang_abteilung, name_vers, vorname_vers) " & _
"values ('" & aFN(4) & "', '" & Date & "', '" & _
aFN(0) & "', '" & aFN(1) & "', '" & _
aFN(2) & "', '" & aFN(3) & "')"

db.Execute (strSQL)
Unload frmSaveData
MsgBox ("Es wurde " & db.RecordsAffected & " Datensatz gespeichert.")
db.Close
End Sub

Ich habe das Ausführen des Makros an ein Formularfeld geknüpft und das geht auch. Die Datenbanktabelle gibt es natürlich auch.

Ich hoffe ihr könnt mir helfen.

Danke.


mandy