verificar no sistema se todos os campos no banco de dados foram preenc

[dsq 0]

Boa Tarde,Preciso fazer uma verificação no meu sistema, antes de gerar o arquivo, preciso consultar se todos os campos do Banco de dados foram preenchidos.Att,

[Jattobá 0]

dsq,pensando na sua pergunta, e já que temos a função de limpeza de campos, porquê não invertemos o retorno da mesma ?'Função para limpesa de camposPublic Sub Limpa_campos(Tela)Dim controle As ControlFor Each controle In Tela.Controls	If TypeOf controle Is txt Then controle.Text = 0	If TypeOf controle Is txt Then controle.Text = ""	If TypeOf controle Is TextBox Then controle.Text = ""	If TypeOf controle Is ComboBox Then controle.ListIndex = -1	If TypeOf controle Is CheckBox Then controle.value = 0	If TypeOf controle Is OptionButton Then controle.value = False	Next controleEnd SubFunção Verifica campos com  a mesa idéia, agora é somente estabelecer alguns critérios de melhoria. Tive essa idéia e estarei trabalhando nela, visto que será uma função que economizará bastante linhas de códigos de validação e memória.Pode ser chamada a partir do seu form:Call Verifica_campos(Me)'Função para Verifica camposPublic Sub Verifica_campos(Tela)Dim controle As ControlFor Each controle In Tela.Controls	If TypeOf controle Is txt Then	   If controle.Text = 0 Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If	If TypeOf controle Is txt Then	   If controle.Text = "" Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If	If TypeOf controle Is TextBox Then	   If controle.Text = "" Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If	If TypeOf controle Is ComboBox Then	   If controle.ListIndex = -1 Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If	If TypeOf controle Is CheckBox Then	   If controle.value = 0 Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If	If TypeOf controle Is OptionButton Then	   If controle.value = False Then		  MsgBox "Campo está vazio"		  controle.SetFocus	   End If	End If		Next controleEnd Sub

[dsq 0]

Caro Jattobá,Na verdade, precisaria verifica depois que os dados foram inseridos no banco. Uma verificação para gerar o executavel.Acabei utilizando uma Procedure para realizar essa verificação.Muito Obrigado pela atenção.

[luiz humberto 0]

Não faz muito sentindo verificar depois que preencher, sendo que antes de inserir há como se fazer, agora caso a inserção não se dê somente através do teu sistema, sendo assim há uma necessidade de verificar.Utilize um RecordSet, após isso faça uma estrutura de repetição e verifique se os campos estão vazios, ou então, faça uma Query que retorne os registros nulos (Utilize Is Null), ou seja, a primeira opção irá todos os registros e depois fará a verificação, na segunda serão retornados os registros em vazios, não sendo necessário realizar a verificação.PS: Lembrando que aqueles campos que podem ser nulos serão retornados, verifique então quais deles não podem ser nulos. Outra maneira é fazer essa restrição no banco de dados, mas caso existem registros não será possível, enquanto não corrigir as inconsistências.