Pessoal

Alguem tem o comando que desliga a máquina ???

Oi Flavio,

Vai no procurar do forum e digite "Desligar o windows".

t+

Pessoal

Alguem tem o código ?

isto deve te ajudar.

Como desligar o Windows a partir do Access?


Para desligar o Windows (efetuar o Shutdown) a partir do Access ou VB, use uma das técnicas abaixo:

1) Use o comando Shell com a linha:

C:\WINDOWS\RUNDLL.EXE USER.EXE,EXITWINDOWS

Ou:

2) Use a função ExitWindowsEx da API do Windows.
Esta função retorna 0 se um erro ocorrer, ou 1 se tiver sucesso. Adicione a declaração abaixo a um módulo do banco de dados (Access 7.0 e 97):

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As _
Long, ByVal dwReserved As Long) As Long

DESCRIÇÃO DOS PARÂMETROS:
a) uFlags - um ou mais dos seguintes flags especificam como desligar ou fazer o reboot do computador.
EWX_FORCE = 4 =EWX_LOGOFF = 0 =EWX_POWEROFF = 8 =EWX_REBOOT = 2 =EWX_SHUTDOWN = 1 =Function ShutDownWindows()
'Isto irá fechar todas as aplicações e desligar o Windows.
Dim x As Long
x = ExitWindowsEx(EWX_SHUTDOWN, 0)
application.Quit acExit
End Function

Você pode alterar a função com um ou mais dos flags descritos acima. Exemplos:

' Faz o reboot do computador, forçando qualquer programa aberto a fechar.
x = ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0)

MAIS INFORMAÇÕES:
a) Leia o artigo Q89596: How to Use a Microsoft Access Macro to Quit Windows, da Microsoft Knowledge Base, no seguinte endereço:
http://support.microsoft.com/support/kb/articles/q89/5/96.asp

b) Se você está usando o Microsoft Windows NT, ou se você preferir fechar todas as aplicações mas não efetuar o log off do usuário, altere o primeiro parâmetro para 0 (EWX_LOGOFF), como segue:

x = ExitWindowsEx(0, 0)

c) Os arquivos temporários não serão apagados, acumulando espaço no disco.
Você deverá apagá-los manualmente.


Abraços

Rogério vc tem exemplo ?

é exatamente isso que eu estou precisando..