Access - Interazione con finestra messaggio

In questo articolo vedremo come interagire con i plusanti all'interno delle MsgBox.

All'interno del codice Visual Basic della Routine evento "SuClick" è necessario inseire le righe di codice che permettono oltre alla visualizzazione della MsgBox anche di eseguire codice quando si clicca uno dei pulsanti al suo interno.
Se non si specifica alcun codice, alla pressione di uno dei pulsanti, si chiude la MsgBox.

ESEMPIO 1:

	Private Sub bn_avviso_Click()
	If MsgBox("Riga 1 del messaggio" & Chr(13) & Chr(10) & "Riga 2 del messaggio", vbInformation + vbYesNo, "Titolo della finestra") = vbYes Then
	'inserire il codice da eseguire quando si clicca sul pulsante Si dell' MsgBox
	MsgBox "Hai cliccato il tasto SI", vbInformation, "Titolo della finestra"
	Else
	'inserire il codice da eseguire quando si clicca sul pulsante No dell' MsgBox
	MsgBox "Hai cliccato il tasto NO", vbInformation, "Titolo della finestra"
	End If
	End Sub

view raw MsgBox14.vba hosted with ❤ by GitHub

Clic sul pulsante Si

Clic sul pulsante No

Download Project

---

ESEMPIO 2:
Questa è una alternativa all'esempio 1:

	Private Sub bn_avviso_Click()
	'dichiarazione di una variabile che contiene il tasto premuto all'interno della MsgBox
	Dim iMsg As Integer
	iMsg = MsgBox("Riga 1 del messaggio" & Chr(13) & Chr(10) & "Riga 2 del messaggio", vbInformation + vbYesNo, "Titolo della finestra")
	If iMsg = vbYes Then 'se clicco il pulsante Si
	'inserire qui il codice da eseguire
	MsgBox "Hai cliccato il tasto SI", vbInformation, "Titolo della finestra"
	Else 'se clicco il pulsante No
	'inserire qui il codice da eseguire
	MsgBox "Hai cliccato il tasto NO", vbInformation, "Titolo della finestra"
	End If
	End Sub

view raw MsgBox15.vba hosted with ❤ by GitHub

La visualizzazione viene assegnata ad una variabile iMsg di tipo Integer e quindi con l'istruzione if viene interrogata la variabile per conoscere quale dei due pulsanti è stato premuto.

Download Project

---

ESEMPIO 3:

	Private Sub bn_avviso_Click()
	'dichiarazione di una variabile che contiene il tasto premuto all'interno della MsgBox
	Dim iMsg As Integer
	iMsg = MsgBox("Riga 1 del messaggio" & Chr(13) & Chr(10) & "Riga 2 del messaggio", vbInformation + vbYesNoCancel, "Titolo della finestra")
	Select Case iMsg 'impostiamo il Select Case con riferimento al messaggio restituito dalla variabile iRisposta
	Case vbYes 'se clicco il pulsante Si
	MsgBox "Hai cliccato il tasto SI", vbInformation, "Titolo della finestra"
	Exit Sub 'esce dal Select Case
	Case vbCancel 'se clicco il pulsante Annulla
	MsgBox "Hai cliccato il tasto Annulla", vbInformation, "Titolo della finestra"
	Exit Sub 'esce dal Select Case
	Case vbNo 'se clicco il pulsante No
	MsgBox "Hai cliccato il tasto NO", vbInformation, "Titolo della finestra"
	Case Else
	End Select
	End Sub

view raw MsgBox16.vba hosted with ❤ by GitHub

In questo esempio viene utilizzato il Select Case per gestire i tre pulsanti all'interno della MsgBox.

Download Project

---

Vedi anche visualizzazione MsgBox
Vedi anche personalizzazione delle MsgBox