Cadastro usando VBA no Access.

Cadastro usando VBA no Access.

Atendendo alguns pedidos, resolvi criar este mini-tutorial, para ajudar a você criar seu próprio botão de cadastro no Access, sem depender do assistente.

Para isso vamos partir do principio que temos uma tabela em nosso banco, com 4 campos com o nome “tabProdutos”.

Campos:

-Código do tipo “Numeração Automática”

-Produto do tipo “Texto”

-Valor do tipo “Unidade Monetária”

-Quantidade do tipo “Número”

Exemplo:

Inicie um novo formulário em modo Designer.

Usando a guia com as ferramentas crie a seguinte interface.

Altere os nomes de cada componente, na caixa de propriedades, conforme a imagem.

Clique sobre o botão Cadastrar e na caixa de propriedades clique sobre a guia Eventos e clique sobre o evento “Ao Clicar” e escolha a opção “Construtor de Código” como na imagem:

Neste ponto você já deve estar com o ambiente de desenvolvimento do VBA, digite o seguinte código como na imagem.

Agora entendendo um pouco mais dos comandos:

Cria uma variável para o banco de dados:

Dim Banco As Database

Cria uma variável para armazena a estrutura da tabela:

Dim Tabela As Recordset

Seta o banco atual para a variável Banco:

    Set Banco = CurrentDb

   

Seta a tabela desejada do banco atual a variável Tabela:

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

   

Comando usado para adicionar um novo registro a tabela:

    Tabela.AddNew

   

Comandos usados para adicionar o valor das caixas de texto a cada campo da tabela:

    Tabela("Produto").Value = txtProduto.Value

   

    Tabela("Valor").Value = txtValor.Value

   

    Tabela("Quantidade").Value = txtQuantidade.Value

   

Comando usado para atualizar a tabela:

    Tabela.Update

   

Mensagem de confirmação:

    MsgBox "Cadastrado com sucesso."

Comandos para limpar o valor de cada caixa de texto:   

    txtProduto.Value = Empty

   

    txtValor.Value = Empty

   

    txtQuantidade.Value = Empty

Agora é só colocar o formulário em modo de apresentação e usar o seu novo botão para cadastro.

Obrigado pela atenção! Espero ter ajudado ;)

Comando em VBA para consultar código em tabela do Excel

Criando um Botão para consultas no Excel usando VBA.

A várias maneiras de usar o VBA para realizar uma consulta em uma tabela, mostrarei a que acho mais simples, partindo da base que a tabela em questão é está.

Exemplo:

Vamos colocar um botão ao lado da tabela para chamar a rotina de consulta, para isto segui este procedimento.

1. Clique na guia Desenvolvedor.
2. Clique sobre Inserir.
3. Controles do ActiveX clique sobre Botão de Comando.
4. Clique ao lado da tabela para inserir o botão.

Agora de dois cliques sobre o botão para criar o procedimento do evento clique do botão e digite este código.

Exemplo:

Private Sub CommandButton1_Click()
    Dim Celula As Range
    Dim Codigo As Integer
    
    Codigo = Application.InputBox("Entre com o código do produto")
    
    If Codigo <> False Then
        For Each Celula In Range("A2:a20")
            If Celula.Value = Codigo Then
                MsgBox ("O produto do código " & Codigo & " é " & Range("b" & Celula.Row).Value)
                
                Exit Sub
            End If
        Next Celula
    End If
    
    MsgBox ("Código não encontrado")
End Sub

Feche a área de desenvolvimento do VBA e desmarque a opção Modo de Design e clique sobre o botão é insira um dos códigos para fazer o teste.

Este código vai pegar o valor digitado pelo usuário e inserir na variável Codigo, e executar uma varredura na faixa de células, ao encontrar ele ira disparar uma mensagem informando o nome do produto se não ele vai enviar uma mensagem dizendo que não encontrou.

Este exemplo e muito mais pode ser encontrado no eBook: Sistema em VBA, desenvolvido pelo criador do blog Firecoyote.

Obrigado e espero ter ajudado, em caso de dúvidas mande um comentário.