请教:如何将查找结果中统计人数放在指定的文本框中?多谢.

lvrongsheng

我作了一个小程序,通过输入人员姓名查找到该人,方便在子窗体中对其进行修改.
当有重名的情况时,给出共找到N个人的提示.如果没有找到任何满足条件的人,则给出消息框提示!
我是新手,对VBA编程不熟.请哪位高手帮我改一下.小弟在这先谢谢了.

fan0217

将子窗体的默认视图属性改为：连续窗体。

在查询按钮添加以下代码：


Private Sub 查找_Click()

Dim rs As Recordset
Me![Child0].Requery

    Set rs = Me![Child0].Form.Recordset
Me.Text6 = rs.RecordCount
    MsgBox "找到" & rs.RecordCount & "个记录"

End Sub

lvrongsheng

多谢版主

祝大家新年快乐