OLE Class name assocaited with Microsoft Picture and Fax viewer

  • Thread starter Thread starter DanRoy
  • Start date Start date
D

DanRoy

I was testing "How to Load OLE Objects from a Folder into a table, ACC2000.
There is a note to "see the documentation for the application supplying the
object to determine the Class Name of an OLE object."

I am using Visual Basic from within Access to open Microsoft Project, filter
a view and save a picture of the resultant view to a gif file. When I click
on the gif file, the file is opened by Microsoft picture and File viewer.
Within MS Picture and Fax Viewer is a Help icon, but no help is found for
OLE, Class, Class Name or anything else I can come up with.

Can someone provide a pointer to where I can look next? I have done queries
on Yahoo for""Visual Basic" "OLEClass" GIF and not yet found anything i can
use.

Dan


Can anyone tell me the correct OLE Class name to assocaite with the picture.
When I use the above referenced ACC2000
 
Stephen,

Thanks for your response but the information I got from usng your reply did
not answer my question nor did it allow me to successfully load the graphic
files from disk to my table.

I took ACC2000 and copied into my exisitng MDB application as a standalone
form and table. Using your application, I got a class name of OT_Static,
which did not help me in getting the ACC2000 form to successfully load the
graphic files.

So, I am now trying to convert the form-driven ACC2000 to a vb driven
Subroutine with little luck. I am doing this so I have the ability to step
through the code and watch what is happening in the immediate window. In
form mode, I cannot see what is happening as it steps through each line.

Here is my new module code:

Dim dbs As Database, rst As DAO.Recordset
Set dbs = CurrentDB
Set rst = dbs.OpenRecordset("tblLoadOLE")


Dim MyFolder As String
Dim MyExt As String
Dim MyPath As String
Dim MyFile As String
Dim StrCriteria As String

MyFolder = "C:\TEST"

MyPath = MyFolder & "\" & "*." & "GIF"
MyFile = Dir(MyPath, vbNormal)

Do While Len(MyFile) <> 0
With rst
.AddNew
.Fields("OLEPath") = MyFolder & "\" & MyFile
' Debug.Print rst!OLEPath

------ having trouble with these statements , which is why they are
commented out------
' MyFile.Class = "Paint.Picture"
'.Fields("Class.OLETypeAllowed") = acOLEEmbedded
'.Fields("class.SourceDoc") = MyPath
'.Filelds("class.action") = acOLECreatEmbed
' doCMD.RunCommand acCmdRecordsGoToNext
-------rest runs ok-----------
MyFile = Dir
.Update
End With
Loop
End Sub


Can you provide some insights as to how to complete the conversion. I think
I need to add some lines to define the properties of the OLE file i wish to
deefine before loading into the table but i do not know how to do that. (I
ams till usign the same table definition as was described in ACC2000
support.microsoft.com/kb/q198466 ).

Thank you for your help.

Dan
 
Back
Top