Antwort 2 von Al_Gebra vom 12.12.2019, 15:06 Options
Danke!
Ich hab leider die Frage nicht richtig geschrieben. Ich bitte um Entschuldigung.
Ich möchte gerne in einem Bericht für jeden Datensatz ein Bild anzeigen, bzw. ausgeben. Das könnte z.B. je nach Eintrag in der Tabelle ein gelbes, rotes oder grünes Bildchen (so ne art Ampel) sein. Der Eintrag in der Tabelle könnte dann z.B. der Bildname sein. In einem Formular hab ich das schon geschafft.
Danke!
Antwort 3 von Teddy7 vom 12.12.2019, 16:20 Options
So ist das schon besser *g*.
Im Bericht müßte das eigentlich genauso gehen wie im Formular. Wo ist denn da Dein Problem ?
Und welche Technik hast Du im Formular angewandt ?
Gruß
Teddy
Antwort 4 von Al_Gebra vom 14.12.2019, 10:09 Options
Hi Teddy,
im Formular habe ich ein Bild-Objekt eingefügt, dem ich beim Ereignis Form_Acitvate() die entsprechende URL des Bildes zuweise.
Private Sub Form_Activate()
Select Case Me.Status
Case "rot"
Me.BildAmpel.Picture = "rot.png"
Case "gelb"
Me.BildAmpel.Picture = "gelb.png"
Case "gruen"
Me.BildAmpel.Picture = "gruen.png"
Case Else ' Andere Werte.
End Select
End Sub
Me.Status ist das Datenfeld aus Datenherkunft des Formulars.
Auf dem Formular wird ja auch nur ein Datensatz angezeigt. Im Bericht sind das ja mehrere Datensätze auf einmal im Detailbereich. Nun weiß ich halt (noch) nicht, wie ich jedem Datensatz, bzw. jedem Bildobjekt pro Zeile im Bericht ein Bild zuweisen kann.
Vieleicht kanst du mir da einen Tipp geben?
Gruß
Hermann
Antwort 5 von Al_Gebra vom 14.12.2019, 11:54 Options
Hallo,
ich habe nun mal eine Lösung gefunden, die zumindest funktioniert.
Ich habe in meinem Bericht ein Textfeld (txtBildName) eingefügt, das den Dateinamen enthält und lasse dieses aber nicht anzeigen (Eigenschaft Visible auf false).
Das Bild Objekt bekommt nun bei dem Ereignis des Detailbereiches "Beim Drucken" den Dateinamen zugewiesen:
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
Pfad = "D:\Hier\kommt\der\Dateipfad\rein\"
Me!BildAmpelStatus.Picture = Pfad & Me.txtBildName
End Sub
Sobald ich den Bericht in der Seitenansicht öffne werden die Bilder reingeladen und korrekt angezeigt.
Mein Problem wäre also gelöst!
Danke trotzdem für die Hilfe!
Grüße
Hermann
Antwort 6 von Teddy7 vom 14.12.2019, 13:04 Options
Im Ereignis "beim Foratieren" wäre besser, dann siehst Du das Ergebnis schon beim Anzeigen.
Gruß
Teddy
Antwort 7 von Al_Gebra vom 14.12.2019, 13:27 Options
Hallo,
also das Ergebnis ist schon "Beim Anzeigen" sichtbar. Hatte zuerst auch gedacht, dass es "Beim Formatieren" rein muss, aber so tut es auch!
Gruß
Hermann