Custom Menu
Subota 20 rujan, 2008 To je vrsta izbornika koji nam omogućava da uštedite vrijeme, linije koda i bolji raspored u smislu otvorenih oblika, jer s ovim meni samo treba otvoren obrazac. Osim smanjenja broja otvorenih oblika također smanjuje broj gumba u izborniku za otvaranje svakom obliku.
Ova vrsta izborniku, sigurno da postoji već neko vrijeme i već se koristi od strane mnogih korisnika programa Access.
Dakle, gdje je to meni?
Stvorimo izbornik pomoću kombinirani okvir koji sadrži sve oblike da planiramo otvoriti kroz njega. Kada odaberete opciju iz kombiniranog okvira Zahtjev je prikazana unutar subform. Tada ćemo početi da izbornika korak po korak.
1 - Stvorimo tablicu gdje ćemo pohraniti ime koje želite dati svaki oblik i naziv u obliku koji će se otvoriti. U primjeru sam stvorio tablica "tblmenu 's sljedećim područjima:
Vrsta polja
Nomedomenu tekst -> ime koje će se vidjeti u izborniku (combo box)
obliku tekst -> ime na obrascu koji će se otvoriti
Nakon što su podaci uvedeni u primjeru su:
Obrazac NomedoMenu
Računi Form1
Depoziti Form2
Promjene formulario3
Račun-Box formulario4
Račun-račun formulario5
Ekstrakt formulario6
2 - Zatim smo stvoriti upit s prethodne tablice:
Tblmenu izabrao tablicu, a zatim odabrati dva polja u kojima smo izabrali za uzlazno sortiranje nomedomenu biti lakše naći na izborniku dosta puta kada želimo otvoriti obrasce. Za ovaj upit sam nazvao 'CsMenu'.
3 - Stvorimo obrascu 'Izbornik', odnosno izabrati novi obrazac u prikazu dizajna. Zatim smo stvorili kombinirani okvir i promijenite sljedeća svojstva:
- Broj stupaca: 2
- Širine stupaca: 0cm i 1cm;
- Podrijetlo linije: csmenu (što je naziv upita stvorili u prethodnom stavku)
4 - U istom obliku ćemo stvoriti nevezanog glavni oblik je subform (U primjeru sam nazvao menuquadro). To je taj oblik koji će biti otvoren svaki od oblika koje možete izabrati u izborniku (combo box).
5 - Sada stvoriti modul koji će nam omogućiti da biste otvorili izbornik koji je odabran u kombiniranom okviru na subform.
Mi smo stvorili modul (koji sam nazvao "abrirmenu ') i zalijepiti sljedeći kod:
Javnu funkciju AtivarMenu (Combmenu The combobox, subabrir subform)
Abrirform Kao String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Kraj funkcija
Nakon odlaska svojstvima kombiniranom okviru na obrascu izbornika i nakon ažurirati slučaju staviti stvoreni funkcija: ativarmenu = ([Menu], [menuquadro]) da je 'Izbornik' je naziv kombiniranom okviru i 'menuquadro je " naziv subform.
I na kraju meni je spreman za uporabu. Dovoljno je probati i koristiti. Nadam se da ste uživali u ovaj savjet.
Download: Izbornik
Ispod slike u izborniku.
Custom Menu
