06. oktober 2005 - 10:21Der er
6 kommentarer og 1 løsning
Brevfletning med kommandoknap
Jeg har i en formular oprettet en kommandoknap til udskrivning af brev. Når jeg trykker på knappen kører den også fletningen igennem men dataene kommer ikke frem.
der kommer en fejl: Run-time error "5631! Word kunne ikke flette hoveddokumentet og datakilden, fordi dataposterne var tomme, eller fordi ingen af posterne opfylder kriterierne i din forespørgsel. Trykker jeg så på debug kommer stien: Private Sub Kommandoknap110_Click() Dim Wrd As New Word.Application Wrd.Visible = True Wrd.Activate Wrd.Documents.Open "F:\Grunde\Skabeloner_dot\Bekr på res u rabat.dot\" Set Wrd = Nothing
End Sub
HVis jeg så lykker programmet og starter det op igen og trykker på knappen begynder fletninge og så kommer alle dataerne frem.
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
Wrd.Documents.Open "F:\Grunde\Skabeloner_dot\Bekr på res u rabat.dot\" kan du ikke ændre det til en mappe som er simpelt navngivet Wrd.Documents.Open "F:\test\"
Jeg gemmer ikke dokumentet som flettes, og hvis den gemmes bliver den gemt som med et nyt navn. Flettedokumentet er en skabelon, derfor har jeg kaldt den *.dot
Når du skal lukke formularen for at få data med over i Word, tyder det på at tabellen ikke er opdateret når du fletter. Derfor er det nødvendigt at genforespørge inden du fletter. Dette gøres med en Requery:
Private Sub Kommandoknap110_Click() Dim Wrd As New Word.Application Wrd.Visible = True Wrd.Activate Wrd.Documents.Open "F:\Grunde\Skabeloner_dot\Bekr på res u rabat.dot\" Set Wrd = Nothing End Sub
Nu vil Access ganske vist stille sig på første post i forespørgslen. Men det må kunne gøres med noget kode:
Dim Wrd As New Word.Application, ID as long ID = ME![Din primærnøgleID] ME.Filteron = False Me.Requery Me![Din primærnøgleID].Setfocus docmd.findrecord ID Wrd.Visible = True Wrd.Activate Wrd.Documents.Open "F:\Grunde\Skabeloner_dot\Bekr på res u rabat.dot\" Set Wrd = Nothing
Der gik vist lidt kludder i det. Prøv med denne kode:
Dim Wrd As New Word.Application, ID as long ID = ME![Din primærnøgleID] ME.Filteron = False Me.Requery Me![Din primærnøgleID].Setfocus docmd.findrecord ID Wrd.Visible = True Wrd.Activate Wrd.Documents.Open "F:\Grunde\Skabeloner_dot\Bekr på res u rabat.dot\" Set Wrd = Nothing
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
