RecordsetClone.RecordCount zählt nur die Datensätze sichtbar - nicht diejenigen, die Sie Blättern können, um

Ich bin mit RecordsetClone.RecordCount zeigen Sie die Anzahl der Datensätze in einem Unterformular.

Problem ist, es zählen nur solche, die sich innerhalb der Grenzen des teilformulars zu, wenn das Formular geladen wird; alle Datensätze im Unterformular sind, müssen Sie nach unten scrollen, um zu sehen, werden nicht gezählt.

Ist dies das normale Verhalten von RecordsetClone.RecordCount? Gibt es eine andere Methode, die zählen, alle Datensätze in meinem Unterformular einschließlich diejenigen unterhalb der unteren Grenze?

InformationsquelleAutor Matt Hall | 2013-11-14

  1. 1

    Nevermind. Fand heraus, dass, um sicherzustellen, eine genaue RecordCount Sie verwenden sollten MoveLast vor der RecordCount. Kontext und folgenden code, wer hat das gleiche problem:

    Kontext:

    Ich entworfen habe ein such-tool mit dem Haupt-Formular an alle, die Suche Filter (text-Feldern) und den "Search" - Befehl. Die Ergebnisse der Suche angezeigt werden, die auf Unterformular unterhalb der Suchmaske filtern. Ich wollte zu verwenden RecordCount übergeben werden, die Anzahl der Ergebnisse in der Suche zurückgegeben, um eine text-box auf dem Hauptformular aufgerufen txtResultsNum.

    War ich mit den folgenden code, um dies zu erreichen:

    Dim ResultNum As String

ResultNum = Trim(Me.MySubForm.Form.RecordsetClone.RecordCount)

Me.txtResultNum.ControlSource = "=""("" & " & ResultNum & " &"")"""

    Leider (für mich zumindest) würde nur zählen, um die Anzahl der Datensätze, die konnte, werden im Unterformular angezeigt, bevor der Benutzer einen Bildlauf nach unten, so gab eine ungenaue Anzahl aller Datensätze.

    Um genau zu zählen, verwenden Sie MoveLast vor der RecordCount:

    Dim ResultNum As String

Dim rs As Recordset

    Set rs = Me.MySubForm.Form.Recordset

        rs.MoveLast

        ResultNum = rs.RecordCount

        Me.txtResultNum.ControlSource = "=""("" & " & ResultNum & " &"")"""

        rs.MoveFirst

    Set rs = Nothing

    Hinweis habe ich auch verwendet MoveFirst am Ende, das ist, weil 'MoveLast` wird automatisch verschieben Sie den Fokus auf den letzten Datensatz im Unterformular, das ist nicht das, was ich wollte (ich hätte es lieber, der Benutzer sieht den ersten Datensatz und arbeiten Ihren Weg nach unten).

    InformationsquelleAutor Matt Hall

Schreibe einen Kommentar