Kategoria: Funkcje VBA

Funkcja VBA Environ

Environ to funkcja  systemowa VBA Jej zadaniem jest pobieranie wartości zmiennych środowiskowych systemu operacyjnego, czyli takich, które są ustawione przez Windows i opisują aktualne środowisko użytkownika.

kliknij, aby powiekszyć

Najczęściej stosowane wartości argumenty Expression to:

Expression Zwracana wartość
Username Nazwa zalogowanego użytkownika
ComputerName Nazwa komputera
OS System operacyjny
Temp Ścieżka do folderu tymczasowego

W praktyce może to wyglądać np.tak:

Public Sub Uzytkownik()
Dim User As String
Dim FolderTymczasowy As String
User = Environ(„Username”)
FolderTymczasowy = Environ(„Temp”)
End Sub

W zależności od wersji i ustawień komputera zmienne funkcji mogą się różnić. Wszystkie dostępne zmienne można sprawdzić taką procedurą:

Public Sub WypiszZmiennieSrodowiskowe()
Dim i As Integer
For i = 1 To 50
Debug.Print i & Environ(i)
Next i
End Sub

W swoich projektach zdarza mi się stosować tę funkcję. Wykorzystuję ją głównie do sprawdzenia użytkownika i ukrywania/odkrywania niektórych arkuszy. Ścieżka do folderu tymczasowego jest również przydatna do tworzenia chwilowych plików.

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela

Funkcja DLast()

Funkcja DLast() jest jedną z funkcji agregatu domeny Accessa.  Zwraca wartość pola z ostatniego rekordu tabeli/kwerendy spełniającego określone warunki. 

kliknij, aby powiększyć

Ma trzy argumenty:

    • wyrażenie – nazwa pola, z którego ma być pobrana wartość, argument obowiązkowy
    • domena – nazwa zestawu rekordów, z którego mają wyszukiwane rekordy (np.nazwa tabeli czy kwerendy), argument obowiązkowy
    • kryteria – kryteria uściślajace, które rekordy mają być brane pod uwagę, argument opcjonalny.

Jeżeli argument kryteria zostanie pominięty – zwrócona zostanie wartość z ostatniego rekordu całego zestawu..

Sama konstrukcja funkcji jest taka sama jak dla funkcji Dcount() czy DFirst(). 

Funkcja DLast() występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

A tu możesz mi postawić kawę: 

   buycoffee.to/marzatela

Funkcja DFirst()

Funkcja DFirst() jest jedną z funkcji agregatu domeny Accessa.  Zwraca wartość pola z pierwszego rekordu tabeli/kwerendy spełniającego określone warunki. 

Ma trzy argumenty:

    • wyrażenie – nazwa pola, z którego ma być pobrana wartość, argument obowiązkowy
    • domena – nazwa przeszukiwanego  zestawu rekordów (np.nazwa tabeli czy kwerendy), argument obowiązkowy
    • kryteria – kryteria uściślajace, które rekordy mają być brane pod uwagę, argument opcjonalny.

Jeżeli argument kryteria zostanie pominięty – zwrócona zostanie wartość z pierwszego rekordu całego zestawu..

Sama konstrukcja funkcji jest taka sama jak dla funkcji Dcount(). 

Funkcja DFirst() występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

Przykład takiej procedury:

Public Function PierwszyNumer()
Dim NrId As Long
NrId = DFirst(„NumerKatalogowy”, „TabelaKsiazki”, „DataP is null”)
End Function

 

A tu możesz mi postawić kawę: 

   buycoffee.to/marzatela

Funkcja nz()

Funkcja nz to funkcja konwersji Accessa.  

kliknij, aby powiększyć

Funkcja ma 2 obowiązkowe argumenty:

    • wartość typu wariant – wartość danego pola, mogącą być również brakiem wartości czyli null
    • wartość_jeśli _null – wartość wynikowa funkcji jeżeli pierwszy argument to null 

Funkcja pożyteczna i często ją stosuję. Opisałam to szczegółowo tu:
Null to nie zero

Funkcja Nz występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

Funkcja IsNull

Funkcja IsNull to funkcja sprawdzająca Accessa.  Wynikiem jej działania jest wartość Prawda lub Fałsz.

kliknij, aby powiększyć

Funkcja ma 1 obowiązkowy argumenty:

    • Wyrażenie – wartość do sprawdzenia

Funkcja pożyteczna i z pewnością warto ją stosować, aby uniknąć błędów choć ja zdecydowanie częściej stosuję funkcję nz(). 

Funkcja IsNull występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

Funkcja DateSerial

Funkcja DateSerial() to funkcja daty i czasu Accessa.  Wynikiem jej działania jest data stworzona z argumentów wejściowych.

Funkcja ma 3 obowiązkowe argumenty:

    • Rok  – wartość roku, typu Integer
    • Miesiąc – wartość miesiąca, typ Integer
    • Dzień – numer dnia miesiąca, typ Integer

Po wpisaniu wartości poszczególnych argumentów funkcji, otrzymujemy wartość typu Data. 

Funkcja DateSerial() występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

Funkcja CDate()

Funkcja CDate() to funkcja konwersji Accessa.  Wynikiem jej działania jest data.

Funkcja ma jeden argument wyrażenie. Musi on być liczbą nieujemną. Najczęściej jest wykorzystywana przy zmianie liczby na datę.

Funkcja CLng() występuje i działa tak samo w Accessie (czyli w kreatorze wyrażeń) jak i kodzie VBA.

Kurs Access 2010 esencja