07. november 2001 - 21:45Der er
8 kommentarer og 1 løsning
Hent Word dokument
Access 97:
Når jeg har oprettet en ny post i en db, trykker jeg på en kommandoknap, hvorefter Word åbnes, og overfører udvalgte datafelter til Word. Dette fungerer perfekt. Men når jeg efterfølgende søger i min db, og finder en post som jeg vil se mine Word-kommentarer til, kan jeg ikke finde ud af at åbne Word i den post som Access står i. Flg. kode fungerer: On Error GoTo err_open Dim objword As Word.Application Dim objdoc As Word.Document On Error Resume Next Set objword = GetObject(, \"Word.Application\") Err.Clear On Error GoTo err_open If objword Is Nothing Then Set objword = GetObject(\"\", \"Word.Application\") End If objword.Visible = True AppActivate \"Microsoft Word\" objword.Documents.Open \"C:\\Opskrifter\\4.doc\" Exit Sub err_open: MsgBox \"fejlkode: \" & Err.Number
Stien til mit Word-dokument er: C:\\Opskrifter\\4.doc hvor 4.doc refererer til Access formularens.
Men det er jo ikke særlig smart, hvis jeg står i post 237 vil Word altid vise post 4.
Så hvordan indsætter jeg en variabel i koden, så Word altid viser den aktuelle post i Access formularen?
Jeg har på fornemmelsen, at det er ganske simpelt, men jeg er \"gået død\".
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Indsæt denne lille function: Function docName() As String Const dir As String = \"C\\opskrifter\\\" Const ext As String = \".doc\" docName = dir & Me.opskriftId & ext End Function Me.opskriftId er selvfølgelig feltet i din form
Ellers skal funktionen se sådan ud: Function docName() As String Const dir As String = \"C\\dokumenter\\\" Const ext As String = \".doc\" docName = dir & (Me.Recordset.AbsolutePosition + 1) & ext End Function
MEN den er ikke holdbar postNumret ændrer sig, når du sletter en post!!
Nu er jeg helt derude hvor jeg river mig i håret, efter dit første svar ser min kode såæledes ud: On Error GoTo err_open Dim docname As String Dim objword As Word.Application Dim objdoc As Word.Document Const dir As String = \"C\\opskrifter\\\" Const ext As String = \".doc\" docname = dir & Me.Nr & ext On Error Resume Next Set objword = GetObject(, \"Word.Application\") Err.Clear On Error GoTo err_open If objword Is Nothing Then Set objword = GetObject(\"\", \"Word.Application\") End If objword.Visible = True AppActivate \"Microsoft Word\" objword.Documents.Open docname Exit Sub err_open: MsgBox \"fejlkode: \" & Err.Number
men jeg får fejmeldingen: Fejlkode 5273 Jeg er overbevist om at du er inde på rette spor - men fejlen ligger nok foran min skærm - Jeg er fuldstændig blank på det her.
Ja - det er sgu da utroligt hvad et \":\" kan gøre. Men det fungerer perfekt. Tak for hjælpen. Lidt hår er der tilbage - men den her \"puter\" gør det altså ikke nemmere at bevare pragten.
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.