Prima cosa attiva nel VBE Setup la dichiarazione esplicita delle Variabili, questo farà apparire la seconda riga e sarà di aiuto per segnalare anomalie nella compilazione.
Option Compare Database
Option Explicit
Quindi devi strippare il FileName dal Percorso completo e concatenarlo al PATH relativo…
Function FileNameFromPath(strFullPath As String) As String
FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))
End Function
a questo punto, da qualche parte avrai il Percorso Relativo, io lo metterei in un Modulo Public come variabile ambiente, o come Property del DB, o salvata nel Registry che recuperi su AutoExec:
Option Compare Database
Option Explicit
PUBLIC PERCORSORELATIVO="C:\...\...\"
Private Sub Command17_Click()
Dim sFileName As String
sFileName=SelezionaFile()
if Len(sFileName)>0 Then sFileName=FileNameFromPath(sFileName)
sFileName=PERCORSORELATIVO & sFileName
Me!Fotografia.Value=sFileName
End Sub
Ora nella tua variabile [Fotografia] sinceramente non so cosa ci fai ma in quel codice non fa nulla… vedi tu, usa le Default Properties sempre e sempre la Root del controllo…
Me!Fotografia.Value=sFileName