Hoi Superseb,

Kan je geen tabel maken met maar 1 record en daar het relatieve path in vermelden en die waarde dan overal gebruiken? Als dat lukt en je verplaatst je tabel naar een andere plaats dan moet je alleen dat record aanpassen.
't Is zo maar een los idee, ik weet niet of dat werkt.

Guido

Hoi Superseb,

Je hebt gelijk, mijn laatste tip was waardeloos. Maar je kan wel de waarde van het path in een textfiletje zetten en dat dan inlezen via een procedure.

Voor de laatste mogelijkheid heb ik diep in mijn archieven moeten gaan zoeken. Het is een beetje eleganter en heb ik vroeger gebruikt met Access97. Je moet een module aanmaken en volgende text er in zetten:
'******************************************
Option Compare Database   'Use database order for string comparisons

Function GetCurrentDBName() As String
   Dim MyWorkspace As Workspace
   Dim MyDatabase As Database

   Set MyWorkspace = DBEngine.Workspaces(0)
   Set MyDatabase = MyWorkspace.Databases(0)
   GetCurrentDBName = MyDatabase.Name
End Function

Function getcurrentDBpath() As String
Dim Temp As String
Dim SSF As Integer 'Start of Filename
Temp = GetCurrentDBName()
SSF = GetStartOfFilename(Temp)
getcurrentDBpath = Left(Temp, SSF - 1)
End Function

Function GetStartOfFilename(FN As String) As Integer
'Returns the start of the filename in the string or 0 is no filename
Dim i As Integer

If Len(FN) = 0 Then
   GetStartOfFilename = 0
ElseIf Right$(FN, 1) = "\" Or Right$(FN, 1) = ":" Then
   GetStartOfFilename = 0
Else
   GetStartOfFilename = 1
   'The last \ or : in the string is the end of the path
   For i = Len(FN) - 1 To 1 Step -1
      If Mid$(FN, i, 1) = "\" Or Mid$(FN, i, 1) = ":" Then
         GetStartOfFilename = i + 1
         Exit For
      End If
   Next i
End If

End Function

'******************************************

Deze module zetten wij altijd in elke database die wij aanmaakten, vroeg of laat kwam dat toch van pas. De functie getcurrentDBpath geeft u de waarde van het path waar dat de database staat. Nu kun je die verplaatsen zonder problemen.

Succes,
Guido

Dan moet je uw code eens debuggen. Een kijken wat Access juist genomen heeft als volledige filenaam. En aan de hand van de errormelding opzoeken wat de reden is. Als hij zegt "kan niet openen" dan krijg ik de indruk dat hij het bestand wel kan vinden maar dat hij het voor de een of andere reden niet kan openen. Is het mischien in gebruik dooe een ander programma?

Als het niet wil lukken mag je mij altijd een copy v/d database sturen dan wil ik wel eens zien. (Ik geef natuurlijk geen garantie dat het bij mij wel zal lukken hoor)

Guido