アクセスのボタンから指定のワードファイルを開く

質問

アクセスのフォームでボタンをいくつか作成し、各ボタンをクリックすると指定のワードファイルが開けるようにするにはどうしたら良いのでしょうか。
宜しくお願いします。

回答No.1

O_cyan · ベストアンサー

ボタンのプロパティのクリック時のイベントに
ボタンをコマンド1とすると

Private Sub コマンド1_Click()
On Error GoTo Err_コマンド1_Click

Dim stAppName As String

stAppName = "C:\Program Files\Microsoft Office\Office\winword.exe 指定のワードファイルのパス\ファイル名.doc"
Call Shell(stAppName, 1)

Exit_コマンド1_Click:
Exit Sub

Err_コマンド1_Click:
MsgBox Err.Description
Resume Exit_コマンド1_Click

End Sub

と記述すれば開きます。

お礼

ご回答ありがとうございます。試してみます。

回答No.2

ja7awu

例えば、こんな感じでどうですか。

Private Sub コマンド0_Click()
　　Dim RetVal
　　RetVal = Shell("C:\Program Files\Microsoft Office\Office\" & _
　　　　　　"Winword.exe c:\test.doc", 1)
'
End Sub

お礼

ご回答ありがとうございます。