uso do IsNull ou "" processa campo

Boa noite,

tenho no cabeçalho de evento AfterUpdate()

If IsNull(Me.CboLocProduto) Or Me.CboLocProduto = "" Then
Me.CboLocReferencia.SetFocus
Exit Sub
End If


porque mesmo usando o código para se estiver nulo ou vazio ele sair do evento , percebo que antes de sair se processa algo,
levando um pequeno tempo para o mesmo mudar de foco e liberar o sistema.

tem alguma maneira de melhorar ?

Olá Egnaldo,

Tente no evento BeforeUpdate.

Também pode ter o código assim:

Código:

   If Len(Me.CboLocProduto & "") = 0 Then
        MsgBox "Campo vazio, verifique.", vbInformation, "Aviso"
        Me.CboLocReferencia.SetFocus
        Exit Sub
    End If


Nota, verifique se o erro que tem é por causa dos nomes, está a verificar no "LocProduto" e a fazer o foco no "LocReferencia".

Abraço

Oi, vou fazer o teste desta forma, que propos, no caso do CboLocReferencia.SetFocus
é para mudar o foco em caso de vazio ....
em breve retorno.

Olá Egnaldo,

Então não existe confusão com o nomes das caixas de combinação, verifique da forma que sugeri.
Se não conseguir, disponibilize base de dados funcional com parte envolvida na questão para se testar.

Abraço