Office: Foto in Hfo einfügen

Hallo,
alternativ zu Andys Vorschlag wäre es auch möglich, zu gucken ob das Bild existiert und wenn nicht, einfach auf ein Standardbild umzuschwenken. Dann wird nicht erst ein Fehler generiert und man muss auch keine Msgboxen wegklicken.

Code:

Option Compare Database
Option Explicit
Const Fotopfad = "C:\Users\an\Downloads\ACFotos\"
Const StandardBild = "C:\Users\an\Downloads\ACFotos\Standard.jpg"

Private Sub Listenbox_Click()
 Dim Bilderpfad as String
   Bilderpfad = Fotopfad & Nz(DLookup("Foto", "Artikelstamm", "IDArtikelNr=" & Me.Listenbox),"")
   If Dir(Bilderpfad) <> "" Then
      Me.Foto.Picture = Bilderpfad
   Else
      Me.Foto.Picture = StandardBild      
   End if
End Sub

Gruß
Doming

 

Hallo Doming, eine solche Idee, in etwa, hatte ich letzte Nacht um ca. 2 Uhr. Danke für deine Info, ich sage oft "Wir schaffen das"

 

Jetzt muss ich mich leider nochmals Melden, sorry! Ich habe beide Versionen mit dem kleinen Testtool probiert!!
Ich bekomme immer den Laufzeitfehler 2220 Microsoft Access kann die Datei 'ACFotos\Ford_Kuga_grau.jpg' nicht öffnen.
Ich verwende 100%ig die Image-Control , habe keine Leerzeichen (mehr) keine Sonderzeichen und jpg's sind es auch! Die falschen Bildbenennungen sind korrigiert. Ich bin ????? Die letzte Nacht war schon um 2 Uhr zu Ende, ich denke heute Nacht brauche ich nicht ins Bett zu gehen?????

 

Halo Hallo, ich habe es hinbekommen!!!!!! Die Nacht ist sicher!! Die Alpen sind von meinem Herzen gefallen!
Euch beiden nochmals und nochmals 10000000000 x Danke
Gruß Gerdi

 

und woran hat es jetzt gelegen?

 

Natürlich an einer Kleinigkeit! Ich habe in den letzten Stunden, aus reiner Verzweiflung die Fotos im Explorer- Ordner ACFotos mit .jpg enden lassen, somit war intern ein .jpg.jpg. Kleinigkeit also
Aber jetzt ist alles GUT!!!