Question : VBA command to open EMBEDDED OLE object - Word document

I currently use the code shown below to open an embedded Word document.
Sometimes it works perfectly; opening the document in Word in full screen (that's what I want).

Other times it just opens within the field. How am I supposed to see a document in a half inch field?

In Excel, there's a fail safe command:
    ActiveSheet.Shapes("OLEobject").Select
    Selection.Verb Verb:=xlOpen      <<<<<<
   
Is there something similar in Access 2007?

BTW: Does Access 2007 have a macro recorder? I haven't found it so far.

Thanks
A
End Sub
Code Snippet:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
Private Sub ViewDelClause_Click()
   
    If IsNull([DelClauseOLE]) Then      ' Check the object field is not Null
            GoTo OpenObject_End         ' [OLEobjectField] is the field name
        Else
            GoTo OpenObject_Continue
    End If
 
OpenObject_End:                         ' Field is Null. Exit Sub
    MsgBox (" There is no document to open.")
    Exit Sub
 
OpenObject_Continue:                    ' Field is not Null. Open object   .Verb Verb:=xlOpen
'    Me![DelClauseOLE].Action = acOLEActivate
    With Me![DelClauseOLE]
        .Action = acOLEActivate
    End With
 
End Sub

Answer : VBA command to open EMBEDDED OLE object - Word document

Too bad.  If you have Access 2007, you might be able to switch to the new Attachment data type -- it doesn't cause as much database bloat as the old OLE data type.
Random Solutions  
 
programming4us programming4us