Article ID: 132240
Article Last Modified on 11/6/2000
Sub Photo_DblClick (Cancel as Integer)
On Error GoTo NoOLEObject
Me![Photo].Verb = VERB_OPEN
Me![Photo].Action = OLE_ACTIVATE
Exit Sub
NoOLEObject:
If Err = 2684 Then
Me![Photo].OLETypeAllowed = OLE_EMBEDDED
Me![Photo].SourceDoc = "C:\TEST.DOC"
Me![Photo].Action = OLE_CREATE_EMBED
Resume
Else
MsgBox "Error - " & Str(Err) & " : " & Error
End If
Exit Sub
End Sub
Global Const VERB_OPEN = -2
Global Const OLE_ACTIVATE = 7
Global Const OLE_EMBEDDED = 1
Global Const OLE_CREATE_EMBED = 0
-Or-
Additional query words: automate
Keywords: kbhowto kbinterop KB132240