Søg
Avatar billede BIRGER Seniormester
27. januar 2014 - 17:24 Der er 16 kommentarer og
1 løsning

Environ vba

Jeg har fået hjælp herinde til ovenstående kommando herinde, men har nok ikke forstået den helt rigtigt.

Jeg har følgende vba kode som virker fint:

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\users\bji\SharePoint\Kartoteker.MDb"

Hvis jeg har forstået det rigtigt kan Environ erstatte  C:\\users\bji\--- så det er den aktuelle bruger?

kan nogen hjælpe med at lave vba koden så den har den rigtige syntaks
Avatar billede kabbak Professor
27. januar 2014 - 17:32 #1
prøv med

FilogSti = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\sharepoint\Kartoteker.MDb"
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & FilogSti
Avatar billede BIRGER Seniormester
27. januar 2014 - 17:47 #2
i stedet for det jeg har nu?
Avatar billede kabbak Professor
27. januar 2014 - 17:50 #3
ja
Avatar billede BIRGER Seniormester
27. januar 2014 - 17:50 #4
for en fejl run time error 3709
Avatar billede kabbak Professor
27. januar 2014 - 17:53 #5
du kan jo bare sætte et ' foran, den gamle linje, så kan du se den uden at den virker i koden
Avatar billede kabbak Professor
27. januar 2014 - 18:02 #6
Jeg fatter ikke lige det med de 2 \\

men nu er de sat ind i koden

FilogSti = Environ("HOMEDRIVE") & "\" & Environ("HOMEPATH") & "\sharepoint\Kartoteker.MDb"
Avatar billede BIRGER Seniormester
27. januar 2014 - 19:23 #7
Skal det fil og sti med?
Avatar billede BIRGER Seniormester
27. januar 2014 - 19:35 #8
kommer samme fejl?
Avatar billede BIRGER Seniormester
28. januar 2014 - 07:25 #9
Kan ikke rigtig få det til at fungere, men sender du et svar...

Så prøver jeg at ligge den ud igen.
Avatar billede kabbak Professor
28. januar 2014 - 07:34 #10
Hvis det ikke virker,skal jeg ikke have point.
Stien med \\ har jeg aldrig set før, kan du finde den med stifinderen.
Avatar billede BIRGER Seniormester
28. januar 2014 - 07:44 #11
Tror ikke de \\ betyder noget, er bare en tastefejl der åbenbart går godt....
måske du kunne prøve at skrive hele koden:  ser sådan ud

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\users\bji\SharePoint\Kartoteker.MDb"
    objConn.Open strConnString

troede at der bare skulle rettes i den?
Avatar billede kabbak Professor
28. januar 2014 - 08:11 #12
Lige for at uddybe det.
Databasen ligger her"
"C:\users\bji\SharePoint\Kartoteker.MDb
Det vil sige at den ligger ved brugeren bji, og det er kun ham der bruger den.

Hvis stien i kaldet laves om,til aktuel bruger,så skal alle have en database med navnet "Kartoteker.MDb" , i deres underbibliotek "SharePoint\".
Har alle det, ellers virker koden ikke ?
Avatar billede BIRGER Seniormester
28. januar 2014 - 08:30 #13
ja har alle liggende, kartoteket kommer til ligge på SharePoint og NÅR man synkroniserer vil det ligge på C:\users\sharepoint\kartoteker på hver bruger
Avatar billede kabbak Professor
28. januar 2014 - 09:18 #14
Ok så er her en kode, der tjekker om databasen eksisterer.

FilogSti = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\SharePoint\Kartoteker.MDb"

    If Dir(FilogSti) = "" Then ' tjekker om databasen er der
        MsgBox "Filen """ & FilogSti & """ eksisterer ikke"
        Exit Sub
    End If

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & FilogSti
    objConn.Open strConnString
Avatar billede BIRGER Seniormester
28. januar 2014 - 09:45 #15
Skal jeg skrive den nøjagtigt på samme måde, og slette den jeg skrev?
Avatar billede BIRGER Seniormester
28. januar 2014 - 09:58 #16
Hej den virker!!....og den vil tage den aktuelle bruger
Avatar billede kabbak Professor
28. januar 2014 - 10:02 #17
Jamen så får du et svar ;-))
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:10 Installation af software til UPS Af ErikHg i Andet hardware
26/1012:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
24/1012:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
White papers
Flere white papers »