[Resolvido]Combobox ao sair não deixar em branco

Olá pessoal!

Tudo bem com todos? Gostaria de saber como seria um código VBA para que só consiga sair do combobox quando escolher um valor e apresentar a mensagem "é obrigatório escolher um valor". Isso deve acontecer para que não se permita sair do campo e deixa-lo em branco.
Obrigado desde já

em botão coloque

Código:

If IsNull(seucombo) Then

MsgBox "Campo Vazio!", vbInformation, "Aviso"

Me.seucombo.SetFocus
Me.seucombo.dropdow

End If


No evento ao sair do seu Campo Coloque:


If NZ(Len(Me.NomeCampo))=0 then


Msgbox "Este Campo é obrigatorio o seu Preenchimento"


Me.NomeCampo1.SetFocus
Me.NomeCampo.SetFocus


end if



Me.NomeCampo é o Nome do Campo que não eve ser NULO


Me.NomeCampo1 é qualquer outro Campo, é utilizado apenas para dar certo a movida de foco para o campo certo.



Assim amigo, se entrar no Campo ja era... So sai se Colocar algo la...

Pessoal,

Muito obrigado testei os dois códigos e ficou resolvido parcialmente, vejam;

Private Sub cboxRec_Exit(Cancel As Integer)
If Nz(Len(Me.cboxRec)) = 0 Then
MsgBox "Você deve selecionar um nome da lista!", vbInformation, "Aviso!"
Me.NomAtendente.SetFocus
Me.cboxRec.Dropdown
Else: DoCmd.GoToRecord , , acNewRec
End If
End Sub

O código comanda o cursor para voltar ao campo anterior, até aí funciona com a MsgBox em seguida depois de clicar ok apresenta a janela de depuração do Visual Basic
Exibindo a mensagem:
Erro em tempo de execução '2185':
Você não pode fazer referência a uma propriedade ou a um método de um controle, a menos que o controle tenha o foco.

Eu pensei que por ser o combobox o cursor deveria retornar o foco no campo cboxRec e setar o DropDown e exibir os nomes da lista.

Me desculpem a ignorância é que estou começando.

Certo,
Funcionou, mas agora como posso combinar isso com um vbQuestion + YesNo para usuário cadastrar novo registro?
Ecolher Sim = Novo cadastro
Escolher Não = Fechar o formulário

Muito obrigado

ficaria assim:

Código:

If Nz(Len(Me.cboxRec)) = 0 Then

MsgBox "Você deve selecionar um nome da lista!", vbInformation, "Aviso!"
Me.NomAtendente.SetFocus
Me.cboxRec.setfocus
Me.cboxRec.Dropdown

Else


if MsgBox("Novo Registro ??", vbQuestion + vbYesNo, "Confirme") = vbYes Then

DoCmd.GoToRecord , , acNewRec

else

docmd.close

end if



End If

Pessoal bom dia,

Gostaria de agradecer principalmente FabioPaes e ao Nois e ao a todos por me ajudarem com meu projeto, está funcionando, embora ainda esteja faltando algumas coisas do tipo
quero montar relatórios com filtros por data utilizando calendário e também usar o timer (cronômetro) para abrir msgbox.
Mas valeu

Agradecemos o retorno.

sds.