Como eu verifico se todos os campos do meu formulário estão prenechidos???

O meu formulário só vai mandar os dados para o banco de dados se todos os campos estiverem preenchidos.

Qual código eu devo usra???

Quem puder dar uma força manda o código aí!

Valeu!!!

É a mesma coisa do Limpa lembra?

 

Private Function F_VerificaCampo () As Boolean

 

F_VerificaCampo = True

 

For i% = 0 to me.controls.count -1
    if typeof me.controls(i%) is ComboBox then
      if me.controls(i%).text = "" then F_VerificaCampo = False: exit function
    end if
next i%

 

End Function

 

Para usar só faça um if chamando a função:

 

IF NOT F_VerificaCampo Then

   MsgBox "Há campos não preenchidos!!"

ELSE

   'Faz o q vc quer

ENDIF

 

Entendeu??

 

at+ :)

Desculpa perguntar quase a mesma coisa outra vez. Mais é que o código não estava funcionando mas agora problema resolvido

Muito obrigado ghost_jlp