[Resolvido]VBA ACESS - Me.campo.value

Boa Tarde,

Pessoal mais uma vez preciso da ajuda de vocês. O problema agora é o seguinte:

Estou Usando o Seguinte Modulo:

Private Sub BotaoSalvar_Click()
If Me.CANALDEVENDA_var.Value = "Parceiro" Then GoTo verificar_campo_parceiro
GoTo Exit_BotaoSalvar_Click
verificar_campo_parceiro:
MsgBox "Campo PARCEIRO em branco", vbExclamation, "CAMPO EM BRANCO"
Me.PARCEIRO_var.SetFocus
GoTo Exit_BotaoSalvar_Click
Exit_BotaoSalvar_Click:
Exit Sub

End Sub

Isto ele analisa um campo no FORM, porem enquanto este campo estava como "CAIXA DE TEXTO" o modulo estava funcionado, apos eu mudar o campo para "COMBOBOX" ele não verifica.

ALGUEM PODE ME AJUDAR ?

Tem que informar qual coluna da cbo voce está verificando.

Porem utilizo o mesmo Modulo para outro campo de COMBO BOX e funciona normalmente.

Tente assim:

If IsNull(Me.SuaCBO) Then
MsgBox "Campo vazio, favor escolher uma das opções", vbInfrmation, "Campo vazio" Then
Me.SuaCBO.SetFocus
End If

Os nomes vermelhos devem serem substituídos pelo nome do seu controle

O Grande problema que eu notei (desde aquela hora estou tentando ajutar) é que o primeiro IF não esta comparando as variaveis...
If Me.CANALDEVENDA_var.Value = "Parceiro" Then GoTo verificar_campo_parceiro

EntãO ele não joga pra segunda comparação...

Consegui localizar o erro.

Como fiz uma relação no campo com outra tabela a comparação feita pelo Modulo era com o campo ID logo ID = Numero.
Então tive que alterar a Modulo para:


Private Sub BotaoSalvar_Click()
If Me.CANALDEVENDA_var.Value = 7 Then GoTo verificar_campo_parceiro
GoTo Exit_BotaoSalvar_Click
verificar_campo_parceiro:
MsgBox "Campo PARCEIRO em branco", vbExclamation, "CAMPO EM BRANCO"
Me.PARCEIRO_var.SetFocus
GoTo Exit_BotaoSalvar_Click
Exit_BotaoSalvar_Click:
Exit Sub

End Sub

Então, se funciou. parabéns. Agora é só clicar no resolvido!

Obrigado a todos que visualizaram e/ou tentaram me ajudar.