Qutting Access when a dialog box is open

[Hank]

I automatically shut down every PC that is logged into my Access
2000 database at a time that is set on a configuration screen (Around
02:00 AM) . I do this by checking Now() against the ShutDown time about
once per minute in the main menu. This works fine unless an error
dialog box comes up and no one closed it.

The Command DoCmd.Quit will not work in this situation although
other code in the function will run (i.e. MsgBox, Table Inserts, et
cetera)

I can detect that the error dialog is open using a function
suggested by Dev Anish using apiGetWindowLong but I don't know how to
close the offending dialog box or quit Access at that point.

Thanks,
Hank Reed

[Terry Kreft]

If you can detect the fialog then I'm guesing you have it's hWnd, in that
case just post a WM_CLOSE message to it.

e.g. This looks for the standard message box and closes it if it finds it.

Private Const WM_CLOSE = &H10

Private Declare Function PostMessage _
Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Private Sub Form_Timer()
Dim hWnd As Long
Dim lpClassName As String
Dim lpWindowName As String

lpClassName = "#32770"

hWnd = FindWindow(lpClassName, lpWindowName)
Call PostMessage( _
hWnd, _
WM_CLOSE, _
0, _
ByVal 0&)
End Sub


--
Terry Kreft

"Hank" <ha********@aol.com> wrote in message
news:11**********************@g49g2000cwa.googlegr oups.com...

I automatically shut down every PC that is logged into my Access
2000 database at a time that is set on a configuration screen (Around
02:00 AM) . I do this by checking Now() against the ShutDown time about
once per minute in the main menu. This works fine unless an error
dialog box comes up and no one closed it.

The Command DoCmd.Quit will not work in this situation although
other code in the function will run (i.e. MsgBox, Table Inserts, et
cetera)

I can detect that the error dialog is open using a function
suggested by Dev Anish using apiGetWindowLong but I don't know how to
close the offending dialog box or quit Access at that point.

Thanks,
Hank Reed

[lesperancer]

I wonder if the same happens if a form is left opened in 'dialog'
mode... it would explain why my automatic shutdown sometimes fails

Hank wrote:

I automatically shut down every PC that is logged into my Access
2000 database at a time that is set on a configuration screen (Around
02:00 AM) . I do this by checking Now() against the ShutDown time about
once per minute in the main menu. This works fine unless an error
dialog box comes up and no one closed it.

The Command DoCmd.Quit will not work in this situation although
other code in the function will run (i.e. MsgBox, Table Inserts, et
cetera)

I can detect that the error dialog is open using a function
suggested by Dev Anish using apiGetWindowLong but I don't know how to
close the offending dialog box or quit Access at that point.

Thanks,
Hank Reed

[Hank]

I put Terry's two functions in the Declaration section of my Main Menu
and made the call below from the Timer Event.

When I execute this line:
hWnd = FindWindow(lpClassName, lpWindowName)

I get an error message:
"To set this property open the report or form in design view"

I notice we are not initializing lpWindowName - Is that correct
Hank Reed

[Terry Kreft]

If your doing this in a form then change the declaration of the variable
hWnd.

e.g.
Dim lnghWnd As Long
Dim lpClassName As String
Dim lpWindowName As String

lpClassName = "#32770"

lnghWnd = FindWindow(lpClassName, lpWindowName)
Call PostMessage( _
lnghWnd, _
WM_CLOSE, _
0, _
ByVal 0&)
You are getting this erro because hWnd is a property of the form, changing
the name of the variable will sort that out.

Yes lpWindowName should be an empty string for this purpose. we could have
done this

Dim lnghWnd As Long
Dim lpClassName As String

lpClassName = "#32770"

lnghWnd = FindWindow(lpClassName, "")

.... but as I was just knocking out the code I didn't bother too musch with
cleaning up.

I would have thought though as you already have a routing t oidentify the
dialog you would have it's hWnd (by this I mean the handle to the window),
you kust need to substitute that value for the lnghWnd variable above.
--
Terry Kreft

"Hank" <ha********@aol.com> wrote in message
news:11*********************@g43g2000cwa.googlegro ups.com...

I put Terry's two functions in the Declaration section of my Main Menu
and made the call below from the Timer Event.

When I execute this line:
hWnd = FindWindow(lpClassName, lpWindowName)

I get an error message:
"To set this property open the report or form in design view"

I notice we are not initializing lpWindowName - Is that correct
Hank Reed

[Hank]

Terry,
Sorry about my confusion. Your method now works quite
well.
Thanks for staying with me on this problem.
Hank Reed

Terry Kreft wrote:

If your doing this in a form then change the declaration of the variable
hWnd.

e.g.
Dim lnghWnd As Long
Dim lpClassName As String
Dim lpWindowName As String

lpClassName = "#32770"

lnghWnd = FindWindow(lpClassName, lpWindowName)
Call PostMessage( _
lnghWnd, _
WM_CLOSE, _
0, _
ByVal 0&)
You are getting this erro because hWnd is a property of the form, changing
the name of the variable will sort that out.

Yes lpWindowName should be an empty string for this purpose. we could have
done this

Dim lnghWnd As Long
Dim lpClassName As String

lpClassName = "#32770"

lnghWnd = FindWindow(lpClassName, "")

... but as I was just knocking out the code I didn't bother too musch with
cleaning up.

I would have thought though as you already have a routing t oidentify the
dialog you would have it's hWnd (by this I mean the handle to the window),
you kust need to substitute that value for the lnghWnd variable above.
--
Terry Kreft

"Hank" <ha********@aol.com> wrote in message
news:11*********************@g43g2000cwa.googlegro ups.com...

I put Terry's two functions in the Declaration section of my Main Menu
and made the call below from the Timer Event.

When I execute this line:
hWnd = FindWindow(lpClassName, lpWindowName)

I get an error message:
"To set this property open the report or form in design view"

I notice we are not initializing lpWindowName - Is that correct
Hank Reed