Relativ sti til billede

Dette henter et billede kaldet \"Logo.GIF\" ind i billede1

Private Sub Report_Open(Cancel As Integer)
  Dim i As Integer, str As String
  i = Len(CurrentDb.Name)
  While i > 1 And str = \"\"
    If Mid(CurrentDb.Name, i, 1) = \"\\\" Then
      str = Left(CurrentDb.Name, i - 1)
    End If
    i = i - 1
  Wend
  Me.Billede1.Picture = str & \"\\logo.gif\"
End Sub

Superlækkert!
Inden jeg lukker har jeg lige et tillægsspørgsmål:

Kan man også lade den referere til et billede som er indsat i databasen?

Altså så man indsætter billedet i den første rapport, og lader de andre referere til den?

Fordelen ville være at man var fri for eksterne filer, da de har det med at blive væk ;-)

Jeg har smidt lidt ekstra point i hatten...

Du kan prøve med noget i retning af:

Private Sub Report_Open(Cancel As Integer)
  Me.Billede1.Picture = Reports![Rapport1]!Billede1.Picture
End Sub

Det prøver jeg, tak for hjælpen!