OLE-Objekt einfügen

[tismo]

Hallo zusammen.

mit einem ungebundenen Kombinationsfeld kann der Anwender im Formular Start sich anmelden und es erscheinen sein Name aus der Tabelle Personal.
Nun soll in dem Formular Start auch gleichzeitig sein Bild erscheienen. diese Bils wurde als OLE-Objekt in der Tabelle Personal hinterlegt.
Mit folgenden Befehlen kann ich keine OLE-Objekt einfügen:

Code (vb) [Auswählen] Erweitern

Private Sub AuswahlAnwender_AfterUpdate()

Forms!Start![AnwenderVorname] = DLookup("[Vorname]", "[Personal]", "[laufende Nummer] =Forms!Start![AuswahlAnwender]")
Forms!Start![AnwenderName] = DLookup("[Familienname]", "[Personal]", "[laufende Nummer] =Forms!Start![AuswahlAnwender]")
Forms!Start![Zahl1] = DLookup("[Zahl]", "[Personal]", "[laufende Nummer] =Forms!Start![AuswahlAnwender]")

End Sub[/color]

wie muss der Code ergänzt werden, damit das OLE Objekt 'Bild' aus dem Formular Tabelle in das Formular Start eingefügt wird?

[Hondo]

Hallo,
ich würde Bilder nicht als OLE speichern sondern nur den Namen des Bildes (vorzugsweise VornameNachname.jpg) als Text speichern und die Bilder iim Verzeichnis der Access-Datei speichern oder im Unterverzeichnis.
Im Formular dann ein Bildfeld einfügen. Per VBA kannst du dann z.b. schreiben:
Me!Bild1.picture = CurrentProject.Path & "\Bilder\" & Dlookup("[Bildname]", "[Personal]", "[laufende Nummer] = " & Forms!Start![AuswahlAnwender])

Andreas

[tismo]

Danke für den Tip!