Office中国论坛/Access中国论坛

标题: 按钮自动导航操作的删除记录问题 [打印本页]

---

作者: l3396949    时间: 2012-3-29 08:55
标题: 按钮自动导航操作的删除记录问题
做了一个删除记录的按钮~，按照自动导航步骤做的删除记录
为什么我在中间加上一个msgbox()函数，和用户交流是否要真正删除，删除功能就用不了呢？

---

作者: l3396949    时间: 2012-3-29 08:57
上源代码，都是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    时间: 2012-3-29 08:57

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    时间: 2012-3-29 08:58
中间的if语句我注释掉了就能用！

---

作者: 轻风    时间: 2012-3-29 09:16
代码上看不有什么问题。

---

作者: roych    时间: 2012-3-29 14:04


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

---

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

Powered by Discuz! X3.3