MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    substituição de programa

    avatar
    sergio de paula
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 19/04/2020

    substituição de programa Empty substituição de programa

    Mensagem  sergio de paula 14/12/2022, 13:40

    Gostaria de saber se alguém pode me ajudar, dando uma ideia !
    Tenho um programa na loja do meu filho e a substituição de versão às vezes causa problema, assim pensei em fazer a substituição pela nova versão na abertura do programa. A substituição da base de dados funciona direito mas a do programa dá problema. pensei em criar uma .exe mas não sei como fazer.

    as linhas de programação que fiz são as seguintes (a que dá problema na substituição do programa), no formulário que inicializa o programa :

    Private Sub Form_Load()
    a = ""
    a = Dir("c:\thinkprograma\thinkdadosnew.mdb")
    If a <> "" Then
    Name "c:\thinkprograma\thinkdados.mdb" As "c:\thinkprograma\thinkdados - " & Year(Date) & Month(Date) & Day(Date) & ".mdb"
    Name "c:\thinkprograma\thinkdadosnew.mdb" As "c:\thinkprograma\thinkdados.mdb"
    MsgBox "Uma nova versão do banco de dados foi instalada"
    End If
    a = ""
    a = Dir("c:\thinkprograma\thinkprognew.accdb")
    If a <> "" Then

    Name "c:\thinkprograma\thinkprog.accdb" As "c:\thinkprograma\thinkprog - " & Year(Date) & Month(Date) & Day(Date) & ".accdb"
    Name "c:\thinkprograma\thinkprognew.accdb" As "c:\thinkprograma\thinkprog.accdb"
    MsgBox "Uma nova versão do programa foi instalada verifique se o atalho está compativel"
    End If

    daí seguem as outras intruções normais

    Grato pela ajuda !
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 17/03/2011

    substituição de programa Empty Re: substituição de programa

    Mensagem  Cláudio Machado 22/12/2022, 19:52

    Boa tarde.

    Tenho um sistema que verifica a versão no servidor de rede e se for diferente atualiza sozinho, caso contrário abre a tela de login.

    Segue anexo.

    Precisa ajustar pro seu sistema.

    Se tiver dúvidas, só perguntar.

    Abraço
    Anexos
    substituição de programa AttachmentPRINCIPAL.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (117 Kb) Baixado 9 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha substituição de programa 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 27/1/2023, 04:26