Insert OLE Object in Table with VBA => Long Binary Data
Posted on 1997-12-02
that might be a newbie question but I am simply not able to
find the solution ...
What I want to do is to create a piece of VBA code which
uses GetObject to start and instanciate an OLE Object. The
Object pointer I want then to store in a table field (Ole Object). Afterwards it should be possible to double click
on such a field and the appropriate application comes up with the matching document, spreadsheet or whatever.
Much the same as I can do from Table View with menus (insert object).
So in principle I did that :
Sub Button_Click ()
Dim db As Database, rs As Recordset, obj As Object
Set db = CurrentDB()
Set rs = db.OpenRecordset("testtable")
Set obj = GetObject("c:\temp\x.doc")
rs!objekt = obj
Code is running, but when I have a look at the table, I only find "Long Binary Data" as content type.
When I insert an object via the menus (Insert Object ...) I find either 'Word Document' or 'Package' and so on, depending what I have inserted.
I am really stuck now and feeling rather dumb ...
Any help is appreciated !!