¿Cómo cancelar un formulario cerrar en Cerrar evento?

Question

Estoy seguro de que esto es muy simple, pero no puedo encontrarlo. En el caso de cierre de un formulario de acceso, ¿cómo puedo cancelar el cierre del formulario? Tengo una prueba que cuenta los registros en una tabla. Si esa tabla tiene registros, quiero preguntarle al usuario si quiere cerrar o regresar y trabajar con ellos. Entonces, ¿cómo cancelo el evento cerrado?

Answer 1

Puede utilizar el 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

estudio y probar este código, que trabajó para mí. Reemplace los nombres de las variables necesarias con sus nombres elegidos. Pegue el código en el evento form_unload de su formulario. ATENCIÓN !!!: Después de realizar esta operación va a tener dificultades para acceder a su forma en el diseño y la disposición de vistas

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

uso del "Form_BeforeUpdate (cancelar como número entero)" evento y ajuste ELIMINAR en True.

Observe que simplemente no podrá cerrar en absoluto a menos que agregue alguna lógica para permitir la actualización de la base de datos.