[Resolvido]checar valor campos

Boa noite! Estou tentando impedir que sejam salvos campos em branco no meu form. Pesquisando no forum, encontrei o código abaixo do amigo JPaulo disponibilizado pelo amigo Vieira:

Código:

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

Gostaria de saber como faço para verificar as caixas de combinação do form.
Tentei criar outra função e colocar junto no botão, mas fica um tanto estranho. Alguém teria alguma sugestão?
Agradeço imensamente a ajuda dos amigos!!

esta função é excelente no entanto prefiro fazer um a um pois em alguns projetos não exijo que verifique 100% dos campos

faço assim

Código:

if isnull(seucampo) then
msgbox "Campo Vazio"
me.seucampo.setfocus

elseif isnull(seucampo2) then
msgbox "Campo Vazio"
me.seucampo2.setfocus

elseif...


elseif...


else

docmd.save

msgbox "Salvo com Sucesso!"


end if

se atender ta na mão

Olá, a baixo segue a alteração solicitada, mas se você não tem muitos campos para verificar, vale apena fazer um a um como citado pelo nosso colega.

Código:


Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or acCombobox 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




Bom dia amigos! Muito obrigado pelas informações. Ambos os códigos funcionaram perfeitamente.

Obrigado pelo Retorno,

até a proxima.