Descobrir nomes tabelas banco com MSysObjects

Descobrir nomes da tabelas VBAAprenda a desenvolver sistemas com Access 2007. No curso de Access 2007, que é totalmente online.

A algum tempo precisei fazer um código VBA que encontra-se determinadas tabelas dentro de um banco de dados, e atualiza-se o vinculo delas.

Foi neste momento que senti necessidade de um código para descobrir o nome das tabelas do banco de dados em VBA.

Pode-se conseguir os nomes das tabelas do banco acessando a tabela oculta MSysObjects.

Você precisa apenas de um comando SQL direto na base, que irá retornar os valores presentes dentro desta tabela.

Comando para encontrar nomes da tabelas do banco

Dim tabel As DAO.Recordset

Set tabel = CurrentDb.OpenRecordset(“SELECT Name FROM MSysObjects WHERE type=6”)

O type 6 indica que são as tabelas que queremos e não consultas, formulários, macros, etc, pois nesta tabela estão todos os objetos presentes no banco de dados Access.

Exemplo de uso do código

Caso queira entender melhor o funcionamento e aproveitamento do código, você tem a opção de baixar um exemplo em txt.

O que você achou da dica de comando deste artigo? Conseguiu aproveitar de maneira satisfatória o código? Deixe seu comentário e compartilhe nas redes sociais!

Autor: Matheus Pellizzaro

Matheus é formado em sistemas de Informação pela UDESC, desenvolve sistemas e páginas de internet para empresas e pessoas físicas nas "horas vagas". Maiores detalhes em www.tecnozen.com.br