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
Annonceindlæg fra Visma Enterprise
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
27. januar 2014 - 17:47
#2
i stedet for det jeg har nu?
27. januar 2014 - 17:50
#3
ja
27. januar 2014 - 17:50
#4
for en fejl run time error 3709
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
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"
27. januar 2014 - 19:23
#7
Skal det fil og sti med?
27. januar 2014 - 19:35
#8
kommer samme fejl?
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.
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.
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?
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 ?
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
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
28. januar 2014 - 09:45
#15
Skal jeg skrive den nøjagtigt på samme måde, og slette den jeg skrev?
28. januar 2014 - 09:58
#16
Hej den virker!!....og den vil tage den aktuelle bruger
28. januar 2014 - 10:02
#17
Jamen så får du et svar ;-))
Kurser inden for grundlæggende programmering