Åben form/brev på bestemt record

Glemte lige, pt ser min kode til at åbne dokumentet (men ikke navigere til rigtig record), sådan ud ...

Dim doc As Word.Document, wrdApp As Word.Application
On Error Resume Next
Set wrdApp = GetObject(, "word.application")
If Err.Number <> 0 Then
  Set wrdApp = CreateObject("word.application")
End If
wrdApp.Visible = True
Set doc = wrdApp.Documents.Open("document.doc")

I den forespørgsel der ligger til grund for dit brevfletningsdokument, kan du indsætte et kriterie der refererer til formularen:

=[Forms]![Formularnavn]![Feltnavn]

Hvis du indtaster kriteriet i f.eks et unikt felt (f.eks kundeid), skal du sikre, at feltet eksisterer både i forespørgslen og formularen. Når du åbner dit Word-dokument vil brevfletningen kun omfatte de poster, der matcher kriterierne.

En anden mulighed er, at overføre formularens data til Word uden brevfletning. nedenstående 2 procedürer åbner et word-dokument, og indsætter udvalgte felter fra formularen på de steder i word, hvor du har sat bogmærker. Det er naturligvis også en form for brevfletning, blot uden den tradiotinelle forespørgsel:

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("C:\document.doc")
Call InsertAtBookmark(WordDoc, "Bogmærke i Word", Me!Feltnavn i formularen)
objword.Visible = True
DoCmd.Hourglass False
End Sub


Function InsertAtBookmark(objWordDoc As Word.Document, strBookmark As String, strText As String) As Boolean
With objWordDoc.Bookmarks
If .Exists(strBookmark) Then
.Item(strBookmark).Range.Text = strText
InsertAtBookmark = True
End If
End With
End Function

woolbox > Hvordan går det, er dit problem blevet løsr?

Sorry mugs, den var forsvundet :)

Jeg har ærlig talkt ikke fået kigget på det, men så faktisk hellere at jeg bruger et færdiglavet dokument hvor alle fields er sat ind. Da jeg også får brug for at begrænse antallet af records til netop den "jeg står på" på forms og rapporter, vil jeg klart foretrække at løse det med en query.

Help? :)

woolbox > Som jeg skrev 3/4, indsæt et kriterie i din forespørgsel, der ligger til grund for fletningen:

=[Forms]![Formularnavn]![Feltnavn]

Virker ikke ...

Det fungerer - Du har lavet en fejl!