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

    Buscar Nome do Banco de Dados

    avatar
    lessandroaraujo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/08/2020

    Buscar Nome do Banco de Dados Empty Buscar Nome do Banco de Dados

    Mensagem  lessandroaraujo 18/2/2022, 21:51

    Olá, tenho uma rotina no access que se o banco de dados ficar mais de um tempo rodando, faço o Terminate do Acess com o código abaixo:

    Sub FECHAR_ACCESS()
    Dim W As Object
    Dim ProcessQuery As String
    Dim processes As Object
    Dim process As Object

    Set W = GetObject("winmgmts:")
    ProcessQuery = "SELECT * FROM win32_process Where Name = 'MSACCESS.EXE'"
    Set processes = W.execquery(ProcessQuery)

    For Each process In processes
    If process.Name = "MSACCESS.EXE" Then
    On Error Resume Next
    process.Terminate
    On Error GoTo 0
    End If
    Next process
    End Sub

    Gostaria de saber se antes de fazer o terminate, se tem como pegar no nome do Banco de Dados que está aberto antes de fechá-lo ("Banco_de_dados.accdb" por exemplo).

    Obrigado pela ajuda.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    Buscar Nome do Banco de Dados Empty Re: Buscar Nome do Banco de Dados

    Mensagem  Alexandre Fim 18/2/2022, 21:55

    Olá Alessandro,

    Voce pode utilizar:

    CurrentProject.Path &"\" & CurrentProject.Name


    É isso!
    []'s
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Buscar Nome do Banco de Dados Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lessandroaraujo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/08/2020

    Buscar Nome do Banco de Dados Empty Re: Buscar Nome do Banco de Dados

    Mensagem  lessandroaraujo 19/2/2022, 16:48

    Me desculpe, acabei esquecendo de mencionar. Tenho um access que fecha outros access, e precisava saber o nome do BD que o terminate está fechando pelo próprio Win32.
    Já tentei usar:
    process.ID
    process.ProcessId
    process.CSName
    etc

    Mas ainda não consegui achar o nome do BD.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Buscar Nome do Banco de Dados Empty Re: Buscar Nome do Banco de Dados

    Mensagem  JPaulo 21/2/2022, 09:29

    Você está a matar um processo (Win32_Process) não está a matar um nome de um banco.


    .................................................................................
    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

    Buscar Nome do Banco de Dados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Buscar Nome do Banco de Dados Folder_announce_new 102 Códigos VBA Gratuitos...
    Buscar Nome do Banco de Dados Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 24/9/2022, 20:18