20. juli 2011 - 22:16Der er
9 kommentarer og 1 løsning
Flette data fra Access til Word... og gem Word
Hej.
Har en database, meget simpel en... meget lidt input og data.
Kan man lave en funktion eller macro som smider data fra indtastningsdatablad, til Word og gemmer Word dokument som firmanavn og dato og tid som Word fil navn.
Word dokument er et standardbrev... måske hvis ikke koden er svær så muligt at have mere end ét brev at vælge imellem.
Indsætter data ved bogmærkerne "opskrift" og "Nr", samtidig overføres data fra formularens (Access) felter navngivet "Opskrift og Nr.
Du skal i Access sætte en reference til Word i VBA-editoren i menuen Tools > References. Hvordan du navngiver dokumentet ved jeg ikke, men måske andre kan hjælpe.
Private Sub Kommandoknap21_Click() Dim objword As New Word.Application Dim WordDoc As New Word.Document On Error GoTo Errorhandler Set WordDoc = objword.Documents.Add("H:\Opskrifter\Opskrift.doc") Call InsertAtBookmark(WordDoc, "Opskrift", Me!Opskrift) Call InsertAtBookmark(WordDoc, "Nr", Me!Nr) objword.Visible = True DoCmd.Hourglass False Errorhandler: If Err.Number = 94 Then MsgBox "Du skal udfylde alle felter, da Access ikke kan overføre tomme strenge", vbInformation, "Brugerfejl" Exit Sub End If 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
Det skal være så der trykkes på knap i Access og kun de indtastede data, som flettes til Word dokument - de data "som lige" er , ikke alle data i Access databasen.
Det er til at bekræftelse af book af mødelokale... Simpelt og indeholder ikke meget data.
Når det er flettet til Word, skal Word Doc gemmes - og data skal gemmes i Access så man kan se hvor mange lokaler der bookes...
Jeg har forsøgt med ovenstående, kan ikke rigtig få det til at fungere.... Nogen som kan og evt. kan sende fungerende udgave på mail, så kan jeg bygge min egen op efter den?!?
Jeg har den desværre ikke mere. Men hvis brandmand stadig har den, så kan vi måske lokke ham til ar sende den til os begge.
mugs snabelting bbsyd.dk
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.