detect when 'X' clicked on form window to close form

[gammaman]

On my userform if they click the 'X' in the corner, I want to display a MsgBox and then call a function to do something else. I have some code but when the 'X' is clicked the code does not seem to fire.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = VbQueryClose.vbFormControlMenu Then
      cmdCancel.SetFocus
      MsgBox “Cannot close the userform !!”
      Cancel = True
   End If
End Sub

[cyanidem]

Wouldn't be easier to just disable close button?
In form parameters window set Close Button to No.

Edit:
Or set Control Box property to No, that will make all buttons (minimize, maximize, close) invisible, not disabled.

[RuralGuy]

I believe you will find that you cannot cancel the Close event but you can cancel the Unload event.

[JeroenMioch]

I have this module to disable the cross :

Option Compare Database

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)


Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000


Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED


Private Declare Function SetWindowLong Lib "User32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "User32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long


Sub HideAccessCloseButton()


    Dim lngStyle As Long


    lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
    lngStyle = lngStyle And Not WS_SYSMENU
    Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
    Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)


End Sub

Activate it by calling HideAccessCloseButton

Call HideAccessCloseButton

Works great for me.

[Micron]

Doesn't that hide the application close button (they only want to affect the form window button)?

[June7]

What is QueryClose?

I am not finding such an event.

I am not aware of any way to detect if the X button is clicked, unless it produces some sort of code that can be captured in the form click or mouse events.

I also disable the X close on all forms as well as the app X close and File > Exit.

[JeroenMioch]

Might be, I locked my users out from both because i want to force them to exit through my custom close buttons.
Some can have doubts about this approach, but since i did it, i never ever found a record that was unfinished again

[Micron]

What is QueryClose?

I am not finding such an event.

I am not aware of any way to detect if the X button is clicked, unless it produces some sort of code that can be captured in the form click or mouse events.

I think it's the name of the form?
UserForm_QueryClose

But it looks like Excel vba.

[June7]

Can't be the form name. There would be no event specified. Customarily see:

Private Sub Form_Close()

So the posted code is not Access VBA?

[Micron]

Might be, I locked my users out from both because i want to force them to exit through my custom close buttons.
Some can have doubts about this approach, but since i did it, i never ever found a record that was unfinished again

I was once concerned about that also, but my recollection is that the effect applies to every Access db the user would open (i.e. it is application specific), and if not yours, there is no button to close the app. That's why I removed the code. Although I had reset the button on application close, this would not run if the db crashed or if it hung up and the user used Task Manager to shut it down. Perhaps your dbs are the only ones they ever open, but that is why I removed it.

[June7]

The code I use is project specific, not application-wide.

There is button on main menu form which never closes by which users exit the db.