Open OLE object via code 1

[sozzer]

I have a Word document in a field in a table. I've looked around but cant find how i can open this via code, ie on click of a button.

I currently have the following which referneces from a specific path name, but ideally i'd like the Instructions file to be packaged within the db, hence my question.

Dim strDocPath As String
Dim dbs As Database
Dim objApp As Object

On Error GoTo err1
strDocPath = "c:\program files\scoms\Instructions.doc"
Set objApp = GetObject(, "Word.Application")
With objApp
.Documents.Open (strDocPath)
.ActiveDocument.PrintPreview
.Visible = True

End With
Set objWord = Nothing
err1:
If Err.Number = 429 Then
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Resume Next
End If

I'm assuming this is fairly easy to do....?

cheers
Ad

 

[Pampers]

I think you can set this in the auto active property of the ole-object, like

Auto-Activate: Double-Click

Pampers
Just let it go...

 

[sozzer]

thanks pampers. i want it to launch from a command button on a form so your suggestion pointed me in the right direction:

file1 is the control name and is visible = no

With Me
.file1.Action = acOLEActivate
.file1.Verb = acOLEVerbOpen
End With


However, word doesnt open the first time you click the button - the control becomes visible and it opens the doc within the control. Press it again, and the doc opens in Word as it should. Any ideas?

 

[Pampers]

sorry Sozzer, I don't know.

Pampers
Just let it go...

 

[ItIsHardToProgram]

Call the routine twice with the same trigger

 

[sozzer]

Doh! Simple but effective. Have a star for pointing out the obvious to me!