Prieiga prie VBA - Atidaryti / uždaryti formą

Šioje pamokoje sužinosime, kaip atidaryti arba uždaryti prieigos formas naudojant VBA.

Prieigos formos atidarymas

Norėdami atidaryti formą programoje „Access“, naudokite „DoCmd.OpenForm“ metodą:

DoCmd.OpenForm "AccessForm"

Tai atvers formą „AccessForm“:

„AccessForm“ rodoma naršymo srityje

Atidaryti formą su kriterijais

Šis kodas „Access“ atidarys formą su konkrečiais kriterijais:

DoCmd.OpenForm "AccessForm", acNormal,, "ID = 10"

„DoCmd.OpenForm“ sintaksė

Visa metodo sintaksė yra tokia:

DoCmd.OpenForm (NameOfForm, FormView, Filtro pavadinimas, Kur Sąlyga, DataMode, „WindowMode“, „OpenArgs“) kur:

Parametras	apibūdinimas
Formos pavadinimas	Privalomas ir yra formos, kurią norite atidaryti, pavadinimas.
FormView	Neprivaloma ir leidžia nurodyti formos vaizdą. Tai gali būti: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout arba acPreview. Numatytasis yra „acNormal“.
Filtro pavadinimas	Pasirenkama ir leidžia nurodyti užklausos arba SQL eilutės, kurią norite naudoti kaip filtrą, pavadinimą.
Kur Sąlyga	Pasirenkama ir leidžia atlikti „kur“ tipo užklausą nenaudojant žodžio kur.
DataMode	Neprivaloma ir leidžia nurodyti duomenų įvedimo režimą. Tai gali būti: acFormAdd, acFormEdit, acFormPropertySettings arba acFormReadOnly. Numatytasis yra „acFormPropertySettings“.
„WindowMode“	Neprivaloma ir nustato lango režimo rodymą. Tai gali būti: acDialog, acHidden, acIcon, acWindowNormal. Numatytasis yra „acWindowNormal“.
„OpenArgs“	Neprivaloma galima nurodyti makrokomandose ir išraiškose.

VBA programavimas | Kodo generatorius jums tinka!

Uždarykite formą programoje „Access“

Naudokite „DoCmd“. Uždaryti, kad uždarytumėte atidarytą formą:

DoCmd.Close acForm, "AccessForm"

Uždarykite formą ir išsaugokite

Šis VBA kodas bus uždarytas ir išsaugota prieigos forma:

DoCmd.Uždaryti acForm, "AccessForm", acSaveYes

Paraginkite prieš uždarydami formą

Ši procedūra paragins vartotoją prieš uždarant formą:

Public Sub CloseFormWithConfirmation (FormName as String) If MsgBox ("Ar tikrai norite uždaryti šį langą?", VbYesNo + vbQuestion, "Confirmation") = vbYes Tada DoCmd.Close acForm, FormName End If End Sub

Galite tai pavadinti taip:

Privati ​​antrinė dalis „CloseFormWithConfirmation_Example“) Skambinti „CloseFormWithConfirmation“ („AccessForm“) Pabaigos antraštė

Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!

DoCmd. Uždaryti sintaksę

Visa metodo sintaksė yra tokia:

DoCmd.Cose (ObjectType, Objekto pavadinimas, ObjectSave) kur:

Parametras	apibūdinimas
ObjectType	Pasirenkama ir tai yra objekto tipas, kurį norėtumėte uždaryti. Tai gali būti forma ar ataskaita ir pan.
Objekto pavadinimas	Pasirenkama ir yra objekto, kurį norite uždaryti, pavadinimas.
ObjectSave	Pasirenkama ir naudojama norint nurodyti, ar norite išsaugoti atliktus pakeitimus.