VBA Aplicada a Eventos

Macro

[pic 1]

Convertendo macros em VBA

[pic 2]

[pic 3]

Janela do VBA

[pic 4]

Obs -  Modulo de classe serve somente para formulários e relatórios.

        Modulo padrão – para o banco de dados inteiro.

Acionando Janela de propriedades

[pic 5]

Acessando VBA

[pic 6]

Ou atalhos  -  ALT + F11

Codificando.

Renomeando um módulo

[pic 7][pic 8][pic 9]

Option Compare Database

Compara todos os caracteres digitados com o banco de dados o windowns.

Facilita na digitação em reconhecer caracteres.

No VBA

Sub teste_01() ' esta é uma rotina sub-rotina de VBA

'comentário inicial do meu VBA

Call teste_02

MsgBox " Voltando a Executar o teste_01" _

& Chr(13) & " linha de baixo"

End Sub

Sub é utilizada para informar qual é um procedimento Ex: Procedimento_01()

End Sub – Finaliza o procedimento

‘ apóstrofe é comentário no VBA

Call   = Chamar – responsável por chamar outra função.

No VBA toda a linha de comando deve estar na mesma linha , mas para evitar  esse problema de linhas de códigos enormes utilizar  espaço_ ele reconhece que a linha de baixo faz parte do comando.

&  - concatenador , geralmente o  VBA apresenta possíveis erros com os concatenadores , para evitar erros na linha de código deve-se incluir espaço$ espaço , isso corrige.

Comando para pular de linhas dentro de uma caixa de texto.

VbCrLf

VbLF

Chr(13)

Exemplos de como utilizar informações

'Exemplos de como utilizar as informações

MsgBox " Hoje é domingo"

MsgBox 12346

MsgBox 123.456 'Usar ponto para decimal

MsgBox #12/25/2009# 'uSAR MM/DD/AA

MsgBox #3:15:00 PM#

MsgBox (((2 + 3) - 4) / 5) * 6

MsgBox Date

MsgBox Time()

MsgBox "Data:" & Date & _

vbLf & "Horario:" & Time()

Formatações

Obs(A primeira instrução é o que eu quero formatar a 2ª  é de qual maneira.[pic 10][pic 11]

MsgBox Format(Time, "short time")

MsgBox Format(Time, "long time")

MsgBox Format(Date, "short date")

MsgBox Format(Date, "ddd/mmmm/yyyy")

MsgBox Format(53459.45698, "#,###.00")

MsgBox Format(11.75, "000.000")

MsgBox Format(0.0005, "0.00%")

MsgBox Format("OLA", "<")

MsgBox Format("Isto e tudo", ">")

End Sub

Metodo – è uma ação

Propriedade  - Algo do

Executa comandos

Comando , Ação , Modo de exibição ,   ,   ,  modo de segurança , abertura da janela[pic 12][pic 13][pic 14][pic 15][pic 16]

DoCmd.OpenForm "frmpadraocidades", acNormal, , , acFormReadOnly, acDialog

DoCmd.OpenReport "rprpadraopedidos", acViewPreview, , , acDialog

DoCmd.OpenRunSQL "insert into tblcidades(cidade,uf,pais) values('moscou','gg','Rússia')"

End Sub

Esse código informa o nome do formulário aberto. A definição do nome é de acordo com a ordem de abertura  dos formulários

Abri o formulário X  - o nome dele é 0 ... abri formulário X2 – o Nome dele é 1

...