Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do you stop In-Place Activation 1

Status
Not open for further replies.

cygne

MIS
Dec 27, 2002
8
0
0
US
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

 
Found a way. I added the following statement before the "Me.oleWordDocument.Action = acOLEActivate" statement:

Me.oleWordDocument.Verb = acOLEVerbOpen

Thanks,
Jim
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top