Supportnet / Forum / Datenbanken
Jpg-Bild in DB anzeigen
Frage
Hallo liebe Access-Profis,
nach Studium der Beiträge hier im SN zu diesem Thema und langem fummeln habe ich meine Datenbank nun endlich so, dass auf JPG-Bilder zugegriffen werden kann, die in einem separaten Verzeichnis stehen.
Mein Ergebnis: Vorher hatte ich die Bilder in der DB gespeichert, was zu enormer Aufblähung führte. Bei ca. 100 Bildern war die DB bereits 271 MG groß.
Jetzt, da nur der Verweis gespeichert ist, hat die DB bei Zugriff auf ca. 2.000 Bilder nur noch eine Größe von 1,8 MB.
So weit, so gut.
Nun mein Problem:
Ich grenze die Auswahl der anzuzeigenden Bilder mit Hilfe einer Auswahlabfrage ein. Dies funktioniert auch einwandfrei, so lange die Anzeige in einem [b] Einzelformular[/b] erfolgt. Wenn ich das Anzeigeformat auf [b] Endlosformular[/b] einstelle, werden zwar alle Zusatzinformationen zu den Bildern richtig aufgelistet, aber bei allen Bilddarstellungen wird immer das erstte Bild der Auswahlliste angezeigt.
Was ist zu tun, um auch bei einem Endlosformular die richtigen Bilder darzustellen?
Freue mich auf Eure Anregungen und bedanke mich bereits im voraus.
mfg Knubbel
Antwort 1 von firefox
Wie ist denn die Anzeige bei dem Form realisiert?
Ich gehe mal davon aus, das du ein Bildobjekt auf deinem Form hast. Wie ist denn da das Laden der Bilder gelöst? Scheint ja so, das nur einmal das erste Bild geladen wird und dann beim Datensatzwechsel nicht mehr..
Ich gehe mal davon aus, das du ein Bildobjekt auf deinem Form hast. Wie ist denn da das Laden der Bilder gelöst? Scheint ja so, das nur einmal das erste Bild geladen wird und dann beim Datensatzwechsel nicht mehr..
Antwort 2 von Knubbel
Hi firefox ,
wenn ich beim Auflisten in der Form "Einzelformular" weiterschalte, werden die richtigen Bilder angezeigt, nur nicht bei "Endlosformular".
Mein Code zum Anzeigen der Bilder lautet:
Private Sub Form_Current()
On Error Resume Next
If Not IsNull(Me![Marke]) Then
Me![ImageFrame].OLETypeAllowed = 1
Me![ImageFrame].SourceDoc = Me![Marke]
Me![ImageFrame].Action = 0
End If
End Sub
Sub ImagePath_AfterUpdate()
On Error Resume Next
Me![ImageFrame].OLETypeAllowed = 1
Me![ImageFrame].SourceDoc = Me![Marke]
Me![ImageFrame].Action = 0
End Sub
Da ich mich mit VBA nicht auskenne, sagen mir auch die vorstehenden Anweisungen recht wenig.
mfg Knubbel
wenn ich beim Auflisten in der Form "Einzelformular" weiterschalte, werden die richtigen Bilder angezeigt, nur nicht bei "Endlosformular".
Mein Code zum Anzeigen der Bilder lautet:
Private Sub Form_Current()
On Error Resume Next
If Not IsNull(Me![Marke]) Then
Me![ImageFrame].OLETypeAllowed = 1
Me![ImageFrame].SourceDoc = Me![Marke]
Me![ImageFrame].Action = 0
End If
End Sub
Sub ImagePath_AfterUpdate()
On Error Resume Next
Me![ImageFrame].OLETypeAllowed = 1
Me![ImageFrame].SourceDoc = Me![Marke]
Me![ImageFrame].Action = 0
End Sub
Da ich mich mit VBA nicht auskenne, sagen mir auch die vorstehenden Anweisungen recht wenig.
mfg Knubbel
Antwort 3 von snowball
Hallo,
in einem Endlosformular wird immer nur das verknüpfte Bild des aktiven Datensatzes im Endlosformular dargestellt. Um dennoch eine Übersicht darstellen zu können, musst Du tricksen.
Bsp.:
http://www.prog4u.de/Beispiele/NowEndlosForm.zip
in einem Endlosformular wird immer nur das verknüpfte Bild des aktiven Datensatzes im Endlosformular dargestellt. Um dennoch eine Übersicht darstellen zu können, musst Du tricksen.
Bsp.:
http://www.prog4u.de/Beispiele/NowEndlosForm.zip