Access, VBA -funkcje, metody, porady, przykłady
BOF to właściwość obiektu DAO.Recordset stwierdzająca, czy bieżący kursor jest ustawiony przed pierwszym rekordem zestawu.
Jeżeli BOF ma wartość True – oznacza to, że kursor znajduje się przed pierwszym zestawem rekordów.
Jeżeli BOF oraz EOF zwracają wartość True – Recordset nie ma w ogóle rekordów.
EOF to właściwość obiektu DAO.Recordset stwierdzająca, czy bieżący kursor jest ustawiony przy ostatnim rekordzie zestawu.
Jeżeli EOF ma wartość True – oznacza to dojście do końca zestawu rekordów.
Jeżeli BOF oraz EOF zwracają wartość True – Recordset nie ma w ogóle rekordów.
A tu możesz mi postawić kawę:
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ę:
Recordset to właściwość DAO związana z zestawem rekordów.
Jest to jedna z najważniejszych obiektów do obsługi bazy danych z poziomu kodu VBA.
Ma też swoje właściwości i metody:
WŁAŚCIWOŚCI
METODY
– sukcesywnie będą się tu pojawiać linki do wpisów poświęconych najczęściej stosowanym
A tu możesz mi postawić kawę:
Formularz dzielony to formularz, w którym na jednym ekranie widoczny są 2, oparte o to samo źródło danych formularze: formularz ciągły oraz formularz pojedynczy. W obydwu częściach formularza dzielonego aktywny jest ten sam rekord.
Aktywując konkretny rekord w arkuszu danych, jednocześnie zmienia się widok w części formularza pojedynczego.
Formularz dzielony tworzymy ustawiając Widok domyślny w karcie Format w arkuszu właściwości.
Położenie arkusza danych w formularzu można ustawić również w karcie Format w arkuszu właściwości:
Wszystkie inne właściwości formularza są takie same jak w innych formularzach.
Najczęściej jest wykorzystywany w ten sposób, że w części formularza pojedynczego występują dodatkowe pola oparte o różne wyrażenia. Bywa przydatny.
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 |
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ę:
BOF to własciwość obiektu Recordset określająca początek zestawu rekordów.
Jeżeli bieżąca pozycja kursora jest przed pierwszym rekordem właściwość BOF zwraca wartość True.
W pozostałych przypadkach, również w przypadku, gdy Recordset nie zawiera żadnych rekordów, BOF przyjmuje wartość False.
Właściwość BOF jest wykorzystywana najczęściej do sprawdzenia, czy Recordset ma rekordy.
Np.
|
Private Sub PolecenieOtwórz() Dim RST As ADODB.Recordset Set RST = New ADODB.Recordset RST.Open „TabelaKsiazki”, CurrentProject.Connection, adOpenDynamic, adLockOptimistic With RST If .BOF Then ’ (…) End If .Close End With Set RST = Nothing DoCmd.Close End Sub |
W tym przykładzie wejście do przechodzenia przez poszczególne rekordy następuje tylko wtedy, gdy właściwość BOF ma wartość True.
A tu możesz mi postawić kawę:
