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

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

No.1 ベストアンサー 回答者： O_cyan 回答日時： 2003/04/07 16:22

ボタンのプロパティのクリック時のイベントに

ボタンをコマンド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

と記述すれば開きます。

この回答へのお礼

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

お礼日時：2003/04/07 16:34

No.2 回答者： ja7awu 回答日時： 2003/04/07 16:24

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

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

この回答へのお礼

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

お礼日時：2003/04/07 16:35