Come cancellare un modulo chiudi in Chiudi evento?

Question

Sono sicuro che è molto semplice, ma non riesco a trovarlo. Nell'evento di chiusura di un modulo di accesso, come posso annullare la chiusura del modulo? Ho un test che conta i record in una tabella. Se quella tabella ha dei record, voglio chiedere all'utente se vuole chiudere o tornare indietro e lavorare con loro. Quindi, come posso cancellare l'evento close?

Answer 1

È possibile utilizzare l'evento Unload:

GlobalVar ButtonClicked 

Private Sub Form_Open(Cancel As Integer) 
    ButtonClicked = False 
End Sub 

Private ClickMe_Click(Cancel As Integer) 
    ButtonClicked = True 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
    If Not ButtonClicked Then 
     Cancel = True 
    End if 
End Sub 

Order of events for database objects

Answer 2

Studio e provare questo codice, ha funzionato per me. Sostituisci i nomi delle variabili necessarie con i nomi scelti. Incolla il codice nell'evento form_unload del modulo. ATTENZIONE !!!: Dopo aver eseguito questa operazione si trovano difficoltà ad accedere al tuo modulo in design e il layout vista

Private Sub Form_Unload(Cancel As Integer) 
     userresponse = MsgBox("Are you sure you want close? All your work wouldn't be saved", vbYesNo, "Database Information") 
     Select Case userresponse 
     Case 6 
      Cancel = False 
      'this line opens another form in my own case 
      DoCmd.OpenForm "EngMenu" 

     Case 7 
      Cancel = True 
      'this line keeps my own form open in my own case 
      DoCmd.OpenForm "UpdateForm" 


     Case Else: 

      MsgBox "You are not allowed to perform this operation", vbInformation, "Database Information" 
     End Select 
    End Subenter code here 

Answer 3

Usare la "Form_BeforeUpdate (annulla come intero)" evento e di impostare annullare su True.

Si noti che non sarà possibile chiudere affatto a meno che non si aggiunga qualche logica per consentire effettivamente l'aggiornamento del database.