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


3 participantes

    [Resolvido]Fechar BD em determinado horário

    avatar
    leandrotcastro2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 18/04/2023

    [Resolvido]Fechar BD em determinado horário Empty [Resolvido]Fechar BD em determinado horário

    Mensagem  leandrotcastro2 18/4/2023, 18:40

    Boa Tarde!
    Gostaria de um auxílio!
    Preciso que um arquivo do Access feche por completo em um determinado horário, por exemplo às 20h.
    Pois de madrugada este mesmo banco atualiza automaticamente (abre através de tarefa agendada do Windows) e se algum usuário esquece o BD aberto no dia anterior, este não atualiza.
    Grato!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  crysostomo 18/4/2023, 18:55

    Boa tarde
    No evento
    Código:
    Dim fecha
    fecha = #20:00:00 PM#
    If date = fecha Then
    DoCmd.Quit
    End If
    End Sub
    ou
    Código:
    if date =2#20:00:00 PM#
    DoCmd.Quit
    End If


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    leandrotcastro2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 18/04/2023

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  leandrotcastro2 18/4/2023, 19:13

    Obrigado!
    Porém este código é para ser colocado em um formulário, acredito que na propriedade No Timer.
    O meu BD não tem formulário, somente tabelas, consultas e uma macro AutoExec de atualização das consultas.
    Nesse caso, como posso fazer?
    Pensei em criar uma condição no construtor de macros, mais não sei como fazer.]
    Grato!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  crysostomo 18/4/2023, 19:59

    Dessa sua forma não entendo muito bem de condição em contrutor. O bom seria colocar um form oculto para que haja uma condição lógica.
    Se deseja, esse seria bom para seu projeto.

    Código:
    DoCmd.OpenForm "Formulário1", acNormal, , , , acHidden  ---> aqui ele vai ocultar
    If VBA.Time = "20:00:00" Then ----> ele vai fechar no horario determinado
     DoCmd.Quit
    End If
    End Sub
    Ao abrir o form vai ficar oculto e no horario ele vai fechar.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  JPaulo 19/4/2023, 15:21

    O simples é:

    1 - Criar uma ficheiro de texto (notepad)
    2 - Colar este trecho nele e salvar onde quiser
    Código:
    taskkill /F /IM msaccess.exe
    3 - Renomear a extensão desse ficheiro de texto de .txt para .bat
    4 - Vá no agendedor de tarefas do seu Windows e agende à hora que quer para correr o batch file.

    Voilá......


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar BD em determinado horário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar BD em determinado horário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar BD em determinado horário Folder_announce_new Instruções SQL como utilizar...
    avatar
    leandrotcastro2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 18/04/2023

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  leandrotcastro2 19/4/2023, 17:40

    Prezados, muito obrigado pela ajuda!
    Consegui usar as duas soluções, mais a do agendador do Windows funcionou melhor.
    Grato!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  crysostomo 19/4/2023, 22:47

    Sucesso Basketball Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  JPaulo 20/4/2023, 16:47

    Obrigado pelo retorno o forum agradece.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar BD em determinado horário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar BD em determinado horário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar BD em determinado horário Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Fechar BD em determinado horário Empty Re: [Resolvido]Fechar BD em determinado horário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 05:24