Is there a way to shut down the computer with VBA?

smercer

smercer

Registered User.
Local time
Today, 20:05
Joined
Jun 14, 2004
Messages
442
Hi all

Is there a way to shut down the computer with VBA?

I am needing this so that the restricted user does not close the database and then start playing with the other files and stuff on the computer.

Thanks in advance
 
Application.Quit

However, I've encountered trouble doing this with open, but hidden forms which contain combo boxes. I have to set each such combo box recordsource to Null.
 
llkhoutx said:
Application.Quit

However, I've encountered trouble doing this with open, but hidden forms which contain combo boxes. I have to set each such combo box recordsource to Null.
Click to expand...

llkhoutx: Thanks for your solution, but that only closes Access, It does not log off or shut down the computer.

Actually I would prefer to log off instead.

Thanks again.
 
logoff and s/down

smercer said:
llkhoutx: Thanks for your solution, but that only closes Access, It does not log off or shut down the computer.

Actually I would prefer to log off instead.

Thanks again.
Click to expand...

I want same as smercer. My db runs as soon as user logs on. (just standard runcommand in win2k registry), but i need commandbutton (or anything) in my db that will:
1.close db
2.close any other opne apps.
3.log off AND! shutdown machine.

any help please ?

regards
Piet.
 
piet123 said:
I want same as smercer. My db runs as soon as user logs on. (just standard runcommand in win2k registry).
Click to expand...
Hi Piet

I think that the sintax for both of us will be a bit different. because I have just experianced a VBA code that works with Windows XP but not Windows 98. I assume it will be the same with this as I am a windows XP user and am after some code for win xp.
 
xp + 2k

smercer said:
Hi Piet

I think that the sintax for both of us will be a bit different. because I have just experianced a VBA code that works with Windows XP but not Windows 98. I assume it will be the same with this as I am a windows XP user and am after some code for win xp.
Click to expand...

Thanks Smercer,
I agree, I use xp at home for personal db'[s, but at work we run 2k machines on lan/wan, so I wouldn't mind having the vb for both.

Let's hope someone can help us out.
Piet.
 
I found a good one @ http://vbnet.mvps.org/index.html Use the search VBnet function and search for the "How to Shut Down, Reboot, Log Off or Power Off" posting. You are not allowed to post their code anywhere else but it works. Copy all of the code listed at VBnet and replace [delete] the Command1_Click sub with this sub. Ensure you save your code before you launch this sub!
Code: 
Public Sub ShutDownPC()
    
   Dim uflags As Long
   Dim success As Long
  
    'choose the type of shut down you want
'    uflags = EWX_LOGOFF
'    uflags = EWX_SHUTDOWN
'    uflags = EWX_REBOOT
    uflags = EWX_POWEROFF
  
    'if running under NT or better,
    'the shutdown privileges need to
    'be adjusted to allow the ExitWindowsEx
    'call. If the adjust call fails on a NT+
    'system, success holds False, preventing shutdown.
    If IsWinNTPlus() Then
        success = EnableShutdownPrivledges()
      If success Then Call ExitWindowsEx(uflags, 0&)
    Else
        '9x system, so just do it
        Call ExitWindowsEx(uflags, 0&)
   End If
    
End Sub
You just have to play with the uflags options and decide which one you want.
 
ghudson: Thanks for your help, The shutdown now works, but now the database does not close properly (the ldb file is still there in the folder) before it does shutdown, and if i put in a close database code, it will close the database but everything after the close database line is not run therefore no shutdown.

Thanks for helping!!!
 
Remote Shutdown

What about shuting downa computer remotely?
 
I want it :)

piet123 said:
My db runs as soon as user logs on. (just standard runcommand in win2k registry)
Piet.
Click to expand...

Piet,
Where did you made those changes?
Thanx
Attila
 
skea said:
What about shuting down a computer remotely?
Click to expand...

I have that code in the General Forum. The Thread is Remote shutdown but its not working for me!!
 
Last edited:
Guys,

Just a thought but why not create a batch file and use shell to run it on dbclose.

If you go into Command type shutdown /? and it will give you a list of args you can use i.e -f forces running aps to close.

Batty
 
You must log in or register to reply here.

Similar threads

C
Why can't I opening the same form twice at the same time?
Replies
10
Views
410
MarkK
MarkK
N
Solved I'm using MS Access with two computers connected to the same network
Replies
3
Views
271
nector
N
M
Solved Access VBA ways to obtain file system directory listing
2
Replies
31
Views
840
Isaac
Isaac
NauticalGent
Coding Challenge
Replies
8
Views
171
Mark_
M
E
Is there any .ocx in Access to open Com Port (VBA)
Replies
2
Views
142
sonic8
S

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom