I have a form that has an OLE control on it. When I activate it, it does an in-place activation. What I want is for it to activate Word outside of Access for the document.
For example, if I bring up the table and double-click on the OLE field, Word is brought up outside of Access. This is the action I want when the form control is double-clicked.
Thanks,
Jim
Here are the control's attributes:
Bound Object Frame: oleWordDocument
AutoActivate: Manual
BackColor: 16777215
BackStyle: Normal
BorderColor: 0
BorderLineStyle: Solid
BorderStyle: Solid
BorderWidth: Hairline
ColumnHidden: False
ColumnOrder: Default
ColumnWidth: Default
ControlSource: Narrative
ControlTipText: Double-Click to Edit
ControlType: 108
DisplayType: True
DisplayWhen: Always
Enabled: True
EventProcPrefix:
oleWordDocument Height: 3420
HelpContextId: 0
Left: 660
Locked: False
Name: oleWordDocument
OldBorderStyle: 1
OLEType: None
OLETypeAllowed: Either
OnDblClick: [Event Procedure]
Section: 0
SizeMode: Clip
SpecialEffect: Sunken
TabIndex: 1
TabStop: True
Top: 480
UpdateOptions: Automatic
Verb: 0
Visible: True
Width: 10440
CODE:
1 VERSION 1.0 CLASS
2 BEGIN
3 MultiUse = -1 'True
4 END
5 Attribute VB_Name = "Form_frmNarrative"
6 Attribute VB_GlobalNameSpace = False
7 Attribute VB_Creatable = True
8 Attribute VB_PredeclaredId = True
9 Attribute VB_Exposed = False
10 Option Compare Database
11 Option Explicit
12
13
14 Private Sub oleWordDocument_DblClick(Cancel As Integer)
15 If Me.oleWordDocument.OLEType = acOLENone Then
16 Me.oleWordDocument = DLookup("Narrative", "BaseWordDocument", "ID=1"
17 End If
18 Me.oleWordDocument.Action = acOLEActivate
19 End Sub
For example, if I bring up the table and double-click on the OLE field, Word is brought up outside of Access. This is the action I want when the form control is double-clicked.
Thanks,
Jim
Here are the control's attributes:
Bound Object Frame: oleWordDocument
AutoActivate: Manual
BackColor: 16777215
BackStyle: Normal
BorderColor: 0
BorderLineStyle: Solid
BorderStyle: Solid
BorderWidth: Hairline
ColumnHidden: False
ColumnOrder: Default
ColumnWidth: Default
ControlSource: Narrative
ControlTipText: Double-Click to Edit
ControlType: 108
DisplayType: True
DisplayWhen: Always
Enabled: True
EventProcPrefix:
oleWordDocument Height: 3420
HelpContextId: 0
Left: 660
Locked: False
Name: oleWordDocument
OldBorderStyle: 1
OLEType: None
OLETypeAllowed: Either
OnDblClick: [Event Procedure]
Section: 0
SizeMode: Clip
SpecialEffect: Sunken
TabIndex: 1
TabStop: True
Top: 480
UpdateOptions: Automatic
Verb: 0
Visible: True
Width: 10440
CODE:
1 VERSION 1.0 CLASS
2 BEGIN
3 MultiUse = -1 'True
4 END
5 Attribute VB_Name = "Form_frmNarrative"
6 Attribute VB_GlobalNameSpace = False
7 Attribute VB_Creatable = True
8 Attribute VB_PredeclaredId = True
9 Attribute VB_Exposed = False
10 Option Compare Database
11 Option Explicit
12
13
14 Private Sub oleWordDocument_DblClick(Cancel As Integer)
15 If Me.oleWordDocument.OLEType = acOLENone Then
16 Me.oleWordDocument = DLookup("Narrative", "BaseWordDocument", "ID=1"
17 End If
18 Me.oleWordDocument.Action = acOLEActivate
19 End Sub