[Resolvido]Atualizador de Versão

Bom dia!

Caros colegas, estou tentando aperfeiçoar meu atualizador de access (sistema que criei). bom vamos ao assunto...
* Tenho duas tabelas uma na rede que esta vinculada e outra interna.
* Quando eu atualizo a versão deste sistema aparece uma comparação de que ha uma nova versão, até ai ok.
Agora a parte que começou a cozinhar o cerebro. Gostaria que quando a versão atualizar informe atraves de uma mensagem que o sistema foi atualizado (form load) e quando o cabra clicar em ok o sistema atualizar (dispara uma bat) seria mais ou menos o que to tentando abaixo:

Private sub form_load()

If [Texto166]<[VersionNumber]
MsgBox "O sistema foi atualizado, é preciso ser fechado.", _
vbOKOnly + vbCritical, "Atualização"

Call Shell(Environ$("COMSPEC") & " /c \\172.20.94.60\sistema\atualizar.bat", vbNormalFocus)
Application.Quit
End Sub


eu sei que to quase la mas tem alguma coisa errada...

Se possivel disponibilize a parte do BD para que possamos ver o processo

Cumprimentos.

Bom segue uma cópia dele, da tela onde preciso implementar este recurso que citei no topico anterior,
tem um botão no meio da tela onde tenho a tela de admim la tem duas caixas( versão atualizada e a interna ), quando altero a numeração existe uma formatação condicional que sinaliza na tela principal que tem uma nova atualização disponivel para baixar.

Amigo, consegui resolver a questão funcionou direitinho aqui.

no evento ao abrir, coloquei assim:


Private Sub Form_Load()

Dim Atualizar As String

If Texto166 < VersionNumber Then
MsgBox "Este Sistema foi atualizado, e precisa ser Fechado", _
vbOKOnly + vbCritical, "Atualização"
Call Shell(Environ$("COMSPEC") & " /c \\172.20.94.60\sistema\atualizar.bat", vbNormalFocus)
Application.Quit
End If
End Sub


agradeço pela atenção, vlw!!!

Se possível podes explicar a lógica de funcionamento desse teu sistema, descreva como ocorre todo o processo?
é em rede ou na net?



Cumprimentos.

Bom, segue uma cópia.

O sistema funciona da seguinte forma:

Disponibilizo na maquina local uma copia deste sistema sem as tabelas
As tabelas estão na rede, neste exemplo tem uma tbl vinculada (tblVersionServer)
Existe apenas uma tabela que não esta na rede (versao_interna)
existe duas caixas de texto na tela principal (texto166 e VersionNumber) que fazem link com as tbl descritas

O funcionamento da atualização acontece quando entro na tela admin, e altero o valor da caixa onde descreve versão nova sistema para um numero maior que o versão interna.

ai que vem a parte legal, sempre que for atualizar vc insere um numero maior e idêntico que o anterior para ambas as caixas e disponibiliza em um local na rede onde essa bat vai funcionar pra galera quando acessar o programinha ser obrigado a atualizar pq a versão que ta na máquina dele ta velha.

Ai ele executa a bat fazendo uma copia pra maquina local com a nova versão, ai é so alegria...


segue um exemplo de bat:

@echo off

ECHO AGUARDE. ESTA JANELA SE FECHARA AUTOMATICAMENTE APOS ATUALIZACAO DO SISTEMA



copy \\172.20.94.60\sistema\smile\atualizar\seuprograma.accdb c:\pasta de destino

/y

No mais meu muito obrigado e fiquem com Deus

Resumindo.. voce tem varios front end's em rede.... quando faz uma nova versão... nesse sistema especifica o numero da nova versão...
Quando o usuário abrir o sistema a versão dele não baterá com a nova versão... Então ele deverá atualizar...

A atulização consiste em copiar a nova versão para a pasta do sistema do usuário?
e se ele estiver com o bd aberto.. não aceitará a copia..

De detalhes disso.

Cumprimentos.

Exatamente a nova versão é o novo banco de dados para maquina local atraves da cópia via Bat

Quanto a sua pergunta o sistema atualiza sim, o que acontece quando ainda a bat ta carregando a linha do vb para fechar o access aberto (aplication.quit) ja executou a muito tempo. (testei em outra máquina aqui) tanto é não sei se percebeu ha um botão atualizar versão na tela principal que tem este mesmo efeito.

Bom acredito que seja tudo. bons estudos!

Obrigado pelas explicações... elas serão necessárias caso algum membro queira utilizar do exemplo.

O Fórum agradece o Retorno.