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

    [Resolvido]Erro ao abrir outro BD

    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Erro ao abrir outro BD Empty [Resolvido]Erro ao abrir outro BD

    Mensagem  Dougtha91 24/7/2018, 21:52

    Pessoal,
    Estou tentando abrir um BD de outro BD, porém esta dando o seguinte erro: "O Microsoft Access não pode localizar o arquivo de banco de dados, verifique se o caminho e o nome do arquivo foram inseridos corretamente."

    Porém o caminho esta correto, segue o código abaixo:

    Código:

    Function MCR_IMPORTACOES3()
    'On Error Resume Next
    Dim strcmd As String
    Dim objaccess As Access.Application
    strcmd = Chr(34) & SysCmd(acSysCmdAccessDir) & "\msaccess.exe" & Chr(34) & " " & Chr(34) & " M:\Multilaser\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb " & Chr(34)
    Call Shell(strcmd, vbNormalFocus)
    DoEvents:

    Set objaccess = GetObject("M:\teste\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb")


    Agradeço desde já.
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    [Resolvido]Erro ao abrir outro BD Empty Re: [Resolvido]Erro ao abrir outro BD

    Mensagem  livio.sfranca 26/7/2018, 14:13

    Bom dia Douglas,

    Tente assim:

    Código:
    strcmd = Chr(34) & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & Chr(34) & " " & Chr(34) & "M:\Multilaser\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb " & Chr(34)

    O erro pode ter acontecido por haver uma "\" a mais no seu código antes do "msaccess.exe". Retirei também um espaço antes do "M:\".

    Espero que ajude! Smile
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Erro ao abrir outro BD Empty Erro ao abrir outro BD

    Mensagem  Dougtha91 26/7/2018, 22:32

    Show funcionou, obrigado.

    Conteúdo patrocinado


    [Resolvido]Erro ao abrir outro BD Empty Re: [Resolvido]Erro ao abrir outro BD

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:33