Właściwość Recordset.EOF

EOF to własciwość obiektu Recordset określająca koniec zestawu rekordów. 

Jeżeli bieżąca pozycja kursora jest za ostatnim rekordem zestawu lub Recordset nie zawiera żadnych rekordów, właściwość EOF zwraca wartość True. 
W pozostałych przypadkach, EOF przyjmuje wartość False.

Właściwość EOF jest wykorzystywana najczęściej do sprawdzenia, czy możliwe jest przejście do następnego rekordu. 
Np.

Private Sub Koniec_Click() Dim RST As ADODB.Recordset Set RST = New ADODB.Recordset RST.Open „TabelaKsiazki”, CurrentProject.Connection, adOpenDynamic, adLockOptimistic With RST If Not .EOF Then .MoveFirst While Not .EOF ’ (…) If Not .EOF Then .MoveNext Wend .Close End With Set RST = Nothing DoCmd.Close End Sub

W tym przykładzie przejście do kolejnego rekordu następuje tylko wtedy, gdy właściwość EOF ma wartość False. 

---

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela