Office: (Office 2013) Word Dokument aus Access füllen

Hallo,

ich bin neu hier, und hab gleich eine Frage *Smilie
Bis jetzt hab ich relativ viel Erfahrung mit Datenbanken Access, SQL und Mysql.

Jetzt möchte ich Word Dokument aus Access füllen.
Das geht auch, nur mein Problem ist wenn ich das geöffnetes Word Dokument aus zweitem Access Formular oder Unterformular füllen möchte.
Ich müsste dem jetzt sagen dass er in das geöffnetes Word weiter schreiben soll, aber wie?

So sieht es bei mir aus:

Function fillword()

Set appword = CreateObject("Word.Application")
Dim doc As Word.Document
Dim Path As String
On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Set doc = appword.Documents.Open("C:\Painting\Procedure_DE.docx", , True)
With doc
.FormFields("txtclient").Result = Me.EndUserName
.FormFields("txtProject").Result = Me.project
.FormFields("txtpono").Result = Me.PONo

appword.Visible = True
appword.Activate
End With

Set doc = Nothing
Set appword = Nothing

End Function

:)

 

Wenn das Dokument geöffnet ist (was zu überprüfen wäre), erstellt man eine Referenz darauf z.B. so:
Code:

Insgesamt dürfte es aber ratsam sein, einmalig für die Anwendung das Dokument zu öffnen (global in der Anwendung statt privat in einem Formularcode) und die entsprechende Referenz in einer öffentlichen Variable (besser Property) vorzuhalten, so dass dann von verschiedenen Prozeduren/Formularen diese Referenz unmittelbar genutzt werden kann.

Eine andere Variante wäre, die notwendigen zu übertragenden Informationen an einer Stelle zu sammeln (Formular/Recordset) und dann in einem Rutsch zu übertragen.

 

Kleines Beispiel wie es funktionieren könnte:

Code:

LG Markus

 

Im Code wird unterstellt, dass es nur eine offene Wordinstanz gibt, wenn Word offen ist. Das könnte auch anders sein.

 

Danke, das funktioniert.

jetzt hab ich noch folgendes Problem/Frage
Die Abfrage kann mehrere Ergebnisse liefern.
z.B.
SerialNo=123
SerialNo=234
Also von der Logik brauch ich da ein Loop

i=1
.FormFields("txtSerialNo(i)").Result = Me.SerialNo(i)
i=i+1

jeder Datensatz müsste dann im txtSerialNo1, txtSerialNo2, txtSerialNo3..
geschrieben werde.
So viel zur meine Logik *idee

Nur wie macht man so was im VBA *entsetzt

 

Du hast recht.
Dann müsste man hier nur noch ergänzen:
doc.Application.Visible = True


dann kann man das Dokument auch sehen, falls es geöffnet werden muss.
Dann muss man auch nicht prüfen, ob es bereits geöffnet ist.

LGM

 

Hier kann man nur raten worum es geht.
Hast du überhaupt Erfahrung im Umgang mit VBA?
Bitte um eine verständliche Erklärung und ab wo du ein Problem hast.

LGM

 

Sorry, dass ich es so unklar beschrieben habe.
Nein, mit VBA hab ich bis jetzt keine Erfahrung *bawling
SQL, Access, PHP, Typo3, 3D CAD..... aber VBA war noch nicht da.
Das mit dem:
i=1
.FormFields("txtSerialNo(i)").Result = Me.SerialNo(i)
i=i+1
In dem Fall ist i eine Variable die bei jedem durchfaul um 1 addiert wird, dann wird noch geprüft ob Me.SerialNo(i)

 

Hallo,

du musst den Index mit dem Feldnamen verketten, schließlich ist er doch Teil des Namens, wenn ich das richtig verstanden habe.
Code:

Oder worüber soll die Schleife laufen? Was ist "Me.SerialNo(i)"?

 

Hallo,

Me.SerialNo ist Datenfeld aus Access.
txtSerialNo ist Bookmark im Word Dokument.

 

Warum indizierst du es dann?
Woher sollen die Daten denn kommen, die du in das Word-Dorkument einfügen willst?
Wenn es eine Abfrage ist, so brauchst du ein Recordset, dass du durchlaufen kannst.

Hast du dafür auch 10 Formularfelder angelegt?

 

Das Hauptproblem wird sein, dass Gerar wohl einen Datensatz liest, dann ein Word-Dok ausfüllt, abschliesst, den nächsten Datensatz liest und ein neues Word-Dok aufmacht.

Die Logik müsste aber wohl sein, dass er ein neues Word-Dok aufmacht, dann alle Datensätze liest, die in dasselbe Dok müssen, z.b. eben die Serial-Nr 1 bis 10, die in 10 Datensätzen ist.
Und erst bei Wechsel - was den Wechsel bewirkt muss Gerar wissen - das Word-Dok abschliesst und wieder ein neues aufmacht.

 

Hi,

Es macht eher wenig Sinn hier x-Bookmarks vorzuhalten, die je nach Anzahl befüllt werden.
Idealerweise füllt man hier einfach eine Tabelle mit den Daten aus dem Recordset. Dann ist es auch vollkommen wurscht ob es 10 oder 100 Datensätze sind, die zu schreiben sind.
Nach jedem Loop wird die Tabelle um eine weitere Zeile ergänzt, solange es Datensätze gibt.