Access 2000: Bild als OLE Objekt einbinden

[Sebastian Becker]

Hallo, Dirk,

ich habe vor einiger Zeit auch mal Bilder in Access 2000 integriert.

Dazu habe ich folgendes Skript verwendet ...

'------------------------------------------------------------
' Bilder anzeigen
'------------------------------------------------------------

Dim picPath

picPath = "D:\web\img"

If Dir(picPath & Me![Bild] & ".jpg") = "" Then
Me![ImageFrame].Visible = False
Else
Me![ImageFrame].Visible = True
Me![ImageFrame].Picture = (picPath & Me![Bild] & ".jpg")
End If

If Dir(picPath & Me![Bild] & "_small.jpg") = "" Then
Me![thumbFrame].Visible = False
Else
Me![thumbFrame].Visible = True
Me![thumbFrame].Picture = (picPath & Me![Bild] & "_small.jpg")
End If

End Sub

'------------------------------------------------------------

Vielleicht kannst Du damit ja was anfangen.

"ImageFrame" ist der Name eines unsichtbaren Rahmens, in dem sich das Bild befindet. Der Bildtyp ist "verknüpt" und der Pfad wird zusammengesetzt mit Inhalten aus dem Feld "Bild" der Datenbank.

Viel mehr kann ich Dir dazu allerdings nicht sagen, denn Visual Basics Script ist mir ein Graus ...

Grüße,

Sebastian