Miesiąc: czerwiec 2025

Okno dialogowe wskazujące folder

Do wyświetlenia okna dialogowego i wybrania w nim folderu służy  obiekt Application.Filedialog z parametrem wejściowym msoFileDialogFolderPicker.

kliknij, aby powiększyć

Właściwości i parametry są tu takie same jak w przypadku okna dialogowego do wyboru pliku, ale niektóre z nich nie mogą być zastosowane, a nawet mogą wywołać błąd:

      • AllowMultiSelect
        właściwość ignorowana, w oknie dialogowym można wybrać tylko jeden folder
      • ButtonName 
        tekst na przycisku w oknie dialogowym (wartość typu String). Niestety, działa tylko dla systemu macOS, w Windowsie nie.
      • Filters
        nie można dodawać filtrów. Okno dialogowe wyboru folderu nie ma takiej opcji. Przy użyciu pojawia się
        błąd wykonania 438.
      • InitialFileName
        wartość typu String ograniczająca wybór plików widocznych w oknie dialogowym, stosowana najczęściej z użyciem symboli wieloznacznych
      • InitialView
        widok folderów w oknie dialogowym (szczegóły,podgląd itd.)

         

        kliknij, aby pwoiększyć

        – ta właściwość czasami zawodzi. Jeżeli dany folder ma na komputerze wcześniej zmienione i zapisane w Eksploatorze plików preferowany sposób wyświetlania – wpisana tu opcja zostanie zignorowana. 
      • SelectedItems
        folder zaznaczony w oknie dialogowym
      • Show
        wyświetlenie okna dialogowego na ekranie. Po wybraniu choć folderu  – metoda ta zwróci wartość True. Po naciśnięciu Anuluj – wartość False.
      • Title
        Tekst wyświetlany u góry okna dialogowego

Na przykład takie procedury:

Public Sub WybierzFolder()
Dim FD As FileDialog
Dim NazwaFolder As String
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
With FD
.InitialFileName = „C:\*)”
.InitialView = msoFileDialogViewDetails
.Title = „Wskaż FOLDER”
If .Show Then
NazwaFolder = .SelectedItems(1)
Else
NazwaFolder= „Nie wskazano folderu”
End If
End With
Set FD = Nothing
MsgBox NazwaFolder
End Sub

A tak wygląda wygenerowane nim okno dialogowe:

Ja w swoich projektach najczęściej stosuję podobne procedury w formie funkcji. W ten sposób otrzymuję nazwę folderu, która mogą być użyta w innych procedurach.

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela

Błąd wykonania 438

kliknij, aby powiększyć

Error 438 – Object doesn’t support this property or method

Błąd wykonania 438 – Obiekt nie obsługuje tej właściwości lub metody

Błąd pojawia się w przypadkach błędnego zastosowania parametru.
U mnie wystąpił w takiej procedurze

Public Sub WybierzFolderB()
Dim FD As FileDialog
Dim NazwaPlik As String
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
With FD
.Filters.Add „Obrazy jpg”, „*.jpg”

Kompilacja kodu prawidłowa – Application.FileDialog ma taką właściwość, ale użycie jej parametrem wejściowym msoFileDialogFolderPicker (do zaznaczenia folderu) powoduje konflikt przy dodawaniu filtrów. Takie okno nie pozwala na filtrowanie. 

Inne błędy wykonania VBA (Run-time) są tu:
Błędy wykonania VBA

 

 

Okno dialogowe wskazujące plik

Do wyświetlenia okna dialogowego i wybrania w nim pliku/plików służy  obiekt Application.Filedialog z parametrem wejściowym msoFileDialogFilePicker

kliknij, aby powiększyć

Najczęściej stosowane właściwości i parametry:

      • AllowMultiSelect
        True dla możliwości wyboru większej ilości plików
        False dla wyboru tylko jednego pliku
      • ButtonName 
        tekst na przycisku w oknie dialogowym (wartość typu String). Niestety, działa tylko dla systemu macOS, w Windowsie nie.
      • Filters
        filtr decydujący o tym, jaki typ plików ma być wyświetlany w oknie dialogowym 
      • InitialFileName
        wartość typu String ograniczająca wybór plików widocznych w oknie dialogowym, stosowana najczęściej z użyciem symboli wieloznacznych
      • InitialView
        widok plików w oknie dialogowym (szczegóły,podgląd itd.)

         

        kliknij, aby pwoiększyć

        – ta właściwość czasami zawodzi. Jeżeli dany folder ma na komputerze wcześniej zmienione i zapisane w Eksploatorze plików preferowany sposób wyświetlania – wpisana tu opcja zostanie zignorowana. 
      • SelectedItems
        pliki zaznaczone w oknie dialogowym
      • Show
        wyświetlenie okna dialogowego na ekranie. Po wybraniu choć jednego pliku – metoda ta zwróci wartość True. Po naciśnięciu Anuluj – wartość False.
      • Title
        Tekst wyświetlany u góry okna dialogowego

Na przykład takie procedury:

Public Sub WybierzPlik()
Dim FD As FileDialog
Dim NazwaPlik As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add „Obrazy jpg”, „*.jpg”
   .Filters.Add „Obrazy gif”, „*.gif”
   .Filters.Add „Wszystkie pliki”, „*.*”
   .InitialView = msoFileDialogViewPreview
   .Title = „Wskaż plik”
   If .Show Then
       NazwaPlik = .SelectedItems(1)
    Else
      NazwaPlik = „Brak pliku”
   End If
End With
Set FD = Nothing
MsgBox NazwaPlik
End Sub

A tak wygląda wygenerowane nim okno dialogowe:

Ja w swoich projektach najczęściej stosuję podobne procedury w formie funkcji. W ten sposób otrzymuję nazwę pliku/plików, które mogą być użyte w innych procedurach.

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela

FileDialog czyli okno dialogowe

Application.FileDialog to właściwość obiektu Application odpowiadająca za otwarcie okna dialogowego i wskazanie pliku/folderu. 

kliknij, aby powiększyć

Właściwość ta stosowana jest najczęściej przy konieczności wybrania pliku lub folderu i wykorzystania go w dalszej części kodu procedury. 
W kodzie VBA wygląda to tak:

kliknij, aby powiększyć

Jest jeden argument wejściowy: fileDialogType.  
Może on przyjmować następujące wartości:

W praktyce chyba nigdy nie zdarzyło mi się zastosować w projektach te dwie ostatnie wartości argumentu. Za to pierwszą i drugą – bardzo często. Zarówno w Excelu jak i Accessie. 

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela

Obiekt Application

Obiekt Application w VBA w Accessie odnosi się do aktywnej instancji aplikacji Microsoft Access. Umożliwia dostęp do różnych ustawień i funkcjonalności całej aplikacji. Można go używać do manipulowania oknami, bazami danych, a także do uruchamiania akcji, które normalnie wykonuje się za pomocą makr. 

kliknij, aby powiększyć

Ma swoje właściwości i metody, z których wiele wymaga osobnego omówienia. Najczęściej stosowane to:

METODY

WŁAŚCIWOŚCI

  •  

sukcesywnie będą się tu pojawiać notki poświęcone niektórym z nich.

 

Edytor VBA – prywatne i publiczne

W edytorze  VBA każdy moduły własne obiektów ma charakter prywatny. Oznacza to, że wszystkie zapisane w nim funkcje i procedury są dostępne tylko z poziomu VBA.

Moduły ogólne są domyślnie publicznie. Zdefiniowane w nich procedury i funkcje publiczne są widoczne również z poziomu Accessa (m.in. w kreatorze wyrażeń). Funkcje i procedury prywatne mogą być wykorzystane jedynie z poziomu procedur zapisanych w tym samym module. 

Np. taka funkcje w module ogólnym:

Public Function PierwszyNumer()
   'funkcja publiczna
Pierwszy = DFirst(„NumerKatalogowy”, „TabelaKsiazki”, „DataP is null”)
End Function

Private Function OstatniNumer()
   'funkcja prywatna
OstatniNumer = DLast(„NumerKatalogowy”, „TabelaKsiazki”, „DataP is null”)
End Function

W kreatorze wyrażeń wygląda to tak:

kliknij, aby powiększyć

W bazie Biblioteka, w module ModuleFunction  widoczna jest tylko jedna funkcja – zdeklarowana jako Public. Prywatna funkcja OstatniNumer nie jest tu widoczna, może być wykorzystana tylko w obrębie tego samego modułu. 

Przy bardziej rozbudowanych projektach i  wielu procedurach w kodzie może być więcej modułów ogólnych z różnymi procedurami i funkcjami. Nie wszystkie z nich muszą być widoczne i dostępne również bezpośrednio w Accessie, czasem warto je „utajnić”. Wystarczy na początku modułu ogólnego wstawić Option Private Module

kliknij, aby powiekszyć

Od tej pory – wszystkie funkcje i procedury publiczne w takim module będą dostępne z innych modułów, ale nie w Accessie. 
W praktyce zawsze tak robię, porządkując funkcje i procedury i część z nich umieszczając je modułach prywatnych, a część – publicznych. Zmieniam też nazwy modułów, żeby się nie pogubić i utrzymać porządek w kodzie. 
Np. tak:

kliknij, aby powiększyć

 

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela

Zdarzenie formularza: przy deaktywowaniu

 Przy deaktywowaniu to jedno ze zdarzeń uruchamiających się automatycznie przy deaktywowaniu formularza, czyli dokładnie odwrotnie niż przy aktywowaniu formularza.  Dostępne jest w arkuszu właściwości formularza oraz w module VBA formularza. 

kliknij, aby powiększyć

W edytorze VBA jest to procedura o nazwie Form_Deactivate.  Znajduje się ona w module własnym formularza.  Procedura ta działa w momencie, gdy formularz jest deaktywowany, także, gdy przy otwartych kilku formularzach, przechodzimy do innego.
Działa także tuż przed zamknięciem formularza. 

Linki do innych zdarzeń formularza:

Najczęściej używane zdarzenia formularza

A tu możesz mi postawić kawę: 

buycoffee.to/marzatela