S
Shane
I'm trying to write code so I can Insert an embeded or linked fax from an
Microsoft Office Document Imaging into a table and I cant figure it out. Im
saving the file out as a .tif file on the server so I can load it into our
shipping db Any help would be appreciated.
Private Sub cmdOLEAuto_Click()
On Error GoTo Error_cmdOLEAuto_Click
With Me![PO_DOC]
.Enabled = True
.Locked = False
' Specify what kind of object can appear in the field.
.OLETypeAllowed = acOLEEmbedded
' Dont know the class name for Microsoft Office Document Imaging .
.Class ????????
' Specify the file to be embedded.
' Type the correct path name.
.SourceDoc = "Q:\Faxes\511915.tif"
' Create the embedded object.
.Action = acOLECreateEmbed
End With
Exit_cmdOLEAuto_Click:
Exit Sub
Error_cmdOLEAuto_Click:
MsgBox CStr(Err) & " " & Err.Description
Resume Exit_cmdOLEAuto_Click
End Sub
Microsoft Office Document Imaging into a table and I cant figure it out. Im
saving the file out as a .tif file on the server so I can load it into our
shipping db Any help would be appreciated.
Private Sub cmdOLEAuto_Click()
On Error GoTo Error_cmdOLEAuto_Click
With Me![PO_DOC]
.Enabled = True
.Locked = False
' Specify what kind of object can appear in the field.
.OLETypeAllowed = acOLEEmbedded
' Dont know the class name for Microsoft Office Document Imaging .
.Class ????????
' Specify the file to be embedded.
' Type the correct path name.
.SourceDoc = "Q:\Faxes\511915.tif"
' Create the embedded object.
.Action = acOLECreateEmbed
End With
Exit_cmdOLEAuto_Click:
Exit Sub
Error_cmdOLEAuto_Click:
MsgBox CStr(Err) & " " & Err.Description
Resume Exit_cmdOLEAuto_Click
End Sub