Office中国论坛/Access中国论坛

标题: 请教:如下消除报警窗体 [打印本页]

作者: wyg_bit 时间: 2011-8-31 11:42
标题: 请教:如下消除报警窗体
代码里面使用runSQL 来更新数据(update set..) 执行时,都会跳出来一个警告窗体--"您正准备更新1行,如果确认将不能撤销,云云" 请教如何消除此警告窗体.
谢谢!

作者: lastmem 时间: 2011-8-31 11:56
在选项—编辑/查找—确认—操作查询里，把前面的对勾去掉就可以了
另外，应该有代码可以避免提示的，不过俺不会

作者: lastmem 时间: 2011-8-31 13:28
摘　要:用代码设置ACCESS选项
正　文:

Application.SetOption "Show Status Bar", False
Application.SetOption "Show Startup Dialog Box", False

　　我们做好程序分发给他人使用时，可能别人的ACCESS系统环境跟你的不一样，并会导致很多麻烦问题，最明显的就是：当你在程序中执行某个操作查询(更新、删除、追加、生成表)时,会弹出一些恼人的提示信息让你确认。
其实，我们完全可以在代码中对ACCESS的运行环境进行设置，语法为
　　SetOption(OptionName, Setting)
　　但是在程序中的optionName一般只认英文,且一个字符也不能错，而　工具－选项　里面全是中文。这时，你如果按如下路径打开你的注册表，便会发现这些英文东东全部老老实实的呆在那里呢：

2002版：　　　　　　　　　　　　　　　　　　　　　　　　
[HKEY_USERS\.DEFAULT\Software\Microsoft\Office\10.0\Access\Settings]

作者: dashllh 时间: 2011-8-31 13:38
楼上的太复杂了
直接用
........
DoCmd.SetWarnings False
DoCmd.RunSQL......
.......
就行。

作者: wyg_bit 时间: 2011-8-31 14:43
谢谢各位大虾.
lastmem的方法--治标
dashllh的方法--完解
赞!

作者: yehf 时间: 2011-8-31 16:21
CurrentDb.Execute ("delete * from temp")

作者: excessstone 时间: 2011-9-1 16:16

dashllh 发表于 2011-8-31 13:38
楼上的太复杂了
直接用
........

之后一定要加上
DoCmd.SetWarnings true

因为这是个程序级设定，一旦禁用提醒，以后任何时候等等都不会再有提示，会死的很惨的。

作者: dashllh 时间: 2011-9-5 09:33

excessstone 发表于 2011-9-1 16:16
之后一定要加上
DoCmd.SetWarnings true

嗯，是要养成良好的编码习惯

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)