Azione su chiusura maschera da X

Question

Salve a tutti,

dovrei eseguire in una maschera un azione solamente se chiudo la maschera dalla X di chiusura.

Sapete dirmi come intercettare quest'azione..?

Grazie

Matteo

Answer 1

Ciao Matteo,

Un metodo è questo:

Inserisci una variabile nel codice VBA del modulo di classe della Maschera

---

Dim ChiudiMaschera As Boolean

---

'Che andrai a valorizzare a True nel Pulsante di chiusura

---

Private Sub P_Chiudi_Click()

On Error GoTo Err_P_Chiudi

    'tue istruzioni .....

    ChiudiMaschera = True

    DoCmd.Close acForm, Me.Name

Exit_P_Chiudi:

    Exit Sub

Err_P_Chiudi:

    MsgBox Err.Description

    ChiudiMaschera = False

    Resume Exit_P_Chiudi

End Sub

---

Che andrai a controllare nell'evento "Su scaricamento"

---

Private Sub Form_Unload(Cancel As Integer)

    If ChiudiMaschera = False Then

       MsgBox "Chiudere la maschera tramite l'apposito pulsante!!",vbExclamation

       Cancel = True

    End If

End Sub

---

Ciao

Giorgio Rancati

Answer 2

Grazie Giorgio,

avevo pensato infatti a fare una cosa simile.. volevo solo capire se c'era un metodo più rapido.

Answer 3

Esattamente, voglio distinguerlo da un pulsante di conferma che mi chiude anche la maschera..

Answer 4

Ciao Matteo,

non esiste un evento specifico per la X di chiusura.

Esistono gli eventi "Su chiusura" e "Su Scaricamento" che si scatenano quando si chiude la maschera.

Se spieghi da cosa vuoi discriminare la chiusura fatta con la X (forse da un pulsante che chiude la maschera ?), probabilmente una soluzione si trova.

Ciao Giorgio Rancati