[Resolvido]Executar comando DOS apartir de Botão - VBA

Amigos, preciso executar este comando DOS apartir do Click de um botão no form

cw32tm/resync


Criei um arquivo de lote .bat e tentei fazer isso através dele:

Shell "c:\Sincroniza.bat", vbNormalFocus


Mas a janela do comando abre e fecha instantaneamente, com alguma mensagem de que não foi possível executar.. Fecha muito rápido, não dá tempo de ler a MSG..


Como fazer isso?


Grato

Olá Harysohn,

passei a pouco tempo por este problema e fiz o seguinte para poder ler a mensagem que aparecia no cmd, logo abaixo dos comandos do .bat coloquei "pause" a tela pára e assim congui ver as mensagens.

Isto faz o quê ? "cw32tm/resync"

Se você inserir direto no cmd, funciona ?

O que é que tem escrito nesse .bat ?

Bom dia car João Paulo, cumprimentando-lhe....

O que está escrito no Bat é exatamente o comando:

cw32tm/resync


Tentei executá-lo diretamente com o shell e tentei tambem com o bat...

Nao ta dando certo

* se eu digito no Prompt DOS.. na janela Command (tanto o comando como o Bat funciona)

preciso de executá-lo no botão do Form...


Este comando remete a uma chave no registro que sincroniza automaticamente o horário do PC com um servidor de tempo na internet....


Para isso criei um arquivo de nome

Win32_Time.Reg com a instrução

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters]
"ServiceMain"="SvchostEntry_W32Time"
"ServiceDll"=hex(2):43,00,3a,00,5c,00,57,00,49,00,4e,00,44,00,4f,00,57,00,53,\
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,77,00,33,00,\
32,00,74,00,69,00,6d,00,65,00,2e,00,64,00,6c,00,6c,00,00,00
"NtpServer"="time.nist.gov,0x1"
"Type"="NTP"



Executo este arquivo que leva os valores para o registro..

depois executo o comando la acima e sincronizo a data do PC com o servidor



Espero que tenha entendido

OK, entendi;

Faça assim, para chamar o Shell

Dim x As String
x = "c:\Sincroniza.bat"
Shell "cmd /c " & x, vbNormalFocus

Dentro do .bat, faça deste jeito;

@echo off
echo Iniciado em %date% %time%
echo.
echo - aguarde...
echo.
w32tm /resync

Teste e retorne

Obrigado Edson..

coloquei o pause e deu a mensagem

O serviço não foi iniciado.. <0x0070426>

Leia as mensagens nos tópicos, com calma (nada de pressas).

é que estava digitando quando postou hehehe

estou testando

Caro JP... o Bat ficou perfeito...

mas ao executar do FOrm...

Da o seguinte erro

Não foi possivel encontrar o modulo especificado

Apliquei assim:


Dim x As String
x = (CurrentProject.Path & "\Sincroniza.bat")
Shell "cmd /c " & x, vbNormalFocus

Você não disse que o ficheiro estaria junto do banco.

Para caminhos mais extensos, tem de ser assim;

Dim x As String
x = "\Sincroniza.bat"
Shell "cmd.exe /c " & Chr(34) & Application.CurrentProject.Path & x & Chr(34)

Mesmo erro amigão...

Tem de beber um copinho de água e ir devagar.

Aqui funfa direito, veja;

Insfelizmente aqui não amigão... talvez seja porcausa do windows 7


Bem como eu pretendia sincronizar o tempo com um servidor de tempo na internet.... resolvi assim:


Criei um arquivo com o nome SetTime.vbs (vbScript) encontrado na net

e no comando do botão:


Private Sub btnSincronizar_Click()
Dim sh As Object
Set sh = CreateObject("WScript.Shell")
sh.Run (CurrentProject.Path & "\SetTime.vbs")
End Sub


LINK para o vbScript SetTime.vbs

http://dl.dropbox.com/u/26441349/SetTime.rar



Grato Amigão

Esse é o problema.

Nunca indicarem a versão do Windows e do Access.

Se assim fosse, este tópico já estaria resolvido.

Perdão por isso amigão.. poderia explicar como seria em windows 7 Acces 2007?

Saudações

Tranquilo, da proxima não esqueça, é muito importante não fazer as feras perderem tanto tempo para nada, (neste caso), todos nós trabalhamos e estamos a ocupar o poucos minutos que nos restam disponiveis.

Obrigado

Boa tarde! pesquisando no fórum vi essa questão de sincronismo da hora com a internet, ainda existe esse arquivo? poderia liberar novamente?

desde já, muito obrigado.