[Resolvido]Verificar se uma caixa de combinação esta vazia

Pessoal,

Estou tentando verificar se os campos do meu formulário estão vazios e exibir uma mensagem caso isso aconteça.
O problema é que as caixas de combinação cmb_inicio e cmb_termino são consideradas como não vazias pelo procedimento.


Private Sub cmd_salvar_Click()

If txt_data.Value = "" Then
MsgBox "Informe a data da consulta"
ElseIf cmb_inicio.Value = "" Then
MsgBox "Informe o horário em que o procedimento deve começar"
ElseIf cmb_termino.Value = "" Then
MsgBox "Informe o horário previsto para término do procedimento"
ElseIf txt_pront.Value = "" Then
MsgBox "Informe o número do prontuário"
ElseIf txt_paciente.Value = "" Then
MsgBox "Informe o nome do paciente"
ElseIf txt_procedimento.Value = "" Then
MsgBox "Informe a descrição do procedimento"
ElseIf txt_profissional.Value = "" Then
MsgBox "Informe o nome do profissional"
ElseIf txt_resp.Value = "" Then
MsgBox "O nome do responsável pela marcação é necessário"

Else
MsgBox "ok"
End If

Alguém pode me ajudar?
End Sub

Boa tarde amigo, olha eu uso o o código mais especificado que deixa minha linha de código menor.. Será que talvez serviria para seu projeto? Testa ai.. Uma linha de código para todos os seus campos.. e só ir aumentando de acordo com a quantidade de campos..

' na linha abaixo coloca-se quantos campos forem necessários
If Len(txt1 & "") = 0 Or Len(txt2 & "") = 0 Or Len(txt3 & "") = 0 Then
MsgBox "Algum campo requerido não foi preenchido.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If

Agora se vc quiser manter seu código tente fazer assim..

If Len(txt1 & "") = 0 Then
MsgBox "CAmpo txt1 não preenchido.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent

ElseIf Len(txt2 & "") = 0 Then
MsgBox "CAmpo txt2 não preenchido.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent

http://maximoaccess.forumeiros.com/t14403-resolvidomensagem-para-campos-em-branco#111967

Funcionou perfeitamente.

Obrigado