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

    Instrução que retorna se a tabela é anexada ou não

    helio_japa
    helio_japa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/07/2012

    Instrução que retorna se a tabela é anexada ou não Empty Instrução que retorna se a tabela é anexada ou não

    Mensagem  helio_japa 1/10/2014, 16:01

    Bom dia aos nobres colegas!!
    Andei pesquisando bastante mas não achei nada relacionado com a minha necessidade e dúvida, então estou vindo aqui humildimente na selva das feras do Access tentar sana-la, é o seguinte gostaria de saber se existe alguma instrução em VBA que retornasse para uma variável se uma determinada tabela esta tipo anexada ou local em outro BD em access 2003.
    Grato a todos pela atenção
    Hélio
    helio_japa
    helio_japa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/07/2012

    Instrução que retorna se a tabela é anexada ou não Empty Re: Instrução que retorna se a tabela é anexada ou não

    Mensagem  helio_japa 1/10/2014, 22:59

    Depois de muita pesquisa e estudos fiz um procedimento para atender o meu caso realizei vários testes e posso dizer que esta funcionando.
    Faço votos que algum dia possa ajudar algum colega aqui do fórum.
    Abraços a todos!!! Very Happy

    Public Function TabelaVinculada()
    Dim DB As DAO.Database, tdf As DAO.TableDef
    Dim xTab As String

    Set DB = OpenDatabase("d:\Teste.mdb") 'Abri o outro BD o qual vai ser pesquisado a tabela vinculada
    For Each tdf In DB.TableDefs 'Faz loop pelas tabelas
    If Len(tdf.Connect) > 0 Then
    xTab = tdf.SourceTableName ' carrega a variável com o nome da tabela vinculada
    End If
    Next tdf
    DB.Close 'fecha o BD o qual foi aberto para verificar as tabelas vinculadas
    End Function
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Instrução que retorna se a tabela é anexada ou não Empty Re: Instrução que retorna se a tabela é anexada ou não

    Mensagem  Alvaro Teixeira 1/10/2014, 23:43

    Olá, apesar de ter resolvido, obrigado pelo retorno o forum agradece.
    Smile

    helio_japa
    helio_japa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/07/2012

    Instrução que retorna se a tabela é anexada ou não Empty Re: Instrução que retorna se a tabela é anexada ou não

    Mensagem  helio_japa 2/10/2014, 13:05

    Foi mal... Embarassed
    Acabei me esquecendo acrescentar esta linha para limpar a variável liberando memória
    Set DB = nothing
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Instrução que retorna se a tabela é anexada ou não Empty Re: Instrução que retorna se a tabela é anexada ou não

    Mensagem  Alvaro Teixeira 6/10/2014, 16:18

    Obrigado pelo retorno, o forúm agradece.

    Não se esqueça de dar o tópico como resolvido, veja link abaixo:
    http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

      Data/hora atual: 3/12/2022, 02:46