Funkcija MsgBox

U bazi podataka programa Access za računala funkcija MsgBox prikazuje poruku u dijaloškom okviru, čeka da korisnik odabere gumb i vraća odgovor Integer koji označava koji je gumb korisnik odabrao.

Sintaksa

MsgBox(prompt[, buttons][, title][, helpfile][, context])

Sintaksa MsgBox funkcije sadrži ove argumente:

Argument	Opis
prompt	Obavezno. Nizovni izraz prikazan kao poruka u dijaloškom okviru. Maksimalna prompt duljina je oko 1024 znaka, ovisno o širini upotrijebljenih znakova. Ako prompt se redovi sastoje od više retka, retke možete razdvojiti znakom za povratak retka (Chr(13)), znakom polja retka (Chr(10)) ili kombinacijom znaka povrata i poljanja retka (Chr(13) & Chr(10)) između svakog retka.
buttons	Neobavezno. Brojčani izraz koji je zbroj vrijednosti koje određuju broj i vrstu gumba za prikaz, stil ikone za korištenje, identitet zadanog gumba i modalitet okvira poruke. Ako se izostavi, zadana vrijednost za buttons je 0.
title	Neobavezno. Nizovni izraz prikazan na naslovnoj traci dijaloškog okvira. Ako izostavite taj argument title, naziv aplikacije prikazat će se na naslovnoj traci.
helpfile	Neobavezno. Nizovni izraz koji određuje datoteku pomoći koja se koristi za pružanje kontekstne pomoći za dijaloški okvir. Ako helpfile je navedeno, context mora se i navesti.
context	Neobavezno. Brojčani izraz koji predstavlja broj konteksta pomoći koji je autor pomoći dodijelio odgovarajućoj temi pomoći. Ako context je navedeno, helpfile mora se i navesti.

Postavke

Postavke buttons argumenta:

Konstanta	Vrijednost	Opis
vbOKOnly	0	Samo prikaz U redu .
vbOKCancel	1	Prikaz mogućnosti U redu i Odustani.
vbAbortRetryIgnore	2	Prikaz prekida,ponovnog pokušaja i zanemarivanja.
vbYesNoCancel	3	Prikazivanje mogućnosti Da, Ne i Odustani.
vbYesNo	4	Prikaz mogućnosti Da i Ne.
vbRetryCancel	5	Prikaz mogućnosti Pokušaj, pokušaj ponovno iOdustani.
vbCritical	16	Prikaz ikone kritične poruke .
vbQuestion	32	Prikaz ikone upita upozorenja .
vbExclamation	48	Prikaz ikone poruke upozorenja .
vbInformation	64	Prikaz ikone informativne poruke .
vbDefaultButton1	0	Postavljanje prvog gumba kao zadanog.
vbDefaultButton2	256	Drugi gumb postavite kao zadani.
vbDefaultButton3	512	Postavite treći gumb kao zadani.
vbDefaultButton4	768	Postavite četvrti gumb kao zadani.
vbApplicationModal	0	Modal aplikacije. Korisnik mora odgovoriti na okvir s porukom prije nastavka rada na trenutnoj aplikaciji.
vbSystemModal	4096	Modalni sustav. Sve se aplikacije obustavljaju dok korisnik ne odgovori na okvir s porukom.
vbMsgBoxHelpButton	16384	Dodajte gumb Pomoć u okvir poruke.
VbMsgBoxSetForeground	65536	Odredite prozor okvira poruke kao prozor u prvom planu.
vbMsgBoxRight	524288	Desno poravnanje teksta.
vbMsgBoxRtlReading	1048576	Omogućite prikaz teksta tako da se na hebrejskim i arapskim sustavima čita zdesna nalijevo.

Prva grupa vrijednosti (0 do 5) opisuje broj i vrstu gumba prikazanih u dijaloškom okviru. Druga grupa (16, , 3248, 64) opisuje stil ikone. Treća grupa (0, , 256512) određuje zadani gumb. Četvrta grupa (0, ) 4096određuje modalitet okvira poruke. Kada zbrajate brojeve da biste stvorili konačnu vrijednost argumenta buttons , koristite samo po jedan broj iz svake grupe.

Vraćene vrijednosti

Konstanta	Vrijednost	Opis
vbOK	1	U redu
vbCancel	2	Odustani
vbAbort	3	Prekid
vbRetry	4	Pokušaj ponovno
vbIgnore	5	Zanemari
vbYes	6	Da
vbNo	7	Ne

Napomene

Ako su navedene obje oznake helpfile i korisnik, korisnik može pritisnuti contextF1 u sustavu Windows ili Pomoć u sustavu macOS da bi pogledao odgovarajuću temu contextpomoći. Neke aplikacije glavnog računala, kao što je Microsoft Excel, u dijaloški okvir automatski dodaju gumb Pomoć .

Ako se u dijaloškom okviru prikazuje gumb Odustani , pritisak na tipku Esc ima isti učinak kao i odabir mogućnosti Odustani. Ako dijaloški okvir sadrži gumb Pomoć, za njega je dostupna kontekstna pomoć. No, nijedna se vrijednost ne vraća sve dok korisnik ne odabere neki drugi gumb.

Primjer

U ovom se primjeru MsgBox ta funkcija koristi za prikaz poruke o kritičnoj pogrešci u dijaloškom okviru s gumbima Da i Ne . Gumb Ne naveden je kao zadani odgovor. Vrijednost koju funkcija vrati MsgBox ovisi o gumbu koji korisnik odabere. U ovom se primjeru pretpostavlja da DEMO.HLP je riječ o datoteci pomoći koja sadrži temu čiji je broj konteksta pomoći jednak 1000.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If