Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Validar ao sair do campo-textbox do access-exemplo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

21042011

Mensagem 

Validar ao sair do campo-textbox do access-exemplo






Seção de origem no Blog: Validação


Olá, Sucesso a todos!

Imagine que tens um campo e queres que este campo não fique em branco. O código abaixo tem esse propósito, ou seja, o usuário só conseguirá passar ao próximo campo se preencher o campo atual, veja e observe os comentários que estão na cor verde.

Coloque este código no evento ao sair do campo:

Private Sub Texto0_Exit(Cancel As Integer)
'Este if verifica o controle que está o foco
If IsNull(Me.ActiveControl) Then

'Se percebe que ele está nulo, então cancela qualquer que seja a ação
DoCmd.CancelEvent

'E emite a mensagem ao usuário do computador, dizendo que o campo não pode ficar vazio
MsgBox "Caixa de texto não pode ficar vazia, digite alguma coisa", vbInformation, "Atenção"
End If

End Sub


Agora, digamos que queres que o usuário tenha opções: de continuar sem preencher ou, retornar e realizar o preenchimento, então utilizaremos um código que verificará e se estiver vazio ou em branco, o sistema irá emitir uma mensagem, juntamente com as opções para o usuário escolher: Seguir em frente ou cancelar e realizar a digitação, veja:

Coloque no evento ao sair do campo:

Private Sub Texto2_Exit(Cancel As Integer)
'Este if verifica o controle que está o foco, se estiver nulo ou em branco então
If IsNull([Texto2]) Or IsEmpty([Texto2]) Then

'Dispara uma mensagem ao usuário do computador para que ele tome uma decisão. Se ele escolher Ok, então passa a frente
If MsgBox("Este campo é recomendado o preenchimento." & Chr(13) & _
"Deseja não preencher agora e preenchê-lo em outro momento?", vbExclamation + vbOKCancel, " Atenção !!!") = vbOK
Then Exit Sub

'Se escolher e apertar Cancelar, então o foco direciona para caixa de texto (Texto2)
Me.Texto2.SetFocus
Cancel =
True
End If
End Sub


Nota: nas duas situações você não precisará incluir o inicio "Private Sub" e o final "End Sub". Isso o VBA já escreve por padrão quando se inicia a escrita de um código no editor

Abaixo faça o download do exemplo que mostra as duas maneiras descritas acima:
Download

Até mais ver!



avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

Validar ao sair do campo-textbox do access-exemplo :: Comentários

Mensagem em Sab 16 Jul 2011 - 16:36 por bobmore

óla amigo sou iniciante em access , gosteir muito da sua dica sobre Validar Textbox

Voltar ao Topo Ir em baixo

avatar

Mensagem em Ter 19 Jul 2011 - 18:53 por Dilson

Oi bobmore, seja bem vindo a esta casa. Ela fica ainda mais forte quando recebe um comentário como esse seu.

Dia após dia, espero reunir aqui neste blog, materiais importantissimos à formação de um Programador Access.

Origado por fazer parte.

Voltar ao Topo Ir em baixo

Mensagem em Ter 19 Jul 2011 - 23:45 por algoncalves

Dilson, boa noite!!!

Era o que está precisando!!!

Voltar ao Topo Ir em baixo

avatar

Mensagem em Qua 20 Jul 2011 - 8:06 por Dilson

Oi algoncalves, seja bem vindo ao Blog.

Se lhe atendeu, fico contente.

Obrigado por estar aqui.

Voltar ao Topo Ir em baixo

Mensagem em Dom 23 Out 2011 - 13:11 por jar.rodrigues

Gostei do exemplo.
Em algumas vezes o usuário do sistema deixa campos em branco (pula campos) e neste caso, se não estiver no foco não irá rodar o código.

Tem como inserir um código comum para todos os textbox sem ter que copiar para cada um deles?

Grande abraço

Voltar ao Topo Ir em baixo

avatar

Mensagem em Qui 27 Out 2011 - 11:47 por Dilson

Oi jar.rodrigues, seja bem vindo a esta casa.

Podes usar num botão:
***************************
If IsNull(SeuCampo) Then

nComando

ElseIf IsNull(SeuOutroCampo) Then

nComando

*******************************

Aqui no blog tem algo falando, veja:
Validação de campo de preenchimento obrigatório no formulário access

Também podemos usar um código para percorrer todos os controles. Vou pesquisar para escrever sobre e aviso aqui pra você.

Voltar ao Topo Ir em baixo

Mensagem  por Conteúdo patrocinado

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum