Messaggio personalizzato in query accodamento e eliminazione

Question

Salve.

Come posso fare per inserire un messaggio personalizzato Tipo ( Vuoi salvare i dati? )

prima di eseguire una query di accodamento e di eliminazione?

Uso una maschera con pulsante,

su click pulsante ho inserito questo codice: (che mi esegue le due query in contemporanea)

Private Sub Etichetta19_Click()

DoCmd.SetWarnings False

DoCmd.OpenQuery "Q_METTI IN FUORI USO"

DoCmd.SetWarnings True

DoCmd.SetWarnings False

DoCmd.OpenQuery "Q_ELIMINA"

DoCmd.SetWarnings True

End Sub

Ciao.

Pierluigi

Answer 1

ciao Pierluigi,

oltre all'ottimo suggerimento di Mimmo, trattandosi di action queries io andrei direttamente in execute e  con uno di questi due metodi, il secondo se vuoi essere un po 'più sofistico :

primo:

Private Sub Etichetta19_Click()

If MsgBox("esegui?", vbCritical + vbYesNo) = vbYes Then DBEngine(0)(0).Execute "Q_METTI IN FUORI USO", dbFailOnError

If MsgBox("esegui?", vbCritical + vbYesNo) = vbYes Then DBEngine(0)(0).Execute "Q_ELIMINA", dbFailOnError

end sub

secondo :

Private Sub Etichetta19_Click()

n Error GoTo errorHandler

DBEngine.BeginTrans

If MsgBox("esegui?", vbCritical + vbYesNo) = vbYes Then DBEngine(0)(0).Execute "Q_METTI IN FUORI USO", dbFailOnError

DBEngine.CommitTrans dbForceOSFlush

DBEngine.BeginTrans

If MsgBox("esegui?", vbCritical + vbYesNo) = vbYes Then DBEngine(0)(0).Execute "Q_ELIMINA", dbFailOnError

DBEngine.CommitTrans dbForceOSFlush

ext_errorLoadAccountHandler:

    Exit Sub

errorHandler:

    DBEngine.Rollback

    With Err

       MsgBox "ERR#" & .Number _

            & vbNewLine & .Description _

            , vbOKOnly Or vbCritical

     End With

     Resume ext_errorLoadAccountHandler

end sub

ciao, Sandro.

Answer 2

Ciao Pierluigi,

puoi utilizzare la funzione MsgBox, ad esempio:

Private Sub Etichetta19_Click()

DoCmd.SetWarnings False

If MsgBox("Vuoi eseguire ......", vbQuestion +vbYesNo,"Titolo della msgbox") = vbYes Then 

    DoCmd.OpenQuery "Q_METTI IN FUORI USO"

    If MsgBox("Vuoi eseguire ......", vbQuestion +vbYesNo,"Titolo della msgbox") = vbYes Then 

       DoCmd.OpenQuery "Q_ELIMINA"

    End If

End If

DoCmd.SetWarnings True

End Sub

Mimmo

Answer 3

Ciao, Sandro

anche il tuo codice funziona, per me vanno bene entrambi.

Mille grazie anche a te per la tua disponibilità.

Ciao

Pierluigi

Answer 4

Ciao,

Perfetto, ho provato il tuo codice e funziona,

la stessa cosa per il codice di Sandro.

Grazie mille del tuo aiuto.

Ciao, Mimmo.

Pierluigi.