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

ciao Nicola,

boh, non riesco ad individuare il problema? hai codice vba all'interno della form che si scatena su altri eventi/controlli ?

Quanto suggerito non mi pare possa generare il problema che citi.,

Ciao, Sandro.

Answer 3

Buongiorno a tutti.

Ciao Sandro, riapro questa discussione per poter capire come poter risolvere questo problema che noto usando il tuo ultimo codice postato.

Come potrai notare dall'immagine allegata, avvenuta la spunta al campo SI/NO (Conferma), non mi permette di compilare le righe successive alla bolletta per poter selezionare altro capo di abbigliamento.

Cioè non riesco a compilare più righe alla bolletta di consegna capi di vestiario.

Ho provato a remmare questo:

'.AllowAdditions = False

Ma non va lo stesso, si blocca solo sulla prima riga della sottomaschera.

Dovrei in realtà poter compilare tutte le righe possibili della bolletta, rispondere al messaggio della tua routine e una volta applicata la spunta sul campo Conferma proseguire e andare avanti.

Inoltre noto un altro problema quando clicco sul pulsante chiudi della Form principale, comapre questo messaggio di errore.

Spero di essere stato chiaro.

Ciao Nicola.

Answer 4

Buongiorno a tutti, ciao Sandro, scusami per il ritardo della risposta, dovuta solo ad impegni lavorativi.

Ora va bene il codice con l'ultima tua modifica.

Ti saluto e ti rinnovo il mio più sincero ringraziamento.

Alla prossima richiesta di aiuto,

Ciao Nicola.

Answer 5

Ciao Sandro, niente scuse, solo ringraziamenti a te per tutto quello che fai per tutti noi. Proverò il tutto domattina, ora sono al lavoro. Poi ti aggiorno. Ciao Nicola.