Avatar billede BIRGER Seniormester
19. august 2004 - 22:52 Der er 13 kommentarer og
1 løsning

Data fra en access tabel til en anden vha vba

Jeg har et program jeg ikke rigtig kan få til at køre. Det jeg vil er at ovf en tabel fra en database til en anden database..Det jeg også gerne ville have var at koden ikke ligger i Access men i et wordprogram der ligger på skrivebordet og udføres derfra. Jeg prøver at vedlægge koden.



Function DelAndGetNew()
On Error GoTo DelAndGetNew_Err

    DoCmd.DeleteObject acTable, "kundekartotek" 'ligger på c:\kartoteker´'
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "c:\dokumenter\kartoteker.mdb", acTable, "kundekartotek", "kundekartotek", False


DelAndGetNew_Exit:
    Exit Function

DelAndGetNew_Err:
    MsgBox Error$
    Resume DelAndGetNew_Exit

End Function
Avatar billede martin_moth Mester
20. august 2004 - 13:57 #1
Fejlbesked?
Hvad er det der ikke virker?
Avatar billede BIRGER Seniormester
20. august 2004 - 14:18 #2
Den siger at den ikke kan finde kundekartotek på c:---jeg flytter jo koden væk fra en accessdatabase...og vil have den liggende som kode i et worddokument
Avatar billede bak Forsker
20. august 2004 - 19:03 #3
Den kode er jo access-specifik. Den kan man ikke umiddelbart flytte over i et andet program.
Avatar billede BIRGER Seniormester
20. august 2004 - 19:28 #4
kan man så lave en tilsvarende kode i f.eks word?
Avatar billede BIRGER Seniormester
22. august 2004 - 15:24 #5
Nu er jeg nået så langt!! men når jeg kører den, kommer medd. object required  ????
Function DelAndGetNew()
On Error GoTo DelAndGetNew_Err
DoCmd.DeleteObject acTable, "Microsoft Access", "kundekartotek", "c:\kartoteker.mdb", acTable, "kundekartotek"
     
DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "l:\faelles\kartoteker.mdb", acTable, "kundekartotek", "kundekartotek", False


DelAndGetNew_Exit:
    Exit Function

DelAndGetNew_Err:
    MsgBox Error$
    Resume DelAndGetNew_Exit

End Function
Avatar billede bak Forsker
22. august 2004 - 20:43 #6
Indsæt denne sub i word-modulet.
Under Tools/references sætter du flueben ved Microsoft Access Object library

Sub test()
Dim appACC As Access.Application
On Error GoTo DelAndGetNew_Err
Set appACC = GetObject("c:\kartoteker.mdb")
    appACC.DoCmd.DeleteObject acTable, "kundekartotek"
    appACC.DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "l:\faelles\kartoteker.mdb", acTable, "kundekartotek", "kundekartotek", False

DelAndGetNew_Exit:
    Exit Sub

DelAndGetNew_Err:
    MsgBox Error$
    Resume DelAndGetNew_Exit

End Sub
Avatar billede bak Forsker
23. august 2004 - 21:16 #7
Det kan også gøres uden brug af word eller access vba.

kopier nedenstående kode ind i notepad og gem som en VBS-fil fx. mintest.vbs
Det er nu et "næsten selvstændig program som du også kan oprette en genvej til på skrivebordet.

Dim appACC
Set appACC = GetObject("c:\kartoteker.mdb")
appACC.DoCmd.DeleteObject acTable, "kundekartotek"
appACC.DoCmd.TransferDatabase acImport, "Microsoft Access", "l:\faelles\kartoteker.mdb", _
    acTable, "kundekartotek","kundekartotek",  False
set appACC = Nothing
msgbox "Kopiering udført"
Avatar billede BIRGER Seniormester
24. august 2004 - 16:55 #8
Hej den løsning med en vbs-fil lyder fin, men fik denne fejlmedd. 
script C:\minitest.vbs
linie 1
tegn 1
fejl: tegnet er ugyldigt
kode 800a0408
kilde der opstod ee  vbscript-kompileringsfejl
Avatar billede bak Forsker
24. august 2004 - 22:11 #9
virker fint ved mig på win98 ...
Tester llige på en wim2000 i morgen
Avatar billede bak Forsker
25. august 2004 - 08:25 #10
virker også fint på win2000
Avatar billede BIRGER Seniormester
25. august 2004 - 08:40 #11
jamen det er jo nok mig der klokker i det...kender du fejlmeldingen...jeg ville jo gerne prøve i det vbs.....din første løsning...kan den køre på en pc hvor access ikke er installeret.....men hvor databasen alligevel ligger?
Avatar billede bak Forsker
28. august 2004 - 13:39 #12
Har ingen ide om fejlmeldingen.
Nej, ingen af forslagene kan køre uden at access er installeret, da DoCmd er access specifik VBA
Avatar billede BIRGER Seniormester
28. august 2004 - 14:11 #13
Jamen tak for hjælpen...jeg vil prøve at arbejde videre med det vb.script...ved du om der findes danske bøger om det... det er vel et slags program som vba?
Sender du lige et svar...også på det andet spørgsmål at du svaret på
Avatar billede bak Forsker
29. august 2004 - 21:12 #14
ok :-)
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
Kurser inden for grundlæggende programmering

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