title image


Smiley Re: Hyperlink zu lokal gespeicherten Bild im Bericht darstellen
indem du ein Bild-Steuerelement in den Bericht legst, und schreibst (hierbei mal angenommen, dass das Bild-Steuerelement "Bild" heisst und im Detailbereich liegt und dass der Hyperlink an ein Textfeld namens "Hyperlink" gebunden ist):



Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

Dim T As Variant, IstBild As Boolean

IstBild = False

T = Split(Me!Hyperlink & "", "#")

If UBound(T) > 0 Then

If Right(T(1), 4) = ".jpg" Or Right(T(1), 4) = ".gif" Or Right(T(1), 4) = ".bmp" Then

IstBild = True

End If

End If

If IstBild Then

Me!Bild.Picture = T(1)

Me.Bild.Visible = True

Else

Me!Bild.Picture = ""

Me.Bild.Visible = False

End If

End Sub



Wobei es in aller Regel eleganter und flexibler ist, für so etwas ein einfaches Textfeld und keinen Hyperlink zu nehmen...


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: