Obtendo caminho completo (path) de uma tabela no banco de dados ACCESS

Publicado em 06/10/2017 | (0) comentários

Considerando que sua aplicação ACCESS está vinculada em apenas um banco de dados (tabelas separadas da aplicação), a função CurrentDb possui um recurso extra para se obter o caminho completo das tabelas. Pegando o caminho de uma tabela, saberemos o caminho de todas.

Coloque a linha de código abaixo dentro de qualquer evento do ACCESS e ela retornará o caminho da tabela. Este caminho será exatamente onde as tabelas da sua aplicação estão salvas.

Obs: substitua o trecho destacado pelo nome de qualquer uma de suas tabelas.

Obtendo caminho completo

A função CurrentDb referencia ao banco atual e a instrução TableDefs referencia a tabela específica do banco atual. Em seguida a instrução Connect retorna o path da tabela

CurrentDb.TableDefs("nome_tabela").Connect

Obtendo parte do caminho

A função Mid retorna parte de uma string. No caso, estamos retornando a partir do caractere 5, contado da esquerda pra direita.

Mid(CurrentDb.TableDefs("nome_tabela").Connect, 10)

Categoria: access vba função