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.

Backup de Drivers antes da formatação ou Pesquisa automática

Há vários anos formato computadores e acho a pior parte a reinstalação de Drivers aqueles pequenos programas que mostra ao sistema operacional como usar corretamente cada componente físico do computador, e por sofrer tanto com este problema procurei um recurso mais simples para esta tarefa chata! E encontrei vários softwares que podem ajudar e encontrei dois. O primeiro é o DriverMax, se instalar antes da formatação é capaz de realizar uma busca profunda em seu sistema e listar todos os Drivers instalado possibilitando criar um backup em um local seguro fora de seu sistema, como por exemplo em um pen-drive, para que após a formatação e reinstalação do sistema seja possível reinstalar estes Drivers. dica instale o Drivemax antes de fazer a formatação! Faça os backups e logo em seguida faça a formatação, após reinstalar o sistema, instale o DriverMax novamente e faça o Restore dos Drivers salvos.

 Download Baixaki:

Outra dica interessante é o DeviceDoctor, programa desenvolvido para realizar uma leitura do sistema onde está instalado e realizar pesquisas em servidores de Drivers na internet, lhe oferecendo o melhor local para download dos Drivers, que você necessita para que o sistema funcione perfeitamente.

 Download Baixaki:

 
 

Espero que estas duas dicas tenham sido úteis, pois elas me salvam sempre que pego um computador diferente para formatar. Qualquer duvida faça um comentários e terei o maior prazer e tentar ajudar!