Liebe Profis,
ich habe eine DB mit der ich Aufträge, Kunden und Inventar verwalte. Im Inventarverwaltungs-Formular gibt es ein Anzeigebild, dass die als Dateipfad gespeicherten Bilder einzeln für jeden Datensatz anzeigt. Hier ist der entsprechende Code:
Option Compare Database
Private Sub cmdDateiauswahl_Click()
Dim strNeuerWert As String
strNeuerWert = Bildauswahl
' Eine Leerzeichenfolge wird zurückgegeben wenn der Dialog abgebrochen wurde
If strNeuerWert <> "" Then
Me.inv_dateipfad.value = strNeuerWert
UpdatePic
End If
End Sub
Private Sub inv_dateipfad_AfterUpdate()
UpdatePic
End Sub
Private Sub Form_Current()
UpdatePic
End Sub
Private Sub UpdatePic()
On Error GoTo ErrorHandler
'Aktuallisiert die Bildanzeige
'Überprüfe ob das Bild existiert
If Dir(Me.inv_dateipfad) <> "" Then
Me.AnzeigeBild.Picture = Me.inv_dateipfad
Else
'Überprüfe ob das DummyBild exisistiert
If Dir(cstrDummyBild) <> "" Then
Me.AnzeigeBild.Picture = cstrDummyBild
Else
'Zeige sonst nichts an.
Me.AnzeigeBild.Picture = ""
End If
End If
Exit Sub
ErrorHandler:
Me.AnzeigeBild.Picture = ""
End Sub
Jetzt würde ich gerne auch in verschiedenen Berichten das Bild in jedem Datensatz anzeigen lassen, schaffe das aber nicht. Ich wäre dankbar für Info was ich im Code ändern muss, damit das klappt.
Wenn ich richtig verstanden habe, was ich bisher gefunden habe, muss ich im Detailbereich beim Ereignis "Beim Formatieren" den Code einfügen. Aber was genau???

Ich freue mich über jeden Hinweis!
Viele Dank schon im Voraus,
cathrinjohanna