Office: (Office 2003) Bilder (.jpg) dynamisch in Berichten einfügen

Hallo Leute,

ich habe folgendens Problem: Ich möchte in meinen Bericht jpg Bilder einbinden. Dabei habe ich eine Tabelle erstellt in der eine Identifikation der einzelnen Bilder mithilfe der Identnummer erfolgt und ein Feld (Hyperlink) mit dem Pfad des Bildes erstellt. Nun möchte ich mir das ganze zusätzlich im Bericht anzeigen lassen. --> klappt aber leider nicht.

Hat jemand eine idee wie man das am besten lösen kann?

Danke im Voraus

lg

:)

 

Hi Daniel,

mit was hast Du es denn bisher versucht?

Servus
Peter

 

Also vorab: mit Berichten kenn ich mich leider net so gut aus.
Ich hab die Tabelle, inder die identnummer und der Pfad hinterlegt sind. Diese Tabelle habe ich nun in der Abfrage, welcher der Bericht zugrunde liegt, eingebunden. Danach habe ich versucht es als Bildelement, Objektfeld und als gebundenes Objektfeld einzufügen. --> Leider erfolglos

Ist es überhaupt schlau mit einem Hyperlink zu arbeiten?

lg Daniel

 

Ich verwende zB ein Feld vom Typ Bild und Namen BildFeld.
Alle Bilder liegen in einem bestimmten Verzeichnis, das ich über eine Funktion SubDirPath festlege. Wird ein Bild gefunden, wird es angezeigt, wenn keines da ist, wird default.jpg verwendet.
Darunter habe ich noch ein zweites ungebundenes Feld BildDatum, das das Datum aus eventuell im Bild vorhandenen ExifDaten ausliest.

Bei Detailbereich_Format
Code:

Das mit den Exif Daten kannst Du ja weglassen (oder bei Interesse poste ich das Klassenmodul dazu, es kann aber vermutlich auch über Suche nach ExifReader gefunden werden).

 

Ok, das bedeutet das ich meine Bilder alle in ein Verzeichnich kopiere und dann und dann mithilfe der identnummer ansprechen und in weiterer Folge in den Bericht laden oder?

Die identnummer is ja einen dynamische die sich bei jedem Datensatz ändert. Wie "spreche" ich jetzt nun die bilder mit der identnummer an?

--> hoffe das is keine allzu anstrengende rookiefrage für dich... ;-)

 

Ich hab das nur beispielhaft gepostet.
Bei mir ist das auch pro Datensatz nur ein Bild (Portrait) das als Name die ID des Datensatzes erhält. Das deswegen, weil User einfach ein Bild in das Verzeichnis laden können und wissen, wenn es als Namen die ID erhält, wird es zur Person angezeigt.
Aber wenn Du den Dateinamen Deiner Bilder sowieso abspeicherst, brauchst Du ja nur das Zusammensetzen des Strings (in meinem Fall PathToPic) anpassen.

 

Also irgendwie fuchst mich das im moment ganz schön:

ich brauch also nur den folgenden teil des codes:

Dim objExif As New ExifReader
Dim txtExifInfo As String
Dim PathToPic As String

PathToPic = SubDirPath(jrkPic) & "S" & Me![KID] & ".jpg"
If Dir(PathToPic) = vbNullString Then
PathToPic = SubDirPath(jrkPic) & "default.jpg"
End If

muss dann nur den unterstrichenen teil ändern oder?

Wie müsst es dann aussehen wenn die Bilder z.B. verzeichnis \\server.int\DB\bilder liegen?

wie gesagt ich bin in vba der totale anfänger ... :-( aber ich bin dabei

danke für die Hilfe

 

Hallo Daniel86!

Deine letzte Frage ist hier nicht mehr beantwortet worden.
Das möchte ich jetzt nachholen.

Ein Bild in einem Bericht anzuzeigen macht man üblicherweise mittels

Code:

Es geht also nur darum den ausqualifizierten Bilddateinamezu ermitteln.

Wenn, wie Du sagtest, die Datenquelle für den Bericht die ID des Bildes enthält, kannst Du mittels
DLookup den Bilddateinamen ermitteln:
(in der Lokalen HIfe findest Du unter DLookUp
Code:

)
Daher etwa so:
Code:

Damit hast Du den Bilddateinamen ermittelt.
Ergänzen mußt Du zum Bilddateinamen noch den Pfad, so etwa wie Du es unter #7 tun wolltest.
Nun steht dem einleitend angeführten Code nichts mehr im Wege.

Also: die BildID **muß** in der Datenquelle des Berichtes enthalten sein, damit ist die Bildermittlung variabel.

Wolfgang