U ovoj lekciji ćemo naučiti kako da kreiramo funkciju u Access-ovom modulu i aktiviramo je iz makroa.
Za početak, dodaćemo novi modul u bazu podataka. Birajmo Modules objekat iz levog okvira. Sada kliknimo na New dugme. Ovo otvara Visual Basic Editor. Tu ćemo kreirati i modifikovati sav VB programski kod koji treba da koristimo u bazi podataka. Počnimo sa kreiranjem nove funkcije pod nazivom DisplayMessage. Kucajmo: Function DisplayMessage, zatim pritisnimo Enter. Vidimo da VB editor dodaje par zagrada na kraju unetog reda i programski kod koji signalizira kraj funkcije.
Kucajmo: MsgBox(). Ovo je poziv funkcije koja prikazuje standardni Windows dijalog, u kome se nalazi poruka koju želimo da uputimo korisnicima. Neko to bude poruka sa dobrodošlicom u bazu podataka.
Postavimo kursor između zagrada i kucajmo: “Welcome to XYZ Company”. Pogledajmo kako ova funkcija radi. Kliknućemo na Run Sub/Useform ikonu u VB tulbaru, koja izgleda kao plava strelica. Sada vidimo poruku koju smo kreirali u Visual Basic-u. Kliknimo na OK da se vratimo u VB editor. Kliknimo na Save da sačuvamo naš rad. Prihvatićemo Default naziv klikom na OK. Zatvorićemo VB editor klikom na Close dugme.
Sada treba da dodamo makro bazi podataka da bi izvršili funkciju koju smo upravo kreirali u VB editoru. Kliknimo na Macros u dijalogu baze podataka. Kreiraćemo novi makro, zato kliknimo na New dugme. U makro dijalogu kliknimo na padajući meni Action okvira. Spustimo se niže i birajmo RunCode opciju. Pritisnimo Tab i kucajmo: Run the Display Message. Pogledajmo Action Arguments u donjem delu dijaloga. Sada želimo da kucamo ime funkcije. Kliknimo u Function name polje i kucamo: DisplayMessage(). Kliknimo na X da izađemo iz makroa. U okviru za čuvanje izmena kliknimo na Yes i birajmo OK da sačuvamo makro po Default nazivu.
Pogledajmo kako makro funkcioniše dvoklikom na Macro1. Pozdravljeni smo porukom koja je aktivirana makroom koji smo upravo kreirali. Kliknimo na OK da prihvatimo pozdrav i vratimo se u bazu podataka.