请教竹笛老师

牛先生　发表于：2010-07-06 09:28:01 　

想在“生产管理”主窗体上引用你介绍的用代码调去系统内的计算器

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。
但是我试验了一下，做不成，提示无效的引用外部程序，请问代码该写在哪里？命令按钮如何设置呢（我用操作提示做命令按钮，不知道该选择那一项）？

煮江品茶发表于：2010-07-06 09:39:05

用小写试试：

if shell("calc.exe",1)=0 then exit sub

王樵民发表于：2010-07-06 12:50:53

可以执行，没有发现错误，见附件

牛先生发表于：2010-07-06 13:42:54

谢谢各位热心的老师们

wyh99999 发表于：2010-07-06 16:30:53

请教：在不关闭“计算器”的情况下，不出现多个“计算器”窗口？（因失去焦点后就自动最小化了，当我再次按”计算器“按钮时就不再打开一个窗口）

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。

王樵民发表于：2010-07-06 17:04:36

在窗体中定义一个全局变量ReturnValue

Option Compare Database

Public ReturnValue '定义一个全局变量ReturnValue

Private Sub Command3_Click()

If ReturnValue > 0 Then
Else
ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。
End If

End Sub

Private Sub Form_Load() '窗体加载事件
DoCmd.Restore
ReturnValue = 0 '全局变量ReturnValue赋值为0
End Sub

净光发表于：2010-07-06 19:42:14

学习了

wyh99999 发表于：2010-07-07 15:26:01

谢谢老师！

总记录：7篇页次：1/1 9 1 :

Access交流中心