按钮自动导航操作的删除记录问题

l3396949

做了一个删除记录的按钮~，按照自动导航步骤做的删除记录
为什么我在中间加上一个msgbox()函数，和用户交流是否要真正删除，删除功能就用不了呢？

轻风

代码上看不有什么问题。

roych

试试改成：
MsgBox("确定要删除相应的记录吗？", vbOKCancel, "删除确认") = vbOK

l3396949

上源代码，都是access2007自动生成的
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

    'If MsgBox("确定要删除相应的记录吗？", vbOKCancel, "删除确认") = 1 Then
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
    'End If

Exit_Command6_Click:
    Exit Sub

Err_Command6_Click:
    MsgBox Err.Description
    Resume Exit_Command6_Click

End Sub

l3396949

1. Private Sub Command6_Click()
   
2. On Error GoTo Err_Command6_Click
   
3. 
   
4.     'If MsgBox("确定要删除相应的记录吗？", vbOKCancel, "删除确认") = 1 Then
   
5.         DoCmd.RunCommand acCmdSelectRecord
   
6.         DoCmd.RunCommand acCmdDeleteRecord
   
7.     'End If
   
8. 
   
9. Exit_Command6_Click:
   
10.     Exit Sub
    
11. 
    
12. Err_Command6_Click:
    
13.     MsgBox Err.Description
    
14.     Resume Exit_Command6_Click
    
15. 
    
16. End Sub

复制代码

l3396949

中间的if语句我注释掉了就能用！