Mettere il segno di spunta in automatico ad un campo di Tipo SI/NO.

Question

Buon pomeriggio a tutti.

Con il seguente codice vorrei poter mettere il segno di spunta in automatico ad un campo ( chiamato Conferma) di tipo SI/NO quando non è Flaggato, ma questo non accade ( cioè vorrei apparisse come quando ci fai click sopra)

Come devo modificare il codice per fare ciò.

Private Sub Conferma_AfterUpdate()

If Me.Conferma = False Then

   If MsgBox("FLAG OBBLIGATORIO PER AGGIORNAMENTO MAGAZZINO" & Chr(13) & _

      Chr(13) & "Vuoi Procedere?" & Chr(13) & "Si: Per confermare e aggiornare il magazzino" & Chr(13) & _

      Chr(13) & "NO: Per uscire e non Aggiornare", vbInformation + vbDefaultButton2 + vbYesNo) = vbNo Then

Me.Undo

Cancel = True

    End If

 Else

Me.Conferma = True

Me.AllowAdditions = False

End If

End Sub

Grazie per l'aiuto che vorrete darmi.

Ciao Nicola.

Answer 1

ciao Nicola,

urca, hai ragione, sorry....prova come segue :

Option Compare Database

Option Explicit

Private Sub Form_BeforeUpdate(Cancel As Integer)

With Me

    If Not .conferma Then

        If VBA.MsgBox("FLAG OBBLIGATORIO PER AGGIORNAMENTO MAGAZZINO" & Chr(13) & _

                    Chr(13) & "Vuoi Procedere?" & Chr(13) & "Si: Per confermare e aggiornare il magazzino" & Chr(13) & _

                    Chr(13) & "NO: Per uscire e non Aggiornare", vbInformation + vbDefaultButton2 + vbYesNo) = vbNo Then

                    .Undo

                    Cancel = True

        End If

    Else

        .AllowAdditions = False

    End If

.conferma = True

End With

End Sub

ciao, Sandro.

Answer 2

Sandro, hai ragione ora funziona benissimo.

Non ci sarei riuscito da solo.

Grazie mille per l'ennesimo aiuto.

Ciao Nicola.

Answer 3

ciao Nicola,

l'evento indicato in precedenza e' il before update e non after update.

Infatti hai dovuto commentare l'attribuzione a true del parametro cancel in quanto non contemplato nell'evento after update.

Ciao, Sandro.

Answer 4

Ciao Sandro, all'interno della sottomaschera come tu mi hai consigliato ho ( solo) il seguente codice.

Private Sub Form_AfterUpdate()

With Me

     If Len(.Quantità & vbNullString) = 0 Or Len(.Stato & vbNullString) = 0 Then

         VBA.MsgBox Prompt:="Campi: Quantità o Stato non compilati...!", _

                    Buttons:=vbCritical + vbOKOnly, _

                    title:="Verica bene....!"

        Exit Sub

     End If

End With

With Me

     If Not .Conferma Then

         If VBA.MsgBox("FLAG OBBLIGATORIO PER AGGIORNAMENTO MAGAZZINO" & Chr(13) & _

                     Chr(13) & "Vuoi Procedere?" & Chr(13) & "Si: Per confermare e aggiornare il magazzino" & Chr(13) & _

                     Chr(13) & "NO: Per uscire e non Aggiornare", vbInformation + vbDefaultButton2 + vbYesNo) = vbNo Then

                     .Undo

                     'Cancel = True

        End If

     Else

         '.AllowAdditions = False

     End If

    .Conferma = True

 End With

End Sub

Ciao Nicola