Code Snippet "VBA Access"

Externes Bild aufgrund von Bildpfad in Formular anzeigen

Zeigt externes Bild an, sofern vollständiger Bildpfad in DB vorhanden ist. Keinbild.gif ist ein Defaultbild, wenn Bild nicht gefunden wird.

'Auf Access-Formular Bild mit Namen ImageFrame und Textfeld txtbildpfad, das den Bildpfad enthält
'Die Ereignisse "Beim Anzeigen" und "Nach Aktualisierung" enthalten =setImagePath()

Function setImagePath()
  Dim strImagePath As String
  
  On Error GoTo PictureNotAvailable
  strImagePath = Me.txtbildpfad
  Me.ImageFrame.Picture = strImagePath
  Exit Function
PictureNotAvailable:
  strImagePath = "F:\dateienmitback\dateien\fotos\fotoarchiv\archivdb\keinbild.gif"
  Me.ImageFrame.Picture = strImagePath
End Function