VBA KODE

yes, move it to another folder :-)

c:\Kartoteker.MDb

men uden at flytte filen?

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Environ("USERPROFILE") & "\sharepoint\Kartoteker.MDb"
    objConn.Open strConnStri

Tror at vi er inde på rette vej med Environ, selvom jeg ikke lige kan få det at funke.  Søger den på c-drevet så?

Sender du et svar

Environ("USERPROFILE") = "C:\\users\bji"
hvis altså det er den bruger, der er logget ind.

skal der være \\ efter c: ? det er der ikke i userprofile - men vi kan lave det.
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & left(Environ("USERPROFILE"),3) & mid(Environ("USERPROFILE"),2,len(Environ("USERPROFILE"))) & "\sharepoint\Kartoteker.MDb"
    objConn.Open strConnStri

det kan være at 2 tallet skal være 3 i stedet.

don't really see that the use of environ shortens the path\filename at all, although it does make it much easier for other users to use.

What are you trying to achieve by making it shorter?

ja så andre også kan bruge den med deres initialer

Placing the MDB file in the same folder on all PC's makes thing much easier, there is nothing stopping a user moving  users to another drive\folder

If you must use the current users drive/folder


Environ("HOMEDRIVE") + Environ("HOMEPATH")

Environ("HOMEDRIVE") + Environ("HOMEPATH") = Environ("USERPROFILE")
se i kommandoprompt skriv
SET

hej tror at vi er på rigtige vej,  kan nok bare ikke få ikke få syntaksen helt på plads..du må gerne sende et svar...så spørger jeg nok igen!

bare luk uden mig...

thanks
If you used claus57 answer maybe he should get the points?