Opening a Word Document 3

[jdwm2310]

I have a log on page with the textbox and four controls, one of the controls is a Help button. When clicking on this button will ask the user if they would like to view a manual. this manual is a word document. Can Access 2000 do this? Thanks!!!

 

[GrantDB]

Try this
Grant
'------------


Option Compare Database
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Public Sub OpenApp()
ShellExecute Me.hwnd, vbNullString, "C:\temp\grantdonovancv2.doc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

 

[LeanneGodney]

Or if you want to use Word try this:
------------

dim objWord as Word.Application

Set objWord = CreateObject("Word.Application&quot

objWord.Documents.Open("your document path&quot
objWord.Visible = True

set objWord = nothing

 

[LeanneGodney]

Oh and by the way, to get it to ask the person first, do this:

-----

Dim objWord As Word.Application

If MsgBox("Would you like to view the manual", vbYesNo) = vbYes Then
Set objWord = CreateObject("Word.Application&quot

objWord.Documents.Open ("your document path&quot
objWord.Visible = True

End If

Set objWord = Nothing

 

[jdwm2310]

LeanneGodney,

this is what I did:
Private Sub Command26_Click()
Dim objWord As Word.Application

[tt]If MsgBox("Would you like to view the HR Help Desk Manual, if however you are experiencing technical difficulties please contact Jeanette Stuart", vbYesNo) = vbYes Then
Set objWord = CreateObject("Word.Application&quot
objWord.Documents.Open ("K:\HelpDesk\Help_desk_Document.doc&quot
objWord.Visible = True

End If

Set objWord = Nothing[/tt]
But it doesn't work, I mean it doesn't even ask the question. Any idea why????

End Sub

 

[basil3legs]

Use:

Dim objWord As Object
Set objWord = CreateObject("Word.Application&quot

If MsgBox("Would you like to view the HR Help Desk Manual, if however you are experiencing technical difficulties please contact Jeanette Stuart", vbYesNo) = vbYes Then
Set objWord = CreateObject("Word.Application&quot
objWord.Documents.Open ("C:\My Documents\hoze1.doc&quot
objWord.Visible = True

End If

Set objWord = Nothing

 

[basil3legs]

But obviously with your file path and name!!

 

[grtammi]

Check out this thread: thread702-242141

May assist you a little bit.

HTH

Greg

 

[jdwm2310]

You guys are great!!!!!!!!!! Thanks