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

Hallo,

es könnte sinnvoll sein, für die Anzeige der Bilder im Bericht, die Quelle des Bildes über die zugrunde liegende Abfrage zur Verfüging zu stellen.

Was spricht dagegen?

Woher kommen die Daten?

[quote author=MaggieMay link=1493109239/2#2 date=1493166178]Hallo,

es könnte sinnvoll sein, für die Anzeige der Bilder im Bericht, die Quelle des Bildes über die zugrunde liegende Abfrage zur Verfüging zu stellen.

Was spricht dagegen?



Woher kommen die Daten?[/quote]

Vielen Dank erstmal; dagegen spricht gar nichts. Im Moment basiert der Bericht auf einer Abfrage. Ich hab jetzt auch gleich mal den Dateipfad über diese Abfrage zur Verfügung gestellt.

Über Ereignis "Beim Formatieren" habe ich jetzt folgenden Code eingefügt:
Option Compare Database

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

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
End Sub

Ergebnis: keine Fehlermeldung, aber auch keine Bildanzeige.  :-/
(Vielleicht sollte ich doch mal richtig VBA lernen...)

Danke für den Tipp. Ich habe jetzt die Datenherkunft im entsprechenden Bericht (der ist eigentlich ein Unterbericht) auf das Abfragefeld gesetzt, das den Dateipfad enthält. Jetzt bekomme ich beim Öffnen des Berichts das Dialogfeld "Parameterwert eingeben: DispoAbfrage" (Die DispoAbfrage ist eben die zugrunde liegende Abfrage.

Tja, wenn ich das wüsste...der Unterbericht hat ist über ein Schlüsselfeld mit dem Hauptbericht verknüpft und hat als Datenquelle die Abfrage, die das Feld mit dem Dateipfad der Bilder enthält.
Kann ich noch was an Infos liefern, das bei der Lösung helfen könnte? Screenshots o.ä.?

Entschuldigung für die Funkstille bitte, aber ich hab grad 3 Millionen Sachen zu tun...die abgespeckte DB kommt in Kürze

Hallo,


und warum setzt Du nicht einfach meinen vorherigen Vorschlag um  (Steuerelementinhalt auf das DateiPfad-Feld setzen)?