Visual Basic for Applications é uma linguagem de script da Microsoft para a sua suíte de programas Office , que inclui Access. Parte da programação com VBA envolve o trabalho com objetos virtuais , como o objeto de banco de dados que contém os dados de sua equipe de trabalho. Cada objeto tem propriedades que você pode ler e muitas vezes criados para gerenciar as características do objeto. Por exemplo, você pode verificar a propriedade "Tipo" de um objeto de campo para ver se o campo for numérico , alfabético ou algum outro tipo . Verificando uma propriedade oferece programas VBA com as informações de tempo de execução de que necessitam para gerenciar os dados de sua equipe . Coisas que você precisa
Microsoft Access
Mostrar Mais instruções
um

Open Access , em seguida, criar uma nova tabela chamada " tabela 1 " com duas colunas: " campo1 " e " campo2 ". Você vai escrever um programa VBA para verificar as propriedades de uma dessas colunas , ea propriedade de um controle de caixa de seleção.
2

Crie um formulário baseado na " Tabela 1 ", clicando no botão " Form" no menu "Criar" .
3

botão direito do mouse guia do novo formulário e selecione " Modo Design ", em seguida, clique no controle "checkbox" na Faixa de Opções ( a grande barra de ferramentas) . Arraste na área de " Form Header " para criar a caixa de seleção.
4

botão direito do mouse na caixa de seleção e selecione "Propriedades ", digite " justread " no campo "Nome" do "Outro" aba à direita da tela . Essa ação define o nome de uma caixa de seleção , cujo "valor" propriedade que você vai verificar em código VBA.
5

Clique no botão " ... " botão no campo "Evento" da aba " OnClick " . Dê um duplo clique em " construtor de código " para entrar no ambiente de desenvolvimento integrado Visual Basic for Applications (IDE)
6

Cole o seguinte código entre o " Private Sub " e "End Sub " declarações : .

Private Sub justread_Click ()

comigo! campo1

Se me! justread.value = True Then

. Ativado = False

. Fechado = verdadeira

Else

. Ativado = True

. Bloqueadas = False

End If End With

End Sub

Esta sub-rotina verifica o " justread " "valor" propriedade do controle para o valor " verdadeiro" . Se o " valor " é verdadeira , a sub-rotina desativa a entrada do usuário na caixa de texto " campo1 " .
7

Pressione " Alt- F11 " para voltar ao Access, em seguida, clique com o botão direito na aba do formulário. Selecione "Form View" para executar o formulário .
8

Digite o texto no campo " campo1 " , em seguida, marque a caixa de seleção no topo da forma. Tente digitar mais texto no campo " campo1 " . A sub-rotina VBA que você digitou vai impedir a entrada , com base no valor de "valor " propriedade da caixa de seleção.
9

botão direito do mouse a tabela do formulário e selecionar vista " Design" . Digite novamente a IDE clicando no botão " ... " . botão no campo " justread " da caixa de seleção " OnClick " , como você fez no Passo 5
10

Substitua a sub-rotina " justread_Click " com este código revisto :

Private Sub justread_Click ( )

comigo! campo2

Se . BackColor = 16777215 Então

. BackColor = 13597561

Else

. BackColor = 16777215

End If End With

End Sub

Esta rotina verifica a propriedade cor de fundo (chamado " BackColor " ) do segundo campo . O programa , em seguida, muda que a propriedade se a cor é branca.
11

Pressione " Alt- F8 " para voltar ao Access, em seguida, execute novamente o formulário usando Passo 7 de instruções .
12

Verifique e desmarque a caixa de seleção. O programa que você revista vai mudar a cor de fundo " campo2 ".