Šajā apmācībā mēs uzzināsim, kā atvērt vai aizvērt piekļuves veidlapas, izmantojot VBA.
Piekļuves veidlapas atvēršana
Lai atvērtu veidlapu programmā Access, izmantojiet DoCmd.OpenForm metodi:
DoCmd.OpenForm "AccessForm"
Tiks atvērta veidlapa ar nosaukumu “AccessForm”:
AccessForm tiek parādīts navigācijas rūtī
Atvērt veidlapu ar kritērijiem
Šis kods programmā Access atvērs veidlapu ar īpašiem kritērijiem:
DoCmd.OpenForm "AccessForm", acNormal,, "ID = 10"
DoCmd.OpenForm sintakse
Pilna metodes sintakse ir šāda:
DoCmd.OpenForm (NameOfForm, FormView, Filtra nosaukums, KurNosacījums, DataMode, WindowMode, OpenArgs) kur:
| Parametrs | Apraksts |
|---|---|
| NameOfForm | Obligāts un ir tās veidlapas nosaukums, kuru vēlaties atvērt. |
| FormView | Pēc izvēles un ļauj norādīt veidlapas skatu. Tas var būt: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout vai acPreview. Noklusējums ir acNormal. |
| Filtra nosaukums | Pēc izvēles un ļauj norādīt vaicājuma vai SQL virknes nosaukumu, ko izmantot kā filtru. |
| KurNosacījums | Pēc izvēles un ļauj veikt vaicājuma tipa vaicājumu, neizmantojot vārdu kur. |
| DataMode | Pēc izvēles un ļauj norādīt datu ievades režīmu. Tas var būt: acFormAdd, acFormEdit, acFormPropertySettings vai acFormReadOnly. Noklusējums ir acFormPropertySettings. |
| WindowMode | Pēc izvēles un iestata loga režīma attēlojumu. Tas var būt: acDialog, acHidden, acIcon, acWindowNormal. Noklusējums ir acWindowNormal. |
| OpenArgs | Neobligāti var atsaukties uz makro un izteiksmēm. |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Aizveriet veidlapu programmā Access
Izmantojiet DoCmd.Close, lai aizvērtu atvērtu veidlapu:
DoCmd.Close acForm, "AccessForm"
Aizveriet veidlapu un saglabājiet
Šis VBA kods tiks aizvērts un saglabāta piekļuves veidlapa:
DoCmd.Close acForm, "AccessForm", acSaveYes
Pieprasījums pirms veidlapas aizvēršanas
Šī procedūra prasīs lietotājam pirms veidlapas aizvēršanas:
Public Sub CloseFormWithConfirmation (FormName as String) If MsgBox ("Vai tiešām vēlaties aizvērt šo logu?", VbYesNo + vbQuestion, "Confirmation") = vbJā Tad DoCmd.Close acForm, FormName End If End Sub
Jūs to varat saukt šādi:
Privāta apakšdoma CloseFormWithConfirmation_Example () Zvanīt CloseFormWithConfirmation ("AccessForm") Beigu apakšiedaļa
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
DoCmd. Aizvērt sintaksi
Pilna metodes sintakse ir šāda:
DoCmd.Close (ObjectType, Objekta nosaukums, Objekta saglabāšana) kur:
| Parametrs | Apraksts |
|---|---|
| ObjectType | Neobligāti, un tas ir objekta veids, kuru vēlaties aizvērt. Tas var būt veidlapa vai ziņojums utt. |
| Objekta nosaukums | Neobligāti un ir tā objekta nosaukums, kuru vēlaties aizvērt. |
| Objekta saglabāšana | Neobligāti un tiek izmantots, lai norādītu, vai vēlaties saglabāt veiktās izmaiņas. |
