[Resolvido]Retornar Nome de Campos Nulos

Boa tarde...

Preciso saber o nome dos campos que estão vazios em uma Msgbox, se alguém puder me ajudar, ficarei muito grato.

Reinaldo-AS

Ola Reynaldo,

Segue um pequeno exemplo de cadastro de cliente que criei, onde no botão "Salvar" executa um procedimento que verifica e valida se os campos estão preenchidos.



Segue o sistema de exemplo.

Na modo estrutura do "frmCliente", no procedimento de evento do botão "Salvar", existe a chamada da função "ValidaCampos()", que faz a validação de alguns campos da tela.
Ai vc pode incrementar esta função no teu sistema de acordo com tua necessidade.

Espero ter ajudado.

Um abraço.

Caro amigo Alexandre,

Obrigado por me responder...

O exemplo exemplo não veio anexado, esse código deve me ajudar bastante.

Por se tratar de um form para coleta de dados com uma quantidade extensa de campos (Ministério da Saúde)
As vezes não tenho tempo para percorrer todos os campos no momento, teria como eu colocar essa msg em um botão de comando para exibir os nomes dos campos que faltam para serem preenchidos, aí posso ver se os campos mais importantes estão devidamente preenchidos.

Se puder me ajudar, ficarei muito grato.


Reynaldo-AS

Reynaldo, me desculpe !!!!

Segue anexo.

Att,

Alexandre

Boa noite,

Obrigado pelo retorno Alexandre,

Esse seu código me será muito útil, mas e preciso mesmo é listar no nome dos campos que faltam preenchimento em um caixa de texto por se tratar de um form extenso com muitos campos como eu referi na msg anterior.


Este exemplo lista todos os campos em uma mensagem, eu preciso que liste somente os campos nulos se puder me ajudar ficarei grato.





Sub MostraCampos(strTabela As String)
'criado por Alexandre Neves Em 2011-05-15 para Domingos do fórum MaximoAccess

Dim I As Integer
Dim F As String

F = ""

For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
F = F & "," & CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
Next
MsgBox Right(F, Len(F) - 1) 'Remove a ,Anes do Primeiro Campo

End Sub


Private Sub Comando34_Click()
MostraCampos ("TblClientes")
End Sub

Reynaldo,

Fiz as alterações no exemplo que te mandei. Segue em anexo.

Segue abaixo alguns procedimentos para a função que valida campos nulos funcione corretamente.





Espero ter ajudado.

Abraço

Bom dia!!!

Ficou perfeito!!!

Muitíssimo obrigado, não sabe o tanto que vai me ajudar esse código.



Reinaldo-AS

Obrigado Alexandre

Ok!

OK Reynaldo...
Sucesso aí no seu trabalho...

Abraço