19. august 2004 - 22:52Der 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
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
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"
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"
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
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?
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å
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.