使用docmd.runsql进行纪录操作的时候，如何避免出现确认信息？

BoBoQ 2003-08-22 08:42:53

我在使用docmd.runsql中执行删除或者新增记录时候都会弹出确认信息，不知道如何避免
我只知道通过选项中的关闭操作查询这个可选项能够避免，但是请教高手，能不能在VBA代码中实现这个功能？

...全文

152 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dongshaoqing 2003-08-22

打赏
举报

回复

你可以通过录制宏来完成获取代码，你先在工具-宏-录制宏开始录制一个宏，然后你就用鼠标操作选项中的关闭操作查询这个可选项，然后结束录制，这是你到VB编辑器里就能得到相应的代码，我在这里就不给你录制代码了，你自己可以试试，以后有什么操作不会写代码的，都可以通过这种方法来得到VBA代码！

changechange 2003-08-22

打赏
举报

回复

当然可以
http://access911.net/index.asp?board=4&mode=3&recordid=76FABF1E

ACCESS多条数据录入，可以方便用户Private Sub BtOK_Click() Dim strSQL As String If (Me.CbSize.Value "") Then strSQL = "INSERT INTO 服装表(服装名称,款式,尺寸) VALUES('" & Me.TxName.Value & "','" & Me.TxStyle.Value & "'," & Me.CbSize.Value & ");" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True Else strSQL = "CREATE TABLE 服装临时表(服装名称 CHAR(50) PRIMARY KEY,款式 CHAR(50));" 'DoCmd.SetWarnings False DoCmd.RunSQL strSQL 'DoCmd.SetWarnings True strSQL = "INSERT INTO 服装临时表(服装名称,款式) VALUES('" & Me.TxName.Value & "','" & Me.TxStyle.Value & "');" 'DoCmd.SetWarnings False DoCmd.RunSQL strSQL 'DoCmd.SetWarnings True strSQL = "INSERT INTO 服装表(服装名称,款式,尺寸) SELECT 服装名称,款式,尺寸 FROM 服装临时表,尺寸表;" 'DoCmd.SetWarnings False DoCmd.RunSQL strSQL 'DoCmd.SetWarnings True strSQL = "DROP TABLE 服装临时表" 'DoCmd.SetWarnings False DoCmd.RunSQL strSQL 'DoCmd.SetWarnings True End If MsgBox "添加成功" End Sub

Microsoft Access 中的每个菜单和工具栏命令都有一个相关的常量，在 Visual Basic 中，可以用 RunCommand 方法执行该常量对应的那条命令。　

ACCESS动态增删表字段示例ACCESS动态增删表字段示例

sql 更新修改 ACCESS的数据库多个字段内容实例；浅显易懂；触类旁通

VBA_ACCESS_窗体的任意条件查询

Office开发/ VBA

5,173

社区成员

17,905

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章