[求助]关于清除子窗体数据

hjy611

请求高手帮我在查询按钮里增加一个判断，判断是否有数据，还有在清除按钮里添加一个清除子窗体数据的代码

fan0217

在运行查询按钮单击事件末尾加上：

Set rs = Me![受理员查询子窗体].Form.Recordset
If rs.RecordCount = 0 Then
    MsgBox "没有数据！"
End If


在清除按钮单击事件末尾加上：

Set rs = Me![受理员查询子窗体].Form.Recordset
Do While Not rs.EOF
        rs.Delete
        rs.MoveNext
Loop
  MsgBox "清除成功！"

[此贴子已经被作者于2006-1-11 13:24:57编辑过]

hjy611

好的收到了谢谢

longerth123

谢谢

wuaza

那样是不是把数据源中的记录也删除了？

fan0217

对，清除了表中的数据。