[Resolvido]Preenchimento obrigatório de campos.

Olá,

Tenho um formulário "cadastro de cliente" e preciso que quando estiver cadastrando os devidos dados do cliente nos campos, caso eu venha a esquecer de preencher algum desses. O access informe um "aviso" qual o campo que falta ser preenchido e que não permita cadastrar outro cliente caso o cadastro do cliente anterior/atual, seja efetivamente completado.


Desde já, obrigado pela atenção.

O melhor é você colocar a propriedade "Preenchimento obrigatório" como Sim na tabela, principalmente se for formulário vinculado. Se for desvinculado, aí pode ser melhor via vba. Sendo poucos campos, pode colocar assim no evento do botão:

If IsNull(Me.NomeCampo1) Or Me.NomeCampo1.Value = "" Then
MsgBox "O campo ""NomeCampo1"" é de preenchimento obrigatório.", vbOkOnly+vbCritical, "Atenção"
Me.NomeCampo1.SetFocus

ElseIf IsNull(Me.NomeCampo2) Or Me.NomeCampo2.Value = "" Then
MsgBox "O campo ""NomeCampo2"" é de preenchimento obrigatório.", vbOkOnly+vbCritical, "Atenção"
Me.NomeCampo2.SetFocus

...

End If

Se a quantidade de campos for muito grande, melhor criar uma função para percorrer todos os campos obrigatórios.

Muito obrigado!

Era exatamente o que estava precisando.



Abraços.

Obrigado pelo retorno. Só faltou clicar no botão Resolvido bem ali embaixo, ao lado do título do tópico e imediatamente acima de onde se clica para enviar a mensagem.

Boa Noite, Criquio

Estou iniciando em programação em access, e não estou conseguindo enteder como usar o seu exemplo.

If IsNull(Me.NomeCampo1) Or Me.NomeCampo1.Value = "" Then
MsgBox "O campo ""NomeCampo1"" é de preenchimento obrigatório.", vbOkOnly+vbCritical, "Atenção"
Me.NomeCampo1.SetFocus

ElseIf IsNull(Me.NomeCampo2) Or Me.NomeCampo2.Value = "" Then
MsgBox "O campo ""NomeCampo2"" é de preenchimento obrigatório.", vbOkOnly+vbCritical, "Atenção"
Me.NomeCampo2.SetFocus

...

End If

Como devo usar como botão ou validação um por cada campo.

Desde já, obrigado pela atenção.

É só mudar NomeCampo1 para o nome do primeiro campo e NomeCampo2 para o nome do segundo campo. Podes acrescentar quantos outros campos precisar, cada um dentro de um bloco If ou ElseIf

Ok, Entendi,

Obrigado Valeu ajuda....

Boa Noite, Criquio

Mais uma duvida, como faço para não sair do campo sem o preenchimento obrigatorio do Campo.

Private Sub Placa_LostFocus()

If IsNull(Me.Placa) Or Me.Placa.Value = "" Then
MsgBox "Placa é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Placa.SetFocus

End If
End Sub

Desde já, obrigado pela atenção.

Para não permitir que o usuário saia do campo sem preenchê-lo, mude o código para o evento "Ao sair" do campo, ao invés do "Ao perder o foco". Mas atente para o fato de que, com o código nesse evento, realmente se tornará obrigatório preenchê-lo, pois caso contrário, o usuário jamais sairá dele.

Ok, mais é bem isso que preciso, que bloquei o campo até o preenchimento.

Valeu, Obrigado

boa noite pessoal

eu tentei adaptar o codigo mas nao consegui
no meu form tem os campos:
caixa de seleçao: nome STATUS
campo de data: nome dtFaturamento

no caixa de seleçao status tem 4 itens.. processando, aguardando produto, cancelado, faturado

quero que quando mudem o status para "faturado" o focu vá para dtFaturamento que sera obrigatorio o usario por.

como adapto esse codigo pra usar no meu form?

abraço