Office中国论坛/Access中国论坛

标题: 关于Docmd.RunSQL的问题 [打印本页]

作者: arone 时间: 2004-4-19 18:03
标题: 关于Docmd.RunSQL的问题
用Runsql更新或添加记录到一个表中，添加或更新前系统会出现一个提示窗口，说明要添加或更新一个数据，点是后数据添加，但点否，将报错，大家有什么好办法？[attach]4305[/attach]

作者: sea.er 时间: 2004-4-19 18:24
加上出错处理，或者干脆屏蔽提示窗口

作者: arone 时间: 2004-4-19 18:38

以下是引用sea.er在2004-4-19 10:23:38的发言：
加上出错处理，或者干脆屏蔽提示窗口

出错处理如何加？或者用Runsql不好，有其他更好的方法？

作者: sea.er 时间: 2004-4-19 18:44
1、Private Sub CmdAdd_Click()
On Error GoTo Err_CmdAdd_Click
Dim sql As String
If IsNull(Me.AddNew) Then
MsgBox ("

lease input operator!")
Else
sql = "insert into [tabOperator] ([operator]) values ('" & Me.AddNew & "')"
DoCmd.RunSQL sql
Me.MemList.Requery
Me.AddNew = Null
End If
Exit_CmdAdd_Click:
Exit Sub

Err_CmdAdd_Click:
MsgBox Err.Description
Resume Exit_CmdAdd_Click
End Sub

2、Private Sub CmdAdd_Click()
Dim sql As String
If IsNull(Me.AddNew) Then
MsgBox ("

lease input operator!")
Else
DoCmd.SetWarnings False
sql = "insert into [tabOperator] ([operator]) values ('" & Me.AddNew & "')"
DoCmd.RunSQL sql
Me.MemList.Requery
Me.AddNew = Null
DoCmd.SetWarnings True
End If
End Sub

作者: Ajoe 时间: 2004-4-19 19:41
其实很简单。
你在上面的菜单栏里，找到“工具”，
点击出现下拉菜单，
找到“选项”，并在“选项”窗口中，找到“编辑/查找”那一个窗口，
把“查询操作”前面的√去掉就可以了。

作者: arone 时间: 2004-4-19 20:03
谢谢！

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