[A BÍBLIA DO VBA NO ACCESS]: MACROS E PROGRAMAÇÃO VBA NO ACCESS - CURSO COMPLETO

Páginas: 1164 | Autor: Júlio Battisti | 50% de Desconto e 21 Super Bônus

Você está em: PrincipalArtigosAccess 2007 Avançado › Capítulo 1 : 18
Quer receber novidades e e-books gratuitos?
›››
« Anterior Δ Página principal ¤ Índice Próxima »

Curso Grátis - Access 2007 Avançado, Macros e Programação VBA
Autor: Júlio Battisti
Lição 18 - Capítulo 01 - Visual Basic for Applications - VBA - Parte 5

Fazendo cálculos e comparações com o VBScript – Operadores

Para realizarmos cálculos e comparações entre variáveis, podemos utilizar operadores. Neste item trataremos sobre operadores aritméticos e operadores de comparação.

Fazendo cálculos com os Operadores aritméticos.
Podemos realizar cálculos no VBA, utilizamos operadores aritméticos. Na Tabela a seguir, temos uma descrição dos operadores que podemos utilizar:

TABELA - Operadores Aritméticos do VBA

Exemplo: Vamos abrir o formulário Teste, do banco de dados Northwind.mdb e criar um botão chamado ExOperadores. Vamos criar um procedimento associado a esse botão, onde exemplificamos o uso dos diversos operadores aritméticos.

Para criar o exemplo proposto faça o seguinte:

  • Abra o banco de dados Nothwind.mdb;
  • Abra o formulário teste em modo design;
  • Crie um botão de comando com o nome de ExOperadores;
  • Associe o seguinte código ao evento Ao Clicar, deste botão de comando:

  • Após digitar o código Feche o Ambiente de Desenvolvimento;
  • Salve o Formulário;
  • Vá para o modo Formulário e dê um clique no botão "ExOperadores";
  • Será exibida a seguinte mensagem:


Figura 144 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 145 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 146 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 147 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 148 – Mensagem.

  • Dê um clique no botão OK.
  • Você estará de volta ao formulário Teste.
  • Mantenha este formulário carregado. Iremos utilizá-lo nos próximos exemplos.

Neste exemplo utilizamos os operadores aritméticos, para realizar uma série de operações com os valores atribuídos às variáveis “a” e “b”. Depois utilizamos a função MsgBox, para exibir os resultados obtidos. O uso da função MsgBox, merece alguns comentários. Primeiro, utilizamos a função MsgBox, para exibir mensagens em uma pequena janela, chamada de Janela Pop-Up. Podemos exibir texto e também valores de variáveis. Quando temos que exibir diversos componentes, como um pouco de texto, em seguida o valor de uma variável, depois mais texto, e assim por diante, devemos utilizar o operador de concatenação &. Este operador permite que as diversas partes sejam exibidas como uma única mensagem. Considere o exemplo da seguinte linha de código:

MsgBox "Os números são: " & a & " e " & b & Chr(13)

Neste exemplo, primeiro é exibido o texto: "Os números são:" , logo em seguida o valor da variável a. Observe que as duas partes são concatenadas com o operador &. Depois concatenamos o valor da variável b, e finalmente utilizamos a função Chr(13). A função Chr(número), envia o caracter correspondente ao número digitado entre parênteses. Este número, é o número do caracter no padrão ASCII (American Standard Caracter Interchange Information). No código ASCII, cada caracter possui um número associado. No caso o número 13, é associado ao <ENTER>. Com isso estamos enviando um <ENTER>, para a caixa de mensagem, o que equivale a uma troca de linha. Com isso, utilizamos o Chr(13), para simular um <ENTER>, de tal maneira que os dados não saiam todos “emendados”, na mesma linha.

Com o uso de operadores, podemos realizar uma série de operações sobre as variáveis existentes no Script.

Comparando valores com os Operadores de comparação.

Em determinadas situações, existe a necessidade de efetuarmos comparações entre os valores de duas ou mais variáveis ou expressões. Com base no resultado da comparação – Verdadeiro ou Falso -, a execução do código VBA pode seguir caminhos diferentes. Normalmente utilizamos comparações, nas estruturas de controle do código, também conhecidas como laços de controle. Para que possamos estudar os operadores de comparação, vamos apresentar uma das estruturas de controle mais simples que existem no VBA, a estrutura If Then Else. A seguir temos um exemplo do funcionamento da estrutura If Then Else:

If x>y Then
     ‘ Comandos a serem executados quando x for maior do que y
     Comando 1
            Comando 2
            ...
            Comando n
Else
     ‘ Comandos a serem executados quando x for menor ou igual a y
     Comando 1
            Comando 2
            ...
            Comando n
End If

Conforme podemos ver, a estrutura If Then Else, é bastante simples. Fazemos um teste no início da estrutura. Se o valor do teste for verdadeiro, executamos os comandos na seqüência, caso contrário, executamos os comandos após o Else. Note que utilizamos o operador de comparação “maior do que: >”, no caso x>y, estamos testando se x é maior do que y.

Podemos utilizar laços If Then Else mais complexos, como os do exemplo:

If x>y Then
     ‘ Comandos a serem executados quando x for maior do que y
     Comando 1
            Comando 2
            ...
            Comando n
ElseIf x=y Then
     ‘ Comandos a serem executados quando x for igual a  y
     Comando 1
            Comando 2
            ...
            Comando n
Else
     ‘ Comandos a serem executados quando x for menor do que y
     Comando 1
            Comando 2
            ...
            Comando n
End If

Podemos utilizar tantos ElseIf, quantos forem necessários.

Na Tabela a seguir temos uma descrição dos operadores de comparação.

Tabela - Operadores de comparação do VBA.

Exemplo: Com o formulário teste aberto vá para o modo design, do banco de dados Northwind.mdb e crie um botão chamado ExOperadoresComparação. Vamos criar um procedimento associado a esse botão, onde exemplificamos o uso dos diversos operadores de comparação do VBA.

Para criar o exemplo proposto faça o seguinte:

  • Vá para o modo design do formulário Teste;
  • Crie um botão de comando com o nome de ExOperadoresComparação;
  • Associe o seguinte código ao evento Ao Clicar, deste botão de comando:

Dim x,y,z,k As Integer

x=12
y=15
z=20
k=15

If x<y Then
   MsgBox "x é menor do que y."
Else
   MsgBox "x é maior do que y."
End If

If y<x Then
   MsgBox "Y é menor do que x"
Else
   MsgBox "Y é maior do que x"
End If

If y<=k Then
   MsgBox "y é menor ou igual à k"
Else
   MsgBox "Y é maior do que k"
End If

If x<>z Then
   MsgBox "x e y são diferentes"
End If

  • Após digitar o código Feche o Ambiente de Desenvolvimento;
  • Salve o Formulário;
  • Vá para o modo Formulário e dê um clique no botão "ExOperadoresAritméticos";
  • Será exibida a seguinte mensagem:


Figura 149 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 150 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 151 – Mensagem.

  • Dê um clique no botão OK.
  • Será exibida a seguinte mensagem:


Figura 152 – Mensagem.

  • Dê um clique no botão OK.
  • Você estará de volta ao formulário teste.
  • Mantenha-o aberto para os próximos exemplos.

O uso de Operadores de comparação, amplia o leque de possibilidades para nossos programas em VBA. Devemos ter alguns cuidados quando comparamos variáveis que possuem valores de tipos diferentes, como por exemplo, número e texto. A Tabela a seguir descreve o que acontece, quando comparamos variáveis com valores de tipos diferentes.

Tabela - Comparando valores de tipos diferentes.

Com a utilização dos operadores aritméticos e de comparação, ampliamos bastante o leque de opções, na criação de códigos com o VBA. No próximo item, veremos alguns detalhes sobre “Escopo” de variáveis.
« Anterior Δ Página principal ¤ Índice Próxima »

ESTA LIÇÃO FAZ PARTE DO SEGUINTE LIVRO DO JÚLIO BATTISTI:

 

Se você não quiser aguardar até que todas as lições sejam publicadas aqui no site (previsão de conclusão para o final de 2017), você pode ter acesso a todas as lições comprando o livro a seguir e ainda receber, de bônus, mais de 37 horas de Vídeo Aulas de Access.

 

Aprenda com Júlio Battisti: Access 2007 Avançado,

Macros e Introdução à Programação VBA

  • Crie campos calculados, critérios avançados e Consultas Parametrizadas.

  • Aprenda os comandos SQL em detalhes.

  • Criação e Utilização de Macros.

  • Configurações de Segurança do Banco de dados.

  • Exemplos práticos explicados passo a passo.

  • Introdução à programação VBA com exemplos.

  • BôNUS: 37,5 horas de Vídeo Aulas de Excel e Acc.ess +  DVD com 3167 E-books + 2400 Planilhas Profissionais Editáveis do Excel de bônus.

