Office中国论坛/Access中国论坛

标题: [求助]窗体删除当前记录问题 [打印本页]

---

作者: 小宜    时间: 2007-7-16 01:41
标题: [求助]窗体删除当前记录问题
<>如何删除窗体当前选取的记录?而下面的代码始终册除的是第一个记录,谢谢!</P>
<>rivate Sub 删除记录_Click()<BR>On Error GoTo Err_删除记录_Click<BR>    Dim db As Database<BR>    Dim rs As DAO.Recordset<BR>    Set db = CurrentDb<BR>    Set rs = db.OpenRecordset("表1", dbOpenDynaset)<BR>        rs.Delete<BR>        rs.Close<BR>    Me![表1].Requery</P>
<P>Exit_删除记录_Click:<BR>    Exit Sub</P>
<P>Err_删除记录_Click:<BR>    MsgBox Err.Description<BR>    Resume Exit_删除记录_Click<BR>    <BR>End Sub</P>

---

作者: hi-wzj    时间: 2007-7-16 20:06
按钮向导，删除记录....拷贝代码，即可。

---

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

Powered by Discuz! X3.3