VBA Aplicado a Eventos Variáveis

Variaveis

Option Compare Database

Option Explicit 'è Obrigatorio declarar variavél

Dim A As String ' Variavél do Módulo

Public C As Byte 'Variavél publica funciona em todos os modulos

Const D As Date = #7/28/2011# 'Contante no Módulo

Public Const F As Integer = 1000 ' Constante Publica funciona em qualquer módulo

Sub ModoImplicito()

X = InputBox("Digite preço unitario")

Y = InputBox(" Digite quantidade")

Z = X * Y

MsgBox Z

End Sub

Sub VariaveisTexto()

Dim NomCli As String

Dim Ender As String

NomCli = "Seu nome"

Ender = "Seu endereço"

MsgBox "Nome: " & NomCli & vbCrLf & Ender

End Sub

Sub VariaveisTexto2()

Dim NomCli As String

Dim Ender As String

NomCli = InputBox("Digite o seu nome")

Ender = InputBox("Digite o seu endereço")

MsgBox "Nome: " & NomCli & vbCrLf & Ender

End Sub

'Valor é gerado e apagado.

Sub Dinamica()

Dim X As Byte

X = X + 1

MsgBox X

End Sub

'Valor permanece na memoria (Pouco utilizada)

Sub Estatica()

Static Y As Byte

Y = Y + 1

MsgBox Y

End Sub

Sub VariaveisData()

Dim DInicial As Date

Dim DFinal As Date

Dim Unidade As String

Dim Tempo As Integer

DInicial = InputBox("Digite a data inicial")

DFinal = InputBox("Digite a data final")

Unidade = InputBox("Digite a u,nidade para o tempo, D ou M ou YYYY")

Tempo = DateDiff(Unidade, DInicial, DFinal) ' funcao calcula diferença dt inicial e dt final

MsgBox Tempo

End Sub

Sub VariaveisNumeros()

Dim Vatual As Currency 'Recebe Valores monetarios

Dim Tjuros As Double ' Recebe muitas casas decimais

Vatual = 100

Tjuros = 0.1

Vatual = Vatual * (1 + Tjuros)

MsgBox " O valor a pagar é: " & Vatual

End Sub

Sub VariaveisBooleanas01()

Dim Situacao As Boolean

Situacao = False

If Situacao = True Then

MsgBox "Final d Semana"

Else

MsgBox "Treinamento Access"

End If

End Sub

Sub TesteDeVariavies()

Dim Var1 As String ' Texto

Dim Var2 As Byte ' Recebe numeros inteiros

Dim Var3 As Single ' Recebe decimais

Dim Var4 As Date ' Recebe Data no modo americano

Dim Var5 As Single

Dim Var6 As Boolean ' Recebe verdadeiro ou Falso.

 Var1 = " Impacta Tecnologia"

 Var2 = 10

 Var3 = 20.256

 Var4 = #1/17/2009#

 Var5 = Var2 * Var3 / 10

 Var6 = 0

MsgBox Var1

MsgBox Var2

MsgBox Var3

MsgBox Var4

MsgBox Var5

MsgBox Var6

End Sub

Sub TesteDeVariavies2()

Dim Var1 As String ' Texto

Dim Var2 As Byte ' Recebe numeros inteiros

Dim Var3 As Single ' Recebe decimais

Dim Var4 As Date ' Recebe Data no modo americano

Dim Var5 As Single

Dim Var6 As Boolean ' Recebe verdadeiro ou Falso.

 Var1 = " Impacta Tecnologia"

 Var2 = 10

 Var3 = 20.256

 Var4 = #1/17/2009#

 Var5 = Var2 * Var3 / 10

 Var6 = 0

MsgBox Var1 & vbLf & Var2 & vbLf & Var3 & vbLf & Var4 & vbLf & Var5 & vbLf & Var6

End Sub

Sub VariaveisObjeto()

Dim X As Object

Dim Y As Object

DoCmd.OpenForm "frmpadraoCidades", , , , acFormReadOnly, acHidden

Set X = Forms!frmpadraoCidades!Cidade

MsgBox X

End Sub

Sub Calculo01()

Dim Custo As Currency

Dim PrecoVendaAtacado As Currency

Dim PrecoVendaVarejo As Currency

Dim Marluc As Single

Marluc = 0.15

Custo = InputBox("Digite o preço de custo: ")

PrecoVendaAtacado = Custo * (1 + Marluc / 2)

PrecoVendaVarejo = Custo * (1 + Marluc)

MsgBox "O preço de venda no atacado: " & PrecoVendaAtacado & Chr(13) & "O preço de venda no varejo é: " & PrecoVendaVarejo

MsgBox "O preço de venda no atacado: " & Format(PrecoVendaAtacado, "R$ #,###.00") & Chr(13) & "O preço de venda no varejo é: " & Format(PrecoVendaVarejo, "R$ #,###.00")

End Sub

Sub Calculo02()

Dim numero As Single

'numero = 150 * 2 ^ 2 / 3.5

numero = 2 + 2 * 2

MsgBox "Resultado Final: " & numero

End Sub

Sub tabuada()

Dim A As Single

Dim I As Single

A = InputBox("Digite n º da Tabuada para ser visualizada ")

For I = 0 To 10 ' faça 0 a 10 I Vai acrescentando

  MsgBox (I * A)

Next

End Sub

Sub Operação()

Dim Op As Single

...