Aprenda com Júlio Battisti: Access 2007 Avançado, Macros e Introdução à Programação VBA

Aprenda com Júlio Battisti: Access 2007 Avançado, Macros e Introdução à Programação VBA

Na compra deste livro você recebe, via Download, todos os Bônus a Seguir:

  • Bônus 01: Vídeo Aula: Access 2007 - Básico e Prático - 5:30 horas

  • Bônus 02: Vídeo Aula: Access 2007 - Consultas - 4:30 horas

  • Bônus 03: Vídeo Aula: Access 2007 - Intermediário - 5:00 horas

  • Bônus 04: Vídeo Aula: Access 2007 - Formulários e Macros - 6:00 horas

  • Bônus 05: Vídeo Aula: Access 2007 - Avançado e VBA - 11:30 horas

  • Bônus 06: Pacote com 3167 E-books com Cursos de Informática.


Livros e Vídeo Aulas sobre Banco de Dados:

A Bíblia de Banco de Dados SQL e o Modelo Relacional de Dados

Apre.nda com Júlio Battisti: Acc.ess 2010 Avançado, Macros e Programação VBA - Passo a Passo

Apre.nda com Júlio Battisti: Banco de Dados e Acc.ess 2010 - Através de Exemplos Práticos - Passo a Passo

[186 Vídeo Aulas em 3 DVDs - Frete Grátis]: Linguagem SQL + Banco de Dados + Análise e Modelagem de Banco de Dados - Curso Completo - 186 Vídeo Aulas - 3 DVDs

  [Vídeo Aula - Frete Grátis:] Oracle PL SQL Procedures Functions Triggers Forms Reports - Curso Completo - 182 Vídeo Aulas - 3 DVDs

Best Sellers de Access do Julio Battisti

Todos com Vídeo Aulas, E-books ou Exemplos de Brinde!

Programação VBA no Access 2010 - Exemplos Práticos - Passo a Passo

 Aprenda com Júlio Battisti: Access 2010 Básico em 140 Lições - Através de Exemplos Práticos

 

Autor: Júlio Battisti | Páginas: 1164 | Editora: Instituto Alpha

 

[Livro]: Aprenda com Júlio Battisti: Access 2010 Básico em 140 Lições - Através de Exemplos Práticos

Access 2010 Avançado, Macros e Programação VBA - Passo a Passo

Livro: Aprenda com Júlio Battisti: Access 2010 Avançado, Análise de Dados, Tabelas Dinâmicas, Funções Avançadas, Macros e Programação VBA - Passo a Passo

 

Autor: Júlio Battisti | Páginas: 828 | Editora: Instituto Alpha

 

Livro: Aprenda com Júlio Battisti: Access 2010 Avançado, Análise de Dados, Tabelas Dinâmicas, Funções Avançadas, Macros e Programação VBA - Passo a Passo

Todos os livros com dezenas de horas de vídeo aulas de bônus, preço especial (alguns com 50% de desconto). Aproveite. São poucas unidades de cada livro e por tempo limitado.

Dúvidas?

Utilize a área de comentários a seguir.

Me ajude a divulgar este conteúdo gratuito!

Use a área de comentários a seguir, diga o que achou desta lição, o que está achando do curso.
Compartilhe no Facebook, no Google+, Twitter e Pinterest.

Indique para seus amigos. Quanto mais comentários forem feitos, mais lições serão publicadas.

Quer receber novidades e e-books gratuitos?
›››

Novidades e E-books grátis

Fique por dentro das novidades, lançamento de livros, cursos, e-books e vídeo-aulas, e receba ofertas de e-books e vídeo-aulas gratuitas para download.



Institucional

  • Quem somos
  • Garantia de Entrega
  • Formas de Pagamento
  • Contato
  • O Autor
  • Endereço

  • Júlio Battisti Livros e Cursos Ltda
  • CNPJ: 08.916.484/0001-25
  • Rua Vereador Ivo Cláudio Weigel, 537 Universitário
  • Santa Cruz do Sul/RS
  • CEP 96816-208
  • Todos os direitos reservados, Júlio Battisti 2001-2017 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI