[Resolvido]Preenchimento obrigatório

Pessoal, preciso de um grande favor, pesquisei no forum mais não achei oque quero.

Preciso de um evento ao clicar do botão salvar que antes de ir para o novo registro marque com a Borda Vermelha os campos que estão em branco. Se caso estiver todos preenchidos ele avança para o novo.

Esta pesquisando de acordo com esse topico? https://www.maximoaccess.com/t1115-busca-no-forum-search

Pois existem alguns exemplos por aqui...

Veja esse aqui:https://www.maximoaccess.com/t26998-gravar-registo-apos-preencimento-do-ultimo-campo-de-um-formulario
Mensagem Nº 05, utilize o Codigo que postei la!

Se quer so a COR da BORDA destacada, mude:

de: ctl.BackColor = RGB(135, 206, 235)
para: ctl.BorderColor = vbRed

e
de: ctl.BackColor = RGB(255, 250, 250)
para: ctl.BorderColor = vbBlack

Funcionou como queria, porém campos com valores múltiplos ele da como nulo.
ex.: tenho uma caixa de combinação que posso selecionar vários valores, ao selecionar mais de na caixa de cominação ele não reconhece os valores e provavelmente julga o campo como nulo.

Posta aqui o Exemplo para que eu possa dar uma olhada!

Segue parte do database, e gostaria de tirar mais uma dúvida:
ele verifica todos campos, e preciso que ele não verifique um dos campos (não é obrigatório), teria como especificar esse campo?

Amigo, é muito Importante mantermos a AUTORIA dos códigos bem como a EDIÇÃO dos mesmo, para sabermos quem foi o autor e o que foi alterado...



Segue codigo Corrigodo de acordo com o que Precisa. Substitua o seu por esses, exatamente como está!  Observe que está ignorando o Campo Observação!

Código:


Public Function valNullControl(frm As Form)
'------------------------------------------------------------
'De JPaulo - adaptado por Márcio Melo
'VALIDAR OS CAMPOS DE UM FORM
'Editado por Fabio Paes 21/07/2016
    'Melhorado para ignorar os Botoes do Formulário, ignorar certos Campos e aceitar CboxMulti Seleção.
'------------------------------------------------------------
On Error Resume Next
Dim ctl As Control
Dim minhaArray As String
Dim validacaoOk As Byte
validacaoOk = 0

For Each ctl In frm.Controls

Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Visible = True And IsNull(ctl) And ctl.Name <> "txt_observacoes" Then
ctl.BorderColor = vbRed
ctl.SetFocus
validacaoOk = 1
minhaArray = minhaArray & ctl.Tag & ", "

Else
ctl.BorderColor = vbBlack
End If
End Select
Next ctl

If validacaoOk = 1 Then

valNullControl = True

End If
End Function



Ok, desculpe.
Oque foi feito referente a caixa de combinação?

If ctl.Visible = True And IsNull(ctl) Or ctl = "" Then

Removido a condicao Or...

Esse campo se comporta estranhamente diferente dos demais... tentei rodar comando Len() e ele retorna erro... Muito estranho.

Mas somente isso foi o suficiente.

Brilhante. Obrigado mais uma vez!

Valeu, atá a Proxima!