Kørsel af makro i 2 dele.

Problemet ligger i pkt 2, som overlader hele processen til Word, således at Access ikke længere har mulighed for at 'vente' på at handlingen afsluttes.

Det (til enhver tid) bedste forslag vil være at lave koden i VBA og i stedet åbne Word vha OLE-automation. Derved styres det hele fra Access og VBA er tillige langt mere fleksibelt både mht muligheder, men også mht at håndtere eventuelle fejl.

Med andre ord: drop makroerne og kom igang med VBA.

Søg efter brevfletning eller Word her på eksperten. Så finder du masser af eksempler på hvordan dette kan gøres fra VBA.

I VBA kan det se således ud:

MsgBox "Dette er den første MsgBox"
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim docname As String
MsgBox "Dette er den første MsgBox"
Const dir As String = "Sti til Worddokumentet efterfulgt af \"
Const ext As String = ".doc"
docname = dir & "Navn på Word dokumentet" & ext
On Error Resume Next
Set WordObj = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If WordObj Is Nothing Then
Set WordObj = GetObject("", "Word.Application")
End If
WordObj.Visible = True
AppActivate "Microsoft Word"
WordObj.Documents.Open docname
Exit Sub
MsgBox "Dette er den anden MsgBox"
DoCmd.OpenQuery "Forespørgslens navn"
err_open:
MsgBox "fejlkode: " & Err.Number

Husk at du skal have en reference til Word. I Access åbner du et kodemodul, og i menuen Funktioner (Tools) > References browser du ned igennem bibliotekerne og finder Word. Sørg for at der er sat et "flueben" i boksen i venstre side.