Avatar billede kornum Nybegynder
18. marts 2007 - 14:50 Der er 4 kommentarer og
1 løsning

Gemme data fra word i access, mens access er åben?

Hejsa.

Jeg har nu roddet en del med projektet her og kan nu få gemt data fra word over i access og jeg kan smide data fra access over i word. Men at kombinere disse ting, dvs. hvis jeg nu står i access og klikker på min knap som sender data'ene over i word, så går dette fint. Men når jeg så lukker word og den skal gemme ændringerne tilbage i access (som nu er åbent) så funker det ikke.

Problemet må derfor være at når access er åbent, så kan jeg ikke gemme data'ene fra word over i access.

Jeg bruger denne vba kode i word. (virker fint når access er lukket, men når access er åbent, skriver den at den ikke kan finde filen (db'en)... Er pga. den er åbent.. Håber nogle har en god ide?


Dim db, rec
    Set db = OpenDatabase(xSti + dataBaseNavn)
    Set rec = db.OpenRecordset(tabelNavn)
 
    With rec
        .AddNew
        .Fields(1) = ActiveDocument.FormFields(1).Result
        .Update
    End With
   
    rec.Close
    db.Close
Avatar billede supertekst Ekspert
18. marts 2007 - 22:58 #1
Du er velkommen til at sende DB (.zip'et) + dokument til: pb@supertekst-it.dk
Avatar billede supertekst Ekspert
19. marts 2007 - 09:50 #2
Har fundet mine filer vedr. det spørgsmål, hvor ovenstående kode stammer fra.

Jeg får ingen fejl - når databasen er åben - og dokumentet lukkes ned. Opdateringen udføres - men det kan ikke umiddelbart ses i tabellen - førend denne lukkes og åbnes igen.
Dette sker uden at jeg har rettet i koden....
Avatar billede kornum Nybegynder
19. marts 2007 - 21:17 #3
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & xSti + dataBaseNavn & "'"

cn.Open
   
Dim tekst1 As String
tekst1 = ActiveDocument.FormFields(1).Result
       
Set rs = New ADODB.Recordset
rs.Open "UPDATE tabel SET felt1 = '" & tekst1 & "' where felt = 'blabla'", cn, adOpenForwardOnly, adLockOptimistic
Avatar billede kornum Nybegynder
19. marts 2007 - 21:19 #4
Det her funker ihvertfald, men supertekst du er altid frisk på at hjælpe så jeg synes bare du skal smide et svar også får du pointene.. Du har jo lavet det halve af det før som du selv skriver... Det virker dog ikk ved mig når man er på recorden inde i access samtidigt med at man køre vba scriptet..

men ovenstående funker... så smid et svar Supertekst, selvom jeg selv fiksede det denne gang :)
Avatar billede supertekst Ekspert
19. marts 2007 - 22:34 #5
OK og tak...
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester