Bild kommt nicht

[carman0103]

Wie gesagt, bin da nicht so bewandert.  Ich hab es mal so versucht, aber das geht auch nicht.

Code [Auswählen] Erweitern


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

Public Sub BildAktualisieren1()
    On Error GoTo BildAktualisieren1_Err
    Dim strpfad As String
    strpfad = Nz(Me!Pfad & Me!VBild, "")
    If Dir(strpfad) = "" Then
        strpfad = ""
    End If
BildAktualisieren1_Exit:
    Me!picbericht.Picture = strpfad
    Exit Sub
BildAktualisieren1_Err:
    MsgBox "Das Bild konnte nicht geladen werden." & vbCrLf & "Fehler-Nr: " & Err.Number & vbCrLf & "Fehler-Beschreibung: " & Err.Description
    strpfad = ""
    Resume BildAktualisieren1_Exit
End Sub

Private Sub picbericht_Click()

End Sub



Wie würdest Du denn den Code umbauen?

[MaggieMay]

"Pfad" und "VBild" sind Steuerelemente im Detailbereich des Berichts und "picbericht" befindet sich ebenfalls dort?

[carman0103]

Ja, ganz genau

[MaggieMay]

Teste den Code im Unterbrechungsmodus, indem du vor dem Öffnen des Berichts einen Haltepunkt in die Prozedur setzt. Danach geht es mit F8 von Zeile zu Zeile. Schau dir an, ob die Zusammensetzung des Bildpfades korrekt ist oder was sonst noch passiert.

[carman0103]

Ich hab das mal versucht. Ohne Ergebnis... 

[MaggieMay]

Dann lade eine Beispiel-DB hoch - komprimiert und gezippt - damit wir der Sache auf die Spur kommen.

[database]

Hi,

Ich hab das mal versucht. Ohne Ergebnis... 

Ohne Ergebnis heißt was genau bitte ... ?
War die Variable strpfad  mit Daten gefüllt oder war sie beim Durchspringen des Codes leer?
Stehen in den beiden Feldern Pfad und VBild am Bericht Daten drin, wenn dieser angezeigt wird oder ist eines oder beide leer?
Wenn was drin steht, was steht genau in Pfad drinnen?
Was steht genau in VBild drinnen?
Woher kommen die Daten in Pfad und VBild ?
Wenn sie aus der Datenherkunft des Berichts kommen sollten - sind die Daten in der zugrundeliegenden Abfrage / oder Tabelle für den aktuell angezeigten Datensatz vorhanden?

[carman0103]

Ich hab den Fehler gefunden. Im Feld VBild treffe ich nur die Auswahl der Bildnummer zu einem Datensatz. In diesem Feld steht noch keine Dateierweiterung dabei. Die wird in der Abfrage über ein weiteres Feld hinzugefügt. Also habe ich dieses Feld in den Code eingesetz und siehe da, nun geht es. Manchmanl steht man eben voll auf dem Schlauch  . Aber vielen Dank für Eure Hilfe.

[carman0103]

Vielen Dank nochmal für die Hilfe

[database]

Hallo,

schön dass dir geholfen werden konnte.

Wenn du die Daten in einer Abfrage zusammenstellst, kannst du die Dateiendungen auch gleich in der Abfrage an den Inhalt des Feldes VBild anhängen, heißt du benötigst nicht unbedingt ein zusätzliches Feld im Formular oder im Code.

In der Abfrage schreibst du dann sinngemäß:

VBildX:[VBild] & ".jpg"  ... wenn du immer die gleichen Endungen im Einsatz hast (hier eben *.jpg)
oder

VBildX:[VBild] & "." & [FeldMitDerDateiendung]  ... wenn du diese Endungen in einem eigenen Feld erfasst hast

Am Formular verwendest du dann statt VBild das Feld VBildX und ebenso im Code

[carman0103]

Genau so hab ich das ja auch gelöst. Aber danke für den Hinweis.