V tomto kurzu se naučíme, jak otevírat nebo zavírat formuláře aplikace Access pomocí jazyka VBA.
Otevření přístupového formuláře
K otevření formuláře v Accessu použijte metodu DoCmd.OpenForm:
DoCmd.OpenForm "AccessForm"
Otevře se formulář s názvem „AccessForm“:
AccessForm je zobrazen v navigačním podokně
Otevřený formulář s kritérii
Tento kód otevře v Accessu formulář se specifickými kritérii:
DoCmd.OpenForm "AccessForm", acNormal,, "ID = 10"
Syntaxe DoCmd.OpenForm
Úplná syntaxe metody je:
DoCmd.OpenForm (NameOfForm, FormView, Název filtru, WhereCondition, Režim dat, Režim okna, OpenArgs) kde:
| Parametr | Popis |
|---|---|
| NameOfForm | Povinný údaj a název formuláře, který chcete otevřít. |
| FormView | Volitelné a umožňuje zadat pohled na formulář. Může to být buď: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout nebo acPreview. Výchozí hodnota je acNormal. |
| Název filtru | Volitelné a umožňuje zadat název dotazu nebo řetězce SQL, který se má použít jako filtr. |
| WhereCondition | Volitelné a umožňuje provádět dotaz typu kde bez použití slova kde. |
| Režim dat | Volitelné a umožňuje zadat režim zadávání dat. Může to být buď: acFormAdd, acFormEdit, acFormPropertySettings, nebo acFormReadOnly. Výchozí hodnota je acFormPropertySettings. |
| Režim okna | Volitelné a nastavuje zobrazení režimu Okno. Může to být buď: acDialog, acHidden, acIcon, acWindowNormal. Výchozí hodnota je acWindowNormal. |
| OpenArgs | Volitelně lze odkazovat na makra a výrazy. |
Programování VBA | Generátor kódu pracuje pro vás!
Zavřete formulář v aplikaci Access
Pomocí DoCmd.Close zavřete otevřený formulář:
DoCmd.Close acForm, "AccessForm"
Zavřít formulář a uložit
Tento kód VBA se zavře a uloží přístupový formulář:
DoCmd.Close acForm, "AccessForm", acSaveYes
Výzva před uzavřením formuláře
Tento postup vyzve uživatele před zavřením formuláře:
Public Sub CloseFormWithConfirmation (FormName As String) If MsgBox („Opravdu chcete toto okno zavřít?“, VbYesNo + vbQuestion, „Potvrzení“) = vbYes Then DoCmd.Close acForm, FormName End If End Sub
Můžete to nazvat takto:
Soukromý podřízený CloseFormWithConfirmation_Example () Volání CloseFormWithConfirmation ("AccessForm") End Sub
Už vás nebaví hledat příklady kódu VBA? Zkuste AutoMacro!
Syntaxe DoCmd.Close
Úplná syntaxe metody je:
DoCmd.Close (ObjectType, ObjectName, ObjectSave) kde:
| Parametr | Popis |
|---|---|
| ObjectType | Volitelné a toto je typ objektu, který chcete zavřít. Může to být formulář nebo zpráva atd. |
| ObjectName | Volitelné a je název objektu, který chcete zavřít. |
| ObjectSave | Volitelné a slouží k určení, zda chcete provedené změny uložit. |
