[Resolvido]Verificação de campo vazio

Olá pessoal!!!

Estou precisando de um auxilio em um código. Acontece que eu preciso que meu formulário verifique se tem algum campo vazio e me informe que existem campo(s) vazio(s).
Eu uso um código que verifica pela TAG, mas o problema é que utilizando o código que tenho atualmente o formulário acaba verificando todos os controles mesmos os que eu não quero no caso os ocultos.

Queria saber se existe alguma forma de verificar apenas os controles que eu quero e se é possivel aparecer apenas uma mensagem avisando que tem campos vazios no form. O código que uso atualmente é o abaixo:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then

If IsNull(ctl.Value) Or IsEmpty(ctl.Value) Then
MsgBox "O campo '" & ctl.Tag & "' é obrigatório"
DoCmd.CancelEvent
ctl.SetFocus
End If
End If
Next
End Sub

Desde já agradeço a ajuda de todos!!!
Att,
David

Vá ao repositório de códigos que tem lá exemplos para fazer essa verificação.

Ok Viera, vejo hoje a noite pois a segurança da informação aqui da empresa está bloqueando o servidor onde estão hospedados os arquivos do repositório.

Obrigado!

Aqui tem:

Preenchimento Obrigatório de Campos TextBox no Formulario

Todos os campos terão de ter o nome dos mesmos, nas propriedades, Aba Outros, Linha Marca (Tag).

Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next
End Function

Private Sub SeuBotão_Click()
Call ValidaPreenchimento
End Sub

Procurando aqui no forum acabei achando esse código passado pelo JPaulo que faz a verificação somente dos campos que você desejar.

Public Function valNullControl(frm As Form)
Dim ctl As Control
Dim minhaArray As String
Dim validacaoOk As Byte

validacaoOk = 0

For Each ctl In frm.Controls
If ctl.Tag <> Null Or ctl.Tag <> "" Then
ctl.BackColor = 16777215
End If
Next ctl

For Each ctl In frm.Controls
If ctl.Visible = True Then
If ctl.Tag <> Null Or ctl.Tag <> "" Then
If IsNull(ctl) = True Or ctl = "" Then
ctl.BackColor = 161616
validacaoOk = 1
minhaArray = minhaArray & ctl.Tag & ", "
End If
End If
End If
Next ctl
If validacaoOk = 1 Then MsgBox "Campo Obrigatório: " & minhaArray

End Function


No seu código ficará assim:

Private Sub Adicionar_Click()

Dim db As Database
Dim rs As Recordset

If MsgBox("Gravar registro?", vbYesNoCancel, "Opções") = vbYes Then

If valNullControl(Me) = False Then
Exit Sub
End If

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblClientes", dbOpenTable)
rs.AddNew


Obrigado!!!

Obrigado pelo retorno o fórum agradece

Davidapcon, e onde eu adiciono os campos que eu quero que ele verifique ai no código?

gostaria de saber também

Obrigado

Olá diogo,

Outra sugestão:

https://www.maximoaccess.com/t24981-funcao-para-verificar-campos-vazios-personalizada

quando insiro o código aparace erro em tempo de execução - diz voçe inseriu um expressão que contem uma ref. invalida a propriedade visible

criei um modulo e coloquei a funçao publica. e depois dentro do meu form no botao salvar fiz a chamada.

??????????

depurador: If ctl.Visible = True Then

alguém pode explicar melhor como inserir este código??? desde já agradeço!!!! estou precisando muito para enxugar os códigos inserido no form.

Como utilizar a Mensagem nº 5 (Muito bom por sinal):

PROPRIEDADES > Aba OUTRA > Em "Marca"
Coloque 1 nos campos obrigatórios

DICA
O código deve ser reformatado quanto às cores e qndo retirar estas cores, exemplo:
Troque: ctl.BackColor = 16777215 por ctl.BorderColor = RGB(217, 217, 217)
e ctl.BackColor = 161616 por ctl.BorderColor = RGB(204, 0, 0)

RGB(217, 217, 217) -> cinza (padrão Access)
RGB(204, 0, 0) -> vermelho