Access VBA, Trabalhando com tabelas

Access VBA Banco de Dados

Várias vezes já sofri com a falta de ferramentas para manipular os dados dentro do

access, então resolvi avançar no conhecimento usando codigo VBA para manipular os

dados, então descobri como instanciar em uma variavel o banco de dados e por esta

variavel ligar uma tabela a uma variavel e atravez desta variavel com a tabela fazer

consultas inserir, apagar e corrigir informações, vou mostrar o codigo e explicar como

funciona.

1- Crie uma variavel para armazenar o Banco de Dados.

Dim BancoDados as Database

2- Crie uma variavel para armazenar a tabela.

Dim Tabela as Recordset

3- Faça a configuração da variavel BancoDados com a db atual q esta usando.

Set BancoDados = CurrentDb

4- Faça a configuração da variavel que vai receber a tabela desejada

Set Tabela = Banco.OpenRecordset("NomeDaTabela", dbOpenTable)

Agora esta tudo pronto Qualquer operação que queira fazer é so usa a varaivel Tabela

Vou dar um exemplo de consulta.

1- Faça a seleção do campo da tabela que deseja consultar algum registro

Tabela.index = "CampoDesejado"

2- Faça a procura usando a função Seek.

Tabela.Seek "=", ValorQueDesejaProcurar

3- Você pode usar a função NoMatch para ver se foi ou não encontrado algum registro.

Vou mostrar o codigo completo.

Private Sub buttonConsultar_Click()
Dim BancoDados as Database
Dim Tabela as Recordset

Set BancoDados = CurrentDb
Set Tabela = Banco.OpenRecordset("NomeDaTabela", dbOpenTable)

Tabela.index = "CampoDesejado"
Tabela.Seek "=", ValorQueDesejaProcurar

If Tabela.NoMatch = True Then
MsgBox("Registro encontrado!")
Else
MsgBox("REsgitro não encontrado!")
End If
End Sub

Em caso de duvidas eu terei o maior prazer em ajudar!