[Resolvido]Campo Obigatorio não pode ficar em branco

Olá amigos Professores ;

Eu tenho um assistente de pesquisa chamada "combinação20 que é o CodMunicipio no FrmCliente pois bem coloco o código abaixo no ao perder foco e nada acontece o led passa direto ele teria que ficar ali até ser preenchido será que errei algo no código ou na opção perder foco ?

If IsNull(Me.Combinação20) Or Me.Combinação20 = "" Then
MsgBox "Esse campo é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Combinação20.SetFocus
End If

Sueli, tente assim, colocando no campo seguinte.

If IsNull(Me.Combinação20.Value) Or Me.Combinação20.Value = "" Then
Me.Combinação20.SetFocus
MsgBox "Esse campo é de preenchimento obrigatório.", vbExclamation + vbOKOnly, "Atenção"
End If

Ólá Professor ;
Coloquei assim :
No FrmCliente na combox20 ao perder foco o seguinte código :

Private Sub Combinação20_LostFocus()
If IsNull(Me.Combinação20.Value) Or Me.Combinação20.Value = "" Then
Me.Combinação20.SetFocus
MsgBox "Esse campo é de preenchimento obrigatório.", vbExclamation + vbOKOnly, "Atenção"
End If
End Sub

Nada acontece o led passa pelo campo Combox20"Combinação20"

Testei do jeito que te mandei e funcionou de tal forma que creio que te atenda!

Olá Sueli,
Creio que a solução do Clinton seja mais apropriada, pois, se você vincular o código à combo, necessariamente o usuário teria que passar por aquele campo para o mesmo "perder o foco". Mas e se o usuário não passar por aquele campo?
Talvez o ideal fosse implementar o código quando do salvamento do registro, para que, ao salvar, verificasse se a combo está preenchida.

Olá, permitam-me dar um pitaco.

Para caixas de combinação o correto seria:

Private Sub Combinação20_LostFocus()
If IsNull([Combinação20]) Or IsEmpty([Combinação20]) Then
MsgBox "Esse campo é de preenchimento obrigatório.", vbExclamation + vbOKOnly, "Atenção"
Me.Combinação20.SetFocus
Cancel = True
End If
End Sub

Abraços, WSenna

Olá amigo Professor ;

Uso Access 2013

FrmCliente  para analisar por favor

Coloquei o código no campo e no evento ao perder foco como esta ai no Orthos.accdb mas passa direto e deveria ficar parado o led no campo até ser preenchido

Sueli

Oi Sueli, meu Office é 2003.

Talvez isso possa estar dando erro.
No meu funciona perfeitamente.

Abraços, WSenna

Olá Sueli,
O problema foi resolvido?
Se sim, não esqueça de clicar no [Resolvido], para fechar o tópico.
Valeu.

If IsNull([Combinação20]) Or IsEmpty([Combinação20]) Then
MsgBox "Esse campo é de preenchimento obrigatório.", vbExclamation + vbOKOnly, "Atenção"
Me.Combinação20.SetFocus
Cancel = True
End If
End Sub

O código abaixo não funciona tem algo errado ? Por favor me ajudem
Quando eu estiver cadastrando meus clientes ao chegar nesse campo "Combinação20 ele não passe pelo campo até ser
puxado pela combinação o Municipio esse campo não pode sair dele sem ser preenchido.

Obs nada acontece passo pelo campo sem preencher quero que fique ali se estiver sem preenchimento

Sueli

Boa noite
sueli1947

Em que acontecimento tem o código?

Sueli

Coloque o código na propriedade ou evento Ao sair da caixa de combinação, assim
não sairá do campo.

Agora, se quiser fazer a consistência dos dados de todos os controles do formulário,
aqui está um exemplo.

[]'s

Noob

Uso o ACCESS 2013


A combinação20 assistente de pesquisa coloquei esse código mas o led passa direto e o campo fica sem preenchimento obrigatório,qaundo acabo de digitar o último campo ai vem aquele aviso do access que o campo não é possivel adicionar ou alterar registro,pois é necessário que eles tenham um rigistro relacionado na tabMunicipio  

Private Sub Combinação20_LostFocus()
If IsNull([Combinação20]) Or IsEmpty([Combinação20]) Then
MsgBox "Esse campo é de preenchimento obrigatório.", vbExclamation + vbOKOnly, "Atenção"
Me.Combinação20.SetFocus
Cancel = True
End If
End Sub

Sueli

O Access 2013 executa aplicativos/exemplos de versões anteriores.

Creio que o teu problema é de relacionamento, mas é apenas conjectura.

Sugiro, que anexe a(s) tabela(s) e formulário(s) em questão para analisarmos.

Antes de postar, por favor, converta o exemplo para o A2010.
O fórum só aceitar anexo de arquivos.zip, caso tenha o winrar, veja na minha assinatura como "zipar" arquivos com ele.

Noob

Sueli

É este o seu exemplo ?
Teste por favor e retorne.

O erro estava na tabela que tinha nessse campo um valor predefenido como 0 (zero), visto isto o campo nunca era nulo.

Olá mestre ;
Resolvido Obrigado mais uma vez

Tirei o Zero do campo em questão e deu certo obrigado muito obrigado.
Mestre Professor o Sr poderia olhar pra mim uma pendencia do FrmPedido que não puxa as tabPreço na hora de tirar o pedido.O banco de dados eu mandei para análise com o código que eu acho que ali esta o erro
Desde Já meus agradecimentos

Cordialmente



Sueli

Olá Sueli, boa noite.

Apenas com objetivos didáticos, veja isso:

Caso todos os campos de seu formulário tenha que ser obrigatoriamente preenchidos crie um módulo e cole o código abaixo:

Public Function CpoExigido(ByVal UmForm As Form) As Boolean

' Verifica se todos os controles Caixa de texto contém dados

Dim ctl As Control
Dim Num As Integer

On Error GoTo Err_CpoExigido

CpoExigido = False
Num = 0
For Each ctl In UmForm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl = "" Or IsNull(ctl) Then
Num = 1
Exit For
End If
End If
Next ctl
If Num = 1 Then
MsgBox "O campo " & ctl.Name & " está vazio." & vbCr & _
"Verifique e preencha.", _
vbInformation, "Faltam dados..."
CpoExigido = True
Else
CpoExigido = False
End If

Exit_CpoExigido:
On Error Resume Next
If Not (ctl Is Nothing) Then
Set ctl = Nothing
End If
Exit Function

Err_CpoExigido:
Select Case err
Case 0
Resume Next
Case Else
MsgBox err.Description, vbInformation, "Erro: " & CStr(err.Number)
End Select
End Function

Salve esse módulo como VerificaCampos

Depois no evento Antes de Atualizar de seu formulário coloque:

If CpoExigido(Me) Then Cancel = -1

Pronto, veja o que acontece caso você queira ir para um registro qualquer ou mesmo fechar o formulário.

Abraços, WSenna

WSena
Estava procurando alguma diga sobre campo(s) em branco e achei sua dica, achei excelente.
Gostaria que você me ajudasse em uma dúvida que é a seguinte

Na mensagem (MsgBox "O campo " & ctl.Name & " está vazio." & vbCr & _) que pega o nome do controle pegar o nome do Rótulo do controle?
Ex: Nome do Sócio:
MsgBox "O campo " & Nome do Sócio & " está vazio." & vbCr & _) que pega

Grande abraço
Sou grato pela atenção.