Fletning af en post med standard dokument

Lav en forespørgsel som du kalder qryBrevTilKontakt og byg en flettefunktion op i et worddokument som du kalder C:\BrevMaster.doc.

Herefter lægger du denne kode ind på en knap og sørger for at lave reference til Word i VBA.

Private Sub WordFletKnap_Click()

    Dim W As Word.Application
    Dim WordMasterDoc As Word.Document, NewDoc As Word.Document
    Dim strSvar As String
    Dim WordTemplate As String
   
    Dim Msg, Style, Title, Svar
    WordTemplate = "C:\BrevMaster.doc"
    DoCmd.OutputTo acOutputQuery, "qryBrevTilKontakt", acFormatRTF, "C:\BrevFlet.rtf"
   
    Set W = New Word.Application
    W.Documents.Add WordTemplate
    W.Visible = True
    W.Activate
    Set WordMasterDoc = W.ActiveDocument
    WordMasterDoc.MailMerge.Destination = wdSendToNewDocument
    WordMasterDoc.MailMerge.Execute
    Set NewDoc = W.ActiveDocument  '--> "Fanger" det nye dokument
    WordMasterDoc.Close wdDoNotSaveChanges  '--> Lukker skabelonen
    W.WindowState = wdWindowStateMaximize
    Exit Sub

End Sub

det virker næsten... den tager jo alle kunder med... den skal kun tage den kunde som jeg har på skærmen, med over i word...

i din forespørgsel indsætter du følgende kriterie på fx kundenr. som så skal findes på din form som her hedder frmKundeliste.

forms!frmKundeliste!kundenr

Så tager den kun poster med som opfylder kriteriet.

Er nødt til at smutte nu. Håber det virker er ellers tilbage i aften
/rene

Har du fået det til at virke?

ikke helt.. min database er gået helt i sort.. jeg har lidt problemer med nogen relationer og noget dobbelt klik...
Noget du måske vil hjæpe mig med??

Det skal du nok oprette i et nyt sprøgsmål. Så vil der også komme flere kloge hoveder på banen.

Hvis du ser unormal adfærd så prøv at lave en repair under database tools, det hjælper nogen gange

Mvh
/rene

Tak for points :)