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!
