对SQL链接表进行delete时的问题

jackysu78

请各位朋友指导如何解决该问题！即执行如下代码时弹出“运行时错误3622，当访问一个带有IDENTITY列的SQL表时，必须使用opendatabase的dbseechanges选项。”

1. Private Sub Command4_Click()
   
2. If IsNull(Me.对象ID.Value) = True Then
   
3. MsgBox ("“对象ID不能为空，请先确定待删除的对象ID!”"), vbExclamation + vbOKOnly, "系统提示"
   
4. Me.对象ID.SetFocus
   
5. Else
   
6. 
   
7.     If MsgBox("您确定要删除ID为：'" & Me.对象ID.Value & "'的出入场记录吗?", vbYesNo, "系统提示") = vbYes Then
   
8.     CurrentDb().Execute "delete from dbo_vipinout where dbo_vipinout.id in( " & Me.对象ID.Value & ")"
   
9.     MsgBox ("已经删除'" & Me.对象ID.Value & "'的出入场记录！"), vbInformation + vbOKOnly, "系统提示"
   
10.     Call Command5_Click
    
11.     Else
    
12.     Call Command5_Click
    
13.     Me.对象ID.SetFocus
    
14.     End If
    
15.    
    
16. End If
    
17. End Sub
    
18. 
    
19. Private Sub Command5_Click()
    
20. Me.对象ID.Value = Null
    
21. Me.出入场异常查看子窗体.Requery
    
22. End Sub

复制代码

jackysu78

路过的朋友、版主，谁能指导一下？谢谢！

jackysu78

自已找了个比较笨的办法，通过执行一个删除查询来处理

todaynew

CurrentDb.Execute 运行出错时，用docmd.runsql一般可行。什么原因不大清楚。

jackysu78

谢谢回复！
好象docmd.runsql 也有问题
DoCmd.OpenQuery目前可以，删除查询

jackysu78

不好意思，docmd.runsql可行，谢谢