关于Docmd.RunSQL的问题

arone

用Runsql更新或添加记录到一个表中，添加或更新前系统会出现一个提示窗口，说明要添加或更新一个数据，点是后数据添加，但点否，将报错，大家有什么好办法？

sea.er

加上出错处理，或者干脆屏蔽提示窗口

arone

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

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

sea.er

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

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

arone

谢谢！