program the close Access button on the upper right hand corner of the screen

How to I connect an event to the close Access button (white X on red square)
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/9626-program-close-access-button-upper-right.html
..
The idea is when the user clicks this he will get a warning with the option
to cancel before Access closes out completely



*

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

You can't. But what you can do is to program a hidden form to cancel the
event and give the user a message that he must close the form through your
interface. Be careful to make sure the user understands why because irrate
users can do significant damage to the database should they decide to just
turn off the machine.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9626
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9626

"Philip Leduc" wrote in message
news:uyg9Eb8dGHA.4276@TK2MSFTNGP03.phx.gbl...
> How to I connect an event to the close Access button (white X on red
square)
> .
> The idea is when the user clicks this he will get a warning with the
option
> to cancel before Access closes out completely
>
>

Hi Philip,

I'm not sure what the "white X on red square" means, but you can use code
similar to this behind a command button:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9626


Private Sub cmdQuit_Click()
On Error GoTo ProcError

Dim intResponse As Integer

intResponse = MsgBox("Do you wish to quit this application?", _
vbQuestion + vbYesNo, "Please Confirm Intent to Quit...")

If intResponse = vbYes Then
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9626
DoCmd.Quit
End If

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, , _
"Error in cmdQuit_Click event procedure..."
Resume ExitProc
End Sub



Tom Wickerath, Microsoft Access MVP

http://www.access.qbuilt.com/html/ex...tributors.html
http://www.access.qbuilt.com/html/search.html
__________________________________________

"Philip Leduc" wrote:

> How to I connect an event to the close Access button (white X on red square)
> ..
> The idea is when the user clicks this he will get a warning with the option
> to cancel before Access closes out completely