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


    [Resolvido]Gestor de tabelas ligadas

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Gestor de tabelas ligadas Empty [Resolvido]Gestor de tabelas ligadas

    Mensagem  Luís Antunes Sab 06 Mar 2021, 7:49 pm

    Boa noite
    Estou a adaptar ao meu projecto um programa de vinculação de tabelas com memorização do caminho numa tabela "CaminhoBE"
    Acontece que, nas minhas experiências de alteração de localizações do BE, o gestor de tabelas duplica o caminho com mostro no anexo


    Luís Antunes
    Anexos
    [Resolvido]Gestor de tabelas ligadas AttachmentTabelas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 9 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7223
    Registrado : 15/03/2013

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  ahteixeira Sab 06 Mar 2021, 8:08 pm

    Olá Luís,

    Veja se ajuda:
    https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

    Não vi projeto, mas creio que tem que verificar se existe a ligação anterior e eliminar antes de ligar novamente.

    Abraço
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  Luís Antunes Dom 07 Mar 2021, 6:31 pm

    Boa noite Teixeira
    Envio em anexo o projecto pois, o problema é mais perceptível.

    Luís Antunes
    Anexos
    [Resolvido]Gestor de tabelas ligadas AttachmentContab.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (362 Kb) Baixado 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7223
    Registrado : 15/03/2013

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  ahteixeira Seg 08 Mar 2021, 9:51 am

    Olá Luis,

    O exemplo de código que está a usar é do Maestro do nosso colega Avelino, e o mesmo usa algumas técnicas para não revelar a palavra passe do BackEnd.
    É um excelente exemplo, mas é necessário compreender bem o código e que utilização vamos dar.

    Verifiquei que o seu BackEnd não tem palavra-passe e parece que o código está imcompleto.
    No entanto adicionei esta função:
    Código:
    Function fncTabelaEstaLigada(sNomeTabela As String) As Boolean
    ' Autor ..: Alvaro Teixeira (ahteixeira)
    ' Código .: fncTabelaEstaLigada
    ' Data ...: 07-07-2016
    ' Para ...: MaximoAccess.com
    ' Verifica apenas se existe a ligação/vinculo, não verifica se existe o ficheiro ou tabela da ligação
       
       fncTabelaEstaLigada = DCount("*", "MSysObjects", "MSysObjects.Name = '" & sNomeTabela & "' AND MSysObjects.Type = 6")
    End Function
    E adicionei esta parte no código do modulo
    Código:
           'DoCmd.OpenForm "frmBarraProgresso", OpenArgs:=1
            
            'ahteixeira para MaximoAccess 08-03-2021
            Dim dbe As DAO.Database
            Dim tdefs As TableDefs, tdef As TableDef
            Set dbe = DBEngine.OpenDatabase(CaminhoAtual)
                For Each tdef In dbe.TableDefs
                    If Left(tdef.Name, 4) <> "MSys" Then
                        If fncTabelaEstaLigada(tdef.Name) Then DoCmd.DeleteObject acTable, tdef.Name
                        DoCmd.TransferDatabase acLink, "Microsoft Access", _
                        CaminhoAtual, acTable, tdef.Name, tdef.Name
                    End If
                Next tdef
            dbe.Close
            Set dbe = Nothing

            If Len(Trim(DLookup("formPrincipal", "tblCaminhoBe")) & "") > 0 Then
                DoCmd.OpenForm DLookup("formPrincipal", "tblCaminhoBe")
            End If
            'fim ahteixeira para MaximoAccess 08-03-2021

    Optei pelo simples, verifique se é o resultado pretendido.
    Segue o meu teste.

    Abraço
    Anexos
    [Resolvido]Gestor de tabelas ligadas AttachmentLigarTabelasSemPassword.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (178 Kb) Baixado 12 vez(es)
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  Luís Antunes Seg 08 Mar 2021, 6:37 pm

    Boa noite Teixeira
    Ficou óptimo. Fico-lhe muito grato.
    cheers

    Luís Antunes
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7223
    Registrado : 15/03/2013

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  ahteixeira Ter 09 Mar 2021, 3:25 am

    Olá Luis,

    Obrigado pelo retorno.

    cheers

    Conteúdo patrocinado

    [Resolvido]Gestor de tabelas ligadas Empty Re: [Resolvido]Gestor de tabelas ligadas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sab 15 Maio 2021, 7:40 am