RecordCount to właściwość obiektu DAO.Recordset wyznaczająca liczbę rekordów.
W przypadku tej właściwości ważny jest jednak parametr Type przy otwieraniu zestawu rekordów. Tylko dla wartości 1 czyli dbOpenTable wystarczy zapis:
IleRekordow=RST.RecordCount
W pozostałych przypadkach konieczne jest przejście do ostatniego rekordu i dopiero wówczas odczyt właściwości RecordCount.
Przykładowy kod:
| Public Sub IleRekordow() Dim RST As DAO.Recordset Dim IleRek As Long Set RST = CurrentDb.OpenRecordset(„KwerendaSpisKsiazek”) If Not (RST.EOF And RST.BOF) Then RST.MoveLast IleRek = RST.RecordCount Else IleRek = 0 End If '(…) RST.Close Set RST = Nothing End Sub |
Oczywiście, liczbę rekordów z danej tabeli czy kwerendy można też wyznaczyć za pomocą funkcji DCount, ale czasem, szczególnie przy bardzo dużych bazach danych, lepiej zrobić to za pomocą tej właściwości.
A tu możesz mi postawić kawę:
