MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Atualizar vinculo com excel - VBA

    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Atualizar vinculo com excel - VBA Empty [Resolvido]Atualizar vinculo com excel - VBA

    Mensagem  kah182 em 18/11/2020, 17:46

    Boa tarde Pessoal,

    Estou criando um BD para controle de algumas informações e quem vai usar no dia a dia não tem conhecimento  de Access.
    Esse BD busca informacoes de planilhas .xlsm que estão na rede, separadas por ano e mes. Porém pra que o usuário não tenha que ir até as tabelas e alterar o vinculo na mão criei um formulário onde ele seleciona o ano e o mês e o VBA atualiza o vinculo.

    Nunca fiz isso antes e pelo que pesquisei em alguns lugares da pra fazer da seguinte forma:

    Código:
    Private Sub Comando99_Click()

       Dim cdb As DAO.Database
       Set cdb = CurrentDb
       Dim ano As Integer
       Dim mes As String
       
       mes = Me.txtmes
       
       If Me.quadro = 1 Then
           
           ano = 2020
       
       Else
       
           ano = 2021
       
       End If
       
       'aqui eu encurtei o caminho na rede p/ postar. o erro não é pelo ip q está errado rsrs
        cdb.TableDefs("BASE_JUNCAO").Connect = "\\192.\Cadastro\" & ano & "\" & mes & "\base_geral.xlsm"
        cdb.TableDefs("BASE_JUNCAO").RefreshLink
        Set cdb = Nothing

    End Sub


    Quando vai executar a parte " cdb.TableDefs("BASE_JUNCAO").RefreshLink" ele apresenta o seguinte erro:

    "ERRO NO TEMPO DE EXECUÇÃO '3170': NÃO FOI POSSIVEL LOCALIZAR O ISAM INSTALAVEL. "


    Alguem sabe como posso corrigir esse erro ou outra forma de atualizar esse vinculo por vba?


    Obrigada!


    Última edição por kah182 em 19/11/2020, 20:08, editado 1 vez(es)
    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Atualizar vinculo com excel - VBA Empty Re: [Resolvido]Atualizar vinculo com excel - VBA

    Mensagem  kah182 em 19/11/2020, 20:07

    Pessoal resolvi com da seguinte maneira:

    Código:
    DoCmd.TransferSpreadsheet acLink, 8, "BASE_JUNCAO", "\\192..........", True, ""

      Data/hora atual: 4/12/2020, 10:45