Access-o-Mania

Access-Forum (Deutsch/German) => Bericht => Thema gestartet von: flual am Januar 25, 2012, 09:13:15

Titel: Bilder anzeigen !
Beitrag von: flual am Januar 25, 2012, 09:13:15
Hallo,

ich habe eine Tabelle in meine Access Datenbank verknüpft, nicht importiert. In dieser Tabelle gibt es eine Spalte "PhotoName" in der Bildpfade (z.B. D:\GG_Konzept\Bilderzuordnung\Knotenfoto\0022-Rohrheim.JPG) gespeichert sind. Der Felddatentyp ist "Text". Eine weitere Spalte "Gruppe" enthält Gruppenbezeichnungen.

Nun habe ich eine Abfrage erstellt mit diesen zwei Spalten. Unter "Gruppen" ist ein Kriterium eingetragen, dass nach einer Gruppenbezeichnung fragt. Wenn man diese eingibt, werden nur die PhotoName gezeigt, die auf diese Gruppenbezeichung zutreffen.

Jetzt habe ich einen Bericht erstellt, der auf diese Abfrage zugreift. Es sollen nach Eingabe der Gruppenbezeichungen nur die Photoname angezeigt werden, die zu dieser Gruppenbezeichnung gehören.

Wie schaffe ich es, dass die Bilder im Bericht angezeigt werden ?

Titel: Re: Bilder anzeigen !
Beitrag von: Jonny am Januar 25, 2012, 14:59:15
Hallo
ich habe in den tabellarischen Bericht ein Bildobjekt (Hier Bild5).
Die Datei enthält das Feld Fotodatei mit Pfad und Dateiname.

Beim Formatieren vom Detailbereich habe ich folgenden Code:
On Error GoTo Fehler
    If IsNull(Me!Fotodatei) Then
        ' Kein Entrag im Tabellenfeld Fotodaten, Bild unsichtbar machen da sonst das letzte Bild gedruckt wird
        Bild5.Visible = False
    Else
        ' Bild sichtbarmachen und zuordnen
        Bild5.Visible = True
        Bild5.Picture = Me!Fotodatei
    End If
Ende:
    Exit Sub

Fehler:
    If Err = 2220 Then
    ' Bild nicht vorhanden
        Bild5.Visible = False
        Resume Next
    Else
        MsgBox (Err & " " & Err.Description)
        Resume Ende
    End If

Gruß

Johann