VBA Aplicado a Eventos Variáveis
Por: Nair Pereira Silva • 2/4/2015 • Projeto de pesquisa • 811 Palavras (4 Páginas) • 487 Visualizações
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
...