Buonasera,
Il codice è molto semplice…
Private Sub Form_Unload(Cancel As Integer)
If frmMode <> formModeView Then
MsgBox "Impossibile chiudere il form. Annullare o salvare le modifiche", vbInformation + vbOKOnly, "Assistente"
Cancel = True
End If
End Sub
Eseguendo il debug esegue tutto correttamente.
Su chiusura form ('X' - Casella menu di controllo del form)
Si attiva l'evento Form_Unload
frmMode vale 3;
formModeView costante 1;
Visualizza il messaggio;
Imposta Cancel=True.
Ma nonostante tutto il form si chiude!
Cosa sbaglio?
Grazie