Msgbox OK e ANNULLA

Question

Ciao a tutti

Su una maschera ho una casella di controllo che mi attiva e disattiva la visualizzazione di record. Premendo accidentalmente la casella di controllo non mi accorgerei che ho disattivato un record. Vorrei che sull'evento clic un msgbox mi avverta su che cosa stia facendo.

Sull'evento clic Ho questo codice inserito:

Private Sub Attiva_Allievo_a_Click()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Premendo SI disattiverai l'allievo. Vuoi continuare?"

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

DoCmd.RunCommand acCmdSaveRecord

DoCmd.RunCommand acCmdRefresh

Forms!CSDG.Requery

Forms!CSDG.Refresh

End Sub

Il problema è che se premo sul pulsante NO succede la stessa cosa che accade con SI. Vorrei che premendo sul pulsante NO venisse bloccata la procedura?

E se volessi visualizzare il Campo "CognomeNome" al posto della parola "allievo" nel MSGBox come potrei fare?

grazie in anticipo

Answer 1

 

Il problema è che se premo sul pulsante NO succede la stessa cosa che accade con SI. Vorrei che premendo sul pulsante NO venisse bloccata la procedura?

 

Else    ' User chose No.

    MyString = "No"    ' Perform some action.

    Exit Sub

End If

Answer 2

Ciao a tutti ho risolto con questo codice:

<cut>

grazieeeeeee

Bene!

Ciao e alla prossima.