W tym samouczku dowiemy się, jak otwierać lub zamykać formularze programu Access za pomocą VBA.
Otwieranie formularza dostępu
Aby otworzyć formularz w programie Access, użyj metody DoCmd.OpenForm:
DoCmd.OpenForm "AccessForm"
Spowoduje to otwarcie formularza o nazwie „AccessForm”:
AccessForm wyświetlany w okienku nawigacji
Otwórz formularz z kryteriami
Ten kod otworzy formularz w programie Access z określonymi kryteriami:
DoCmd.OpenForm "AccessForm", acNormal, "ID=10"
Składnia DoCmd.OpenForm
Pełna składnia metody to:
DoCmd.OpenForm(NazwaFormularza, Widok formularza, Nazwa filtra, GdzieWarunek, Tryb danych, Tryb okienkowy, OpenArgs) gdzie:
| Parametr | Opis |
|---|---|
| Nazwa formularza | Wymagane i to nazwa formularza, który chcesz otworzyć. |
| Widok formularza | Opcjonalny i pozwala określić widok formularza. Może to być: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout lub acPreview. Wartość domyślna to acNormal. |
| Nazwa filtra | Opcjonalny i umożliwia określenie nazwy zapytania lub ciągu SQL, który ma być używany jako filtr. |
| GdzieWarunek | Opcjonalny i umożliwia przeprowadzenie zapytania typu where bez użycia słowa where. |
| Tryb danych | Opcjonalny i umożliwia określenie trybu wprowadzania danych. Może to być: acFormAdd, acFormEdit, acFormPropertySettings lub acFormReadOnly. Wartość domyślna to acFormPropertySettings. |
| Tryb okienkowy | Opcjonalny i ustawia wyświetlanie trybu okna. Może to być: acDialog, acHidden, acIcon, acWindowNormal. Wartość domyślna to acWindowNormal. |
| OpenArgs | Opcjonalne można odwoływać się w makrach i wyrażeniach. |
Programowanie VBA | Generator kodu działa dla Ciebie!
Zamknij formularz w programie Access
Użyj DoCmd.Close, aby zamknąć otwarty formularz:
DoCmd.Close acForm, "AccessForm"
Zamknij formularz i zapisz
Ten kod VBA zamknie i zapisze formularz dostępu:
DoCmd.Close acForm, "AccessForm", acSaveYes
Monituj przed zamknięciem formularza
Ta procedura wyświetli monit przed zamknięciem formularza:
Public Sub CloseFormWithConfirmation(FormName As String) If MsgBox("Czy na pewno chcesz zamknąć to okno?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then DoCmd.Close acForm, FormName End If End Sub
Możesz to nazwać tak:
Private Sub CloseFormWithConfirmation_Example() Wywołanie CloseFormWithConfirmation("AccessForm") End Sub
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
Składnia DoCmd.Close
Pełna składnia metody to:
DoCmd.Zamknij (Rodzaj obiektu, Nazwa obiektu, ObiektZapisz) gdzie:
| Parametr | Opis |
|---|---|
| Rodzaj obiektu | Opcjonalne i jest to typ obiektu, który chcesz zamknąć. Może to być formularz lub raport itp. |
| Nazwa obiektu | Opcjonalny i jest nazwą obiektu, który chcesz zamknąć. |
| ObiektZapisz | Opcjonalny i służy do określenia, czy chcesz zapisać wprowadzone zmiany. |
