Como fazer uma consulta VBA no Access listar as tabelas em um banco de dados
Obter uma lista de tabelas
Passo 1
Crie uma consulta para executar o comando SQL mostrado abaixo. Essa consulta obtém uma lista de todas as tabelas no banco de dados atual do Access. A instrução where usa o número 1 para indicar que queremos apenas que as tabelas apareçam.
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags de MSysObjects WHERE MSysObjects.Type = 1
Passo 2
Obtenha uma lista que tenha apenas as tabelas no banco de dados que não são do sistema, com o exemplo fornecido abaixo:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags de MSysObjects WHERE MSysObjects.Type = 1 e MSysObjects.Name não como 'MSys'
Passo 3
Obtenha uma lista que contenha apenas as tabelas não ocultas no banco de dados, executando a seguinte consulta:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags de MSysObjects WHERE MSysObjects.Type = 1 e MSysObjects.Flags 8
Passo 4
Classifique a lista de tabelas não ocultas que não são do sistema usando o seguinte código SQL:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags de MSysObjects WHERE MSysObjects.Type = 1 E MSysObjects.Flags 8 E MSysObjects.Name Não Semelhantes 'MSys *' ORDER BY MSysObjects.Name
Use a lista de tabelas no VBA
Passo 1
Carregue sua lista de tabelas em um objeto de conjunto de registros usando o código VBA mostrado abaixo:
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Passo 2
Percorra um ciclo através de cada registro obtido na consulta.
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Do While Não rsMisTablas.EOF 'Code para manipular informações
rsMisTablas.MoveNext Loop
Passo 3
Adicione os nomes de cada tabela a uma lista suspensa que modifique seu ciclo:
Dim rsMisTablas Como conjunto DAO.Recordset rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Do While Não rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Name]
rsMisTablas.MoveNext Loop
Passo 4
Feche o objeto do conjunto de registros para liberar a memória que você está usando:
Dim rsMisTablas Como conjunto DAO.Recordset rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Do While Não rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Name]
rsMisTablas.MoveNext Loop
rsMisTablas.Close Set rsMisTablas = Nothing
