Microsoft Access é um sistema de gerenciamento de banco de dados para que as pessoas criem seus próprios bancos de dados , relatórios e formulários do usuário . Acesso contém todos os blocos de construção para o desenvolvimento de pequenas aplicações . Você pode criar tabelas de dados , procedimentos armazenados, funções definidas pelo usuário e macros , além de relatórios e formulários . Todos estes componentes têm seus próprios ponteiros ou definições de registro armazenadas em uma tabela de sistema oculto. Acesso mantém o controle de cada tabela, relatório , forma , etc, você cria e armazena informações, como quando foi criado ou atualizado e bandeiras do sistema. Instruções
obtendo uma lista de tabelas
1
Crie uma consulta para executar o comando SQL abaixo. Essa consulta recupera uma lista de todas as tabelas no banco de dados do Access atual . A cláusula where usa o número 1 para indicar que só queremos as tabelas retornado.
Selecione MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
ONDE MSysObjects.Type = 1
2
Retorna uma lista de apenas as tabelas não são do sistema do banco de dados com o exemplo fornecido :
Selecione MSysObjects . Nome, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
ONDE MSysObjects.Type = 1 AND MSysObjects.Name não gosto " MSys * "
3
Retorna uma lista de apenas as tabelas não escondidos no banco de dados , executando a consulta a seguir:
Selecione MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Tipo , MSysObjects.Flags
dE MSysObjects
ONDE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
4
Classificar a lista de não- , tabelas não- ocultas do sistema usando o código SQL abaixo :
Selecione MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
ONDE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 E MSysObjects.Name não gosto " MSys * "
ORDER BY MSysObjects.Name
Use a Lista de de tabelas em VBA
5
Carregue a sua lista de tabelas em um conjunto objeto de registro usando o código VBA mostrado abaixo :
Dim rsMyTables Como DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
6
loop através de cada registro retornado na consulta.
Dim rsMyTables Como DAO.Recordset
Definir rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Do While Not rsMyTables.EOF
'Código para manipular dados
rsMyTables.MoveNext
loop
7
Adicione o nome de cada tabela para uma lista drop-down , modificando o seu loop while :
Dim rsMyTables Como DAO.Recordset
Definir rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [Nome]
rsMyTables.MoveNext
loop
8
Feche o registro conjunto objeto para que ele libera a memória que está usando :
Dim rsMyTables Como DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [Nome]
rsMyTables.MoveNext
loop
rsMyTables.Close
Set rsMyTables = Nothing
