Routine per lo sviluppo di database per la qualità

Utilizzare e rispondere ai messaggi
Quante volte ci siamo chiesti come fare in modo che il sistema, prima di effettuare una operazione, ci chieda se siamo sicuri?
Nell'esempio sotto per esempio il sistema, prima di eseguire una ipotetica Query1, ci chiede se siamo sicuri.

La variabile Risposta, dopo che avremo cliccato un tasto, assumerà il valore YES oppure NO.

Se è YES il programma esegue le righe che iniziano per Docmd, altrimenti va alla fine ed esce.

Copiate ed incollate il codice dove volete: in altri esempi potrete trovare righe da sostituire al posto di quelle Docmd presenti in questo esempio.

Fate una prova: cancellate le 3 righe Docmd e scrivete al loro posto, una sola volta, la parola beep ed il computer, se rispondete SI alla domanda che vi farà, emetterà un bip.

ROUTINE


' -----------------------------------------------
' Utilizzo della casella di messaggi msgbox
' -----------------------------------------------

Dim Risposta

Risposta = MsgBox("Sei sicuro?", vbYesNo, "ISI")

' -----------------------------------------------
' Se la risposta è Si la routine esegue i comandi
' lanciando la Query 1, altrimenti esce dalla
' routine
' -----------------------------------------------

If Risposta = vbYes Then

' -----------------------------------------------
' Il comando SetWarnings serve per dire ad access
' se visualizzare o meno i messaggi d'errore
' False = non visualizzare allarmi
' True = visualizza allarmi
' -----------------------------------------------

DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
DoCmd.SetWarnings True


End If

Scarica il database Access 2000 d'esempio

 
Ritorna

Torna Su

Chiedi aiuto