Office: (Office 365) Mit Access VBA ein bmp in OLE-Objekt verknüpfen

Liebe Forengemeinde,

ich kämpfe seit tagen mit einem Problem einer OLE-Verknüpfung. Ich habe eine Datenbank, die bisher auf Access 2016 lief. Hierin werden auf einem Datenblatt je nach einem Status ein bmp in einem gebundenen Feld (OLE-Objekt) angezeigt. Das sind einfache Status-bmp mit roter, oranger, grüner und blauer Lampen.

Ich arbeite jetzt aktuell mit Microsoft 365 und der darin befindlichen Access-Version.

Bisher hat der folgende Teil-Code bei der alten Datenbank funktioniert, wenn man einen der Button betätigt hat:

Code:

Private Sub Button_gruen_Click()
Freigabe_durch.Value = User.Value
Status_Objekt.Class = "MSPhotoEd.5"  ' Den Klassennamen angeben.
Status_Objekt.OLETypeAllowed = acOLELinked     ' Den Typ des Objekts angeben.
Status_Objekt.SourceDoc = Form_Menü.ProgrammPfad.Value & "\Images\Status\dot_gruen_g.bmp" ' Die Quelldatei angeben.
Status_Objekt.Action = acOLECreateLink         ' Das verknüpfte Objekt erstellen.
Status.Value = 2
Statusformularaktualisierung
Datum.SetFocus
End Sub

Status_Objekt ist das gebundene Feld auf der Datenmaske.

Nun jedoch erscheint bei dem Versuch der Verlinkung der Laufzeitfehler 2786. "Der OLE-Server unterstützt kein Verlinken".

In der Anlage habe ich mal ein Bild der Maske beigefügt. D.h. bei den blauen Pfeilen würde sonst die Status-LED (als bmp) angezeigt werden, sofern man z.B. die hinteren Farbbutton drückt.

Ich komme leider nicht mehr weiter. Vielleicht hat jemand einen Tipp für mich. Mit Sicherheit muss der Code für 365 umgeschrieben werden?!?!?

Besten Dank und viele Grüße
Stefan

 

Hallo,

Runtime-Error 2786:
Der OLE-Server unterstützt kein Verknüpfen. Sie haben versucht, eine Visual Basic-Prozedur mit der Aktion-Eigenschaft auszuführen, haben aber nicht genügend Informationen für eine Verknüpfung bereitgestellt

in folgendem Link beschreibt ein User offenbar das identische Problem aus dem Jahr 2002 (nach einem Office-Wechsel, ebenfalls eine MSPhotoEd-Klasse wie bei dir: .Class = "MSPhotoEd.5"):
OLE-Server Laufzeitfehler 2786 - MS-Office-Forum
Also dürfte das Problem nicht so sehr speziell von Office365 herrühren, sondern mit irgendeiner Änderung anlässlich der Office-Version-Änderung.

In folgendem Link bietet Microsoft eine Problembeschreibung in Zusammenhang mit OLE-Objekten und Norton-Antivirus:
Fehlermeldung "Es trat ein Problem auf, während Microsoft Access und der OLE-Server kommuniziert haben" beim Einbetten oder Verknüpfen eines Word-Dokuments in Access
Gegen Ende des Links hat Microsoft "Schritte zum Reproduzieren des Problems" eingefügt, um verifizieren zu können, ob es dieses Problem ist.

FAQ7Bugs
im FAQ7.20 schreibt DonKarl: 2. Eine andere Sache ist die "klassische" Variante des OLE-Server-Problems. Sie kommt meist im Zusammenhang mit Bildern vor und wird dadurch verursacht, dass kein (passendes) Grafikprogramm als OLE-Server in Windows (gültig) registriert ist. Die Lösung ist manchmal einfach das Neuinstallieren eines passenden Programmes, kann aber auch eine mühsame Angelegenheit werden. Dazu ein NG-Beitrag eines MS-Mitarbeiters und ein KB-Artikel am Beispiel des jpg-Formates.

NG-Beitrag eines MS-Mitarbeiters:
https://groups.google.com/g/microsoft.public.de.access/c/ronuFukykis/m/HnRHmIKHwyMJ

 

Hallo Anton,

danke für die Infos.

Habe jetzt eine Lösung gefunden. D.h. ich habe dem bmp unter Windows 10 nochmal eine andere Anwendung zum Öffnen zugeordnet. D.h. ich lasse jetzt das bmp von Paint öffnen. Damit funktioniert die OLE-Funktion unter Access wieder bestens.

Ist m.E. eine Krücke, aber jedenfalls kann ich jetzt die DB weiter optimieren.

Danke nochmal.

Viele Grüße
Stefan