Campo C/ Preenchimento Obrigatório - (personalizado), preenchimento obrigatório - (Personalizado) Opções

[eduardofbezerra]

Antes de tudo você precisa nomear sua combo box. Ex: Combo
Após isso insira o código em algum evento, como "Ao Descarregar" do Formulário.

CODE

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Combo) Then
    MsgBox "Campo TAL não pode ficar vazio.", vbInformation, "Alerta!"
    Combo.SetFocus
    Cancel = -1
End If
End Sub

Outra dica para validação de um campo:
Vai em Propriedades do Campo - Dados - Regra de Validação - Digite: NOT IS NULL
Texto de Validação: Necessário digitar um valor !

Muito obrigado mesmo pela ajuda, valew mesmo.

[Roberto Pires]

Antes de tudo você precisa nomear sua combo box. Ex: Combo
Após isso insira o código em algum evento, como "Ao Descarregar" do Formulário.

CODE

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Combo) Then
    MsgBox "Campo TAL não pode ficar vazio.", vbInformation, "Alerta!"
    Combo.SetFocus
    Cancel = -1
End If
End Sub

Outra dica para validação de um campo:
Vai em Propriedades do Campo - Dados - Regra de Validação - Digite: NOT IS NULL
Texto de Validação: Necessário digitar um valor !

[eduardofbezerra]

Olá,

Para publicar sistema exemplos é só entrar em cotato com o Amaral.
amaral@ativoaccess.com.br

Boa tarde,

tenho uma duvida, como faço para esse codigo abaixo funcionar em uma "caixa de combinação" pois esta dando erro SeuCampo.SetFocus, por favor me ajude.


If ISNull(SeuCampo) then
MsgBox "Campo TAL não pode ficar vazio.", vbInformation,"Alerta!"
SeuCampo.SetFocus
Cancel = -1
End if

[Nelson Sousa]

Olá,

Para publicar sistema exemplos é só entrar em cotato com o Amaral.
amaral@ativoaccess.com.br

[eduardofbezerra]

Olá,
Use o código que te passei abaixo no evento BeforeUpdate do formulário, não do campo. Funciona legal.

If ISNull(SeuCampo) then
MsgBox "Campo TAL não pode ficar vazio.", vbInformation,"Alerta!"
SeuCampo.SetFocus
Cancel = -1
End if

Boa tarde,

Nelson, o Banco esta quase pronto Graças a vocês, se quizer que eu coloque ele em algum lugar aqui para as pessoas baixarem, me fala ok, valew por tudo

[eduardofbezerra]

rsrsr, ai vc me pegou, como faço isso! nem sei por onde começar rsrsrs

Aeeeeeeeee, consegui agora foi certin, rsrsr, Obrigado pela Ajuda de vocês, agora vou fazer outro topico referente a mensagem de quando esta duplicado kkk, Nelson você é o Kara!!!

[Nelson Sousa]

Olá,
Use o código que te passei abaixo no evento BeforeUpdate do formulário, não do campo. Funciona legal.

If ISNull(SeuCampo) then
MsgBox "Campo TAL não pode ficar vazio.", vbInformation,"Alerta!"
SeuCampo.SetFocus
Cancel = -1
End if

[eduardofbezerra]

Estive dando uma olhada,

O BeforeUpdate a que me referí é o do formulário e não do campo.
Porém acho que sew você utilizar a mensagem da regra de validação lá na estrutura da tabela será mais fácil pra vc.

rsrsr, ai vc me pegou, como faço isso! nem sei por onde começar rsrsrs

[Nelson Sousa]

Estive dando uma olhada,

O BeforeUpdate a que me referí é o do formulário e não do campo.
Porém acho que sew você utilizar a mensagem da regra de validação lá na estrutura da tabela será mais fácil pra vc.

[eduardofbezerra]

Nada, ficou na mesma deu o mesmo erro.

Então, fiz o que, tirei o "NUMERO_PAX.SetFocus" ai foi, mais não esta aparecendo a mensagem se eu deixar o campo vasio so se eu entrar nele e sair.

[eduardofbezerra]

Olá,

Experimente colocar o comando Me.Undo antes da linha grifada em amarelo.

Nada, ficou na mesma deu o mesmo erro.

[Nelson Sousa]

Olá,

Experimente colocar o comando Me.Undo antes da linha grifada em amarelo.

[eduardofbezerra]

Opa,

Desculpa, Cancel = -1..tem um sinal de igual aí.

Agora sim, apareceu a mensagem que tem que aparecer, mais quando dar "Ok"

da esses seguintes erros. estamos indo bem rsrsrs, falata pouco.
(IMG:http://www.shangri-la.tur.br/download/internacional/ERRO03.jpg)

(IMG:http://www.shangri-la.tur.br/download/internacional/ERRO04.jpg)

[Nelson Sousa]

Opa,

Desculpa, Cancel = -1..tem um sinal de igual aí.

[eduardofbezerra]

Isso mesmo.

rsrsrs, agora deu esse erro, estou chegando lá eu acho kkkk

(IMG:http://www.shangri-la.tur.br/download/internacional/erro02.jpg)

[Nelson Sousa]

Isso mesmo.

[eduardofbezerra]

Olá,

Você está digitando no local errado.
Dê 2 clicks na linha onde você fez essa digitação aí e escolha "Construtor de Código". Aí sim, você digita o comando.

OK, Agora vamos para 2º parte esse tambem sera inserido no "Construtor de Código"?


If ISNull(SeuCampo) then
MsgBox "Campo TAL não pode ficar vazio.", vbInformation,"Alerta!"
SeuCampo.SetFocus
Cancel -1
End if

[Nelson Sousa]

Olá,

Você está digitando no local errado.
Dê 2 clicks na linha onde você fez essa digitação aí e escolha "Construtor de Código". Aí sim, você digita o comando.

[eduardofbezerra]

rsrsrs...uma coisa bem interessante vc disse, UM PROGRAMA PRONTO?!?!?!?!
É a primeira vez que vejo um...hehehehe....brincadeirinha!!!

A imagem tá muito pequena e não deu pra ler direito mas parece que o erro tá na digitação do comando:
DoCmd.SetWarnings False

Cofere aí.

1º parte. Esse codigo: (DoCmd.SetWarnings False) tem que ser digitado aqui
(IMG:http://www.shangri-la.tur.br/download/internacional/caixa.jpg)

veja se estou fazendo certo?

Depois vamos para 2º parte. rsrsrs

[Nelson Sousa]

rsrsrs...uma coisa bem interessante vc disse, UM PROGRAMA PRONTO?!?!?!?!
É a primeira vez que vejo um...hehehehe....brincadeirinha!!!

A imagem tá muito pequena e não deu pra ler direito mas parece que o erro tá na digitação do comando:
DoCmd.SetWarnings False

Cofere aí.