下面的代码分别在Access中执行相应的外部命令,供网友参考。
点击下载此附件
Private Sub Excel_Click()
Shell "EXCEL.EXE", vbMaximizedFocus '执行Excel程序
End Sub
Private Sub PowerPoint_Click()
Shell "POWERPNT.EXE", vbMaximizedFocus '执行POWERPNT程序
End Sub
Private Sub Word_Click()
Shell "WINWORD.EXE", vbMaximizedFocus '执行Word程序
End Sub
Private Sub 画图_Click()
Shell "mspaint.exe", vbMaximizedFocus '执行画图程序
End Sub
Private Sub 计算器_Click()
p = Shell("calc.exe", vbMaximizedFocus) '执行计算器程序
End Sub
Private Sub 记事本_Click()
Shell "notepad.exe", vbMaximizedFocus '执行记事本程序
End Sub
Private Sub 看图_Click()
On Error GoTo err1
Shell "C:\Program Files\ACDSee\ACDSee9.exe", vbMaximizedFocus '执行看图程序
Exit Sub
err1:
MsgBox ("文件路径错误或没有安装看图软件")
End Sub