用RecordCount返回记录集中记录数量不准确!请看看

nxjswt

是有这个问题，比较好的解决办法是首先用MOVE方法移到记录集的末尾再取记录集的数量。
zhengjialon 发表于 2004-2-19 16:05

这个办法解决了利用子窗体的模糊查询中的获取最后查询结果记录数的问题。

1、在子窗体的窗体页脚中设置字段进行统计，如记录条计数:=Count(*)
2、在主窗体做调用统计记录数字段，如查询记录计数=IIf(IsNumeric(frmChaxun1.Form!记录条计数),frmChaxun1.Form!记录条计数,0)
3、在利用子窗体筛选的查询语句中做如下代码：
   '查询语句
    Me.Refresh
    Dim strWhere As String
    strWhere = ""
   
        
    If Not IsNull(Me.帐号) Then
        strWhere = strWhere & "([帐号] like '*" & Me.帐号 & "*') AND "
    End If
    If Not IsNull(Me.备注) Then
        strWhere = strWhere & "([备注] like '*" & Me.备注 & "*') AND "
    End If            
    '==========================================================
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Me.frmChaxun1.Form.FilterOn = True
    Me.frmChaxun1.Form.Filter = strWhere
        
    '为了记录计数正确，使用这个语句
    Me.frmChaxun1.Form.Recordset.MoveLast
   
    '显示查询结果计数
        
    If Me.查询记录计数 = 0 Then
          MsgBox "没有查询到任何记录！", vbExclamation, "注意！"
        Else
          MsgBox "当前查询到" & Me.查询记录计数 & "条记录！", vbInformation, "注意！"
    End If