data fra access til word med kode

Starter du i Access og overfører til Word, eller vil du starte i Word og hente fra Access?

Jeg har et eksempel der viser hvordan du fra Access kan sende formularens data til Word ved hjælp af VBA. Blot læg din e-mail.

vil hent fra word til access

mail: niels_kristian@hotmail.com

Mit eksempel viser hvordan du står i Access og sender formularens data til word. Så jeg regner ikke med, at det kan bruges.

ok..hmm :(

jkrons ??

Jeg arbejder på sagen, men det er ikke så nemt, da der en lang række VBA metoder, som Accesss ikke understøtter. Det er meget nemmere at gå den anden vej :-)

ok.. øv.. :( det er faktisk pga af dit svar her: http://www.eksperten.dk/spm/502887
:)

Ok. Kan du ikke prøve at fortælle mig præcis, hvad det er du ønsker at opnå. Det vil måske gøre det nemmere at finde en løsning.

jo du har ikke messenger ville gøre det nemmere

vil godt giver flere points for en hurtig løsning over messenger

Nej, ingen messenger.

ok.. :(
e-mail? kan prøve at sende den fil jeg fletter over i med en beskrivelse..

kronsell@adslhome.dk

sendt

Jeg ser på det.

har lige sendt svar

Niels, jeg tror at jeg holder en pause for i dag. Så skal jeg prøve at se på det med friske øjne i morgen aften (after work ;-))

Koden der henter data ud af Access er på plads, problemet er lige at dem overført til Word dokumentet.

ok takker..

Du kan prøve at ligge nedenstående ind på en knap på en form i Access:

Dim objword As New Word.Application
Dim WordDoc As New Word.Document

Set WordDoc = objword.Documents.Add("\\Odin\database\Skabeloner\DK-Brev.dot")

    If IsNull(Me.Kundenavn) = False Then
        Call InsertAtBookmark(WordDoc, "Firmanavn", Me.Kundenavn)
    End If
   
    If IsNull(Me.Kundeadresse1) = False Then
        Call InsertAtBookmark(WordDoc, "Adresse1", Me.Kundeadresse1)
    End If
   
    If IsNull(Me.Postnr) = False Then
        Call InsertAtBookmark(WordDoc, "Postnr", Me.Postnr)
    End If
   
    If IsNull(Me.By) = False Then
        Call InsertAtBookmark(WordDoc, "By", Me.By)
    End If
   
objword.Visible = True

mlhave-> Problemet er at sf ønsker at starte funktionen i Word, ikke i Acccess :-)

Her er noget kode, der forhåbentligt kan løse problemet.

Ret navn og sti på databasen, og navnet på den tabel/forespørgsel, som du skal hente data fra.

Husk også at der skal være sat en reference til Microsoft Dao 3.6 Obejct Library:

Sub DataFraAccess()
'Jan Kronsell, 2004-05 - Inspireret af Doug Robbins

    'Variabler til database og recordsæt
    Dim acDB As Database
    Dim acActRec As Recordset
   
    'Variabler til at indeholder værdier fra databasefelterne
    Dim F1 As String
    Dim F2 As String
    Dim F3 As String
    Dim F4 As String
    Dim F5 As String
    Dim F6 As String

    'Databasen åbnes - angiv den rigtige sti/navn til databasen
    'Databasen skal ikke være åben i forvejen, når funktionen anvendes
    Set acDB = OpenDatabase("c:\dbtilword.mdb")
   
    'Indlæs tabel eller forespørgsel og gå til første post
    'Navn på forespørgsel eller tabel angives i parentesen
    Set acActRec = acDB.OpenRecordset("tilword")
   
    'Nu vælges den første celle i tabellens anden række
    'Jeg forudsætter at overskrifterne står i 1. række i tabellen i Word
    ActiveDocument.Tables(1).Cell(2, 1).Select
   
    'Nu loopes gennem alle records, indtil End Of File
    'For hver record hentes værdien af de første fem felter
    'Hver værdi gemmes i en variabel
   
   
    Do While Not acActRec.EOF
        'Værdien af første felt (DrawNo) gemems i F1
        F1 = acActRec.Fields(0)
        'Værdien af den første variabel indsættes i den markerede celle
        Selection.Text = F1
        'Der flyttes til næste celle
        Selection.MoveRight Unit:=wdCell
        'Derefter gentages ovenstående for øvrige felter i posten
        F2 = acActRec.Fields(1)
        Selection.Text = F2
        Selection.MoveRight Unit:=wdCell
        F3 = acActRec.Fields(2)
        Selection.Text = F3
        Selection.MoveRight Unit:=wdCell
        F4 = acActRec.Fields(3)
        Selection.Text = F4
        Selection.MoveRight Unit:=wdCell
        F5 = acActRec.Fields(4)
        Selection.Text = F5
        Selection.MoveRight Unit:=wdCell
   
    'Når alle felter er indsæt fortsættes til næste post
        acActRec.MoveNext
       
    Loop

    'Efter loopet er der kommet en ekstra række i tabellen, den skal fjernes
    Selection.Rows.Delete
   
    'Så skal vi tilbage til sidste post i recordsættet
    acActRec.MovePrevious
   
    'Så skal vi have fat i den næste tabels eneste celle
    ActiveDocument.Tables(2).Cell(1, 1).Select
   
    'Da der allerede står tekst i cellen, skal vi ned på linien under
    Selection.EndKey Unit:=wdLine
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
   
    'Så skal værdien af Felt6 i sidste post sættes ind i tabellen
    F6 = acActRec.Fields(5)
    Selection.Text = F6
   
    'Så lukkervi recordsæt og database
    acActRec.Close
    acDB.Close

    'Og frigiver den bundne RAm
    Set actrec = Nothing
    Set acDB = Nothing

End Sub

Set actrec = Nothing
skal retteligt være

Set acActRec = Nothing

tak for hjælpen jkrons kan du ikke lige sende en mail så finder vi ud af nogle flere point