MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

  • Novo Tópico
  • Responder ao tópico

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

Compartilhe
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

Executar comando DOS apartir de Botão - VBA

Mensagem  HARYSOHN em Seg 18 Jul 2011, 13:19

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


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]

Edson1974
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 163
Registrado : 10/05/2011

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

Mensagem  Edson1974 em Seg 18 Jul 2011, 14:05

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.
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 14:33

Isto faz o quê ? "cw32tm/resync"

Se você inserir direto no cmd, funciona ?

O que é que tem escrito nesse .bat ?


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 14:52

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


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 14:54

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


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 14:56

Obrigado Edson..

coloquei o pause e deu a mensagem

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



.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 15:01

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


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 15:02

é que estava digitando quando postou hehehe

estou testando


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 15:07

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

mas ao executar do FOrm...

Da o seguinte erro

Não foi possivel encontrar o modulo especificado


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 15:09

Apliquei assim:


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



.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 15:37

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)



.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 15:41

Mesmo erro amigão...


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 16:18

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

Aqui funfa direito, veja;

[Você precisa estar registrado e conectado para ver esta imagem.]



.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 16:32

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

[Você precisa estar registrado e conectado para ver este link.]



Grato Amigão


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 16:55

Esse é o problema.

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

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



.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 16:56

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

Saudações


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9546
Registrado : 04/11/2009

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

Mensagem  JPaulo em Seg 18 Jul 2011, 17:01

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.



.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
HARYSOHN
Moderador Global
Moderador Global

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 12227
Registrado : 01/03/2011

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

Mensagem  HARYSOHN em Seg 18 Jul 2011, 17:02

Very Happy Obrigado


.................................................................................
PILOTO
الله أكبر Paz, Justiça e Liberdade! الله أكبر
CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

Iniciando no Access? Então veja esse tópico e também esse


BUSCA NO FÓRUM - CLIQUE AQUI!!!

Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
[Você precisa estar registrado e conectado para ver esta imagem.]

walneys
Novato
Novato

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 1
Registrado : 01/06/2015

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

Mensagem  walneys em Seg 12 Jun 2017, 19:04

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.
  • Novo Tópico
  • Responder ao tópico

Data/hora atual: Qui 21 Set 2017, 02:32