[Resolvido]Erro Select Case

Mas uma vez recorro aos colegas para resolver um erro o qual não acho o problema.

Estou usando a função SELECT CASE para verificar se a quantidade "Entregue" ao lançar uma nota não e maior que a quantidade a entregar.

Exemplo:

Quantidade a entregar = 200

Se lanço na entregue os valores 1,2 passa normal

de 3 ate 9 acusa maior.

de 10 a 20 passa de 21 a 99 acusa maior.

Sei que o erro deve estar bem provavelmente na formatação dos campos que não são acoplados.

Segue o código abaixo.



Private Sub entregue_Exit(Cancel As Integer)

'Verifica se a quantidade entregue foi lançada corretamente

Select Case entregue
Case Is = 0
MsgBox "Entre com a quantidade entregue!", vbExclamation, "Controle de Empenhos"
Cancel = True
Me.entregue = Null
Me.entregue.SetFocus

Case Is > Aentregar
MsgBox "Quantidade entregue maior que o Saldo do Empenho!", vbExclamation, "Controle de Empenhos"
Cancel = True
Me.entregue = Null
Me.entregue.SetFocus

End Select
End Sub




E quando o campo fica em branco e não pode tenho que usar o código abaixo. Gostaria de usar Select Case também mas não funciona

Private Sub entregue_GotFocus()
If IsNull(Me.Item) Then

   MsgBox "Informe o codigo do Item.", vbCritical, "Item"
   Me.Item.SetFocus
   Exit Sub
       
End If
End Sub

Boa tarde,
Tente

Código:

Select Case val(entregue)
    Case Is = 0
    MsgBox "Entre com a quantidade entregue!", vbExclamation, "Controle de Empenhos"
    Cancel = True
    Me.entregue = Null
    Me.entregue.SetFocus
Case Is > val(Aentregar)
    MsgBox "Quantidade entregue maior que o Saldo do Empenho!", vbExclamation, "Controle de Empenhos"
    Cancel = True
    Me.entregue = Null
    Me.entregue.SetFocus
End Select


Funcionou

Continuo com o erro quando e "nulo"

Esqueceu de lançar pedir para lançar.

tenho colocado o código:
If IsNull(Me.entregue) Then

MsgBox "Informe a quantidade entregue!!!.", vbCritical, "Entregue"
Me.entregue.SetFocus
Exit Sub

End If

Que dai não da erro

Vou dar como encerrado

Obrigado pela ajuda Alexandre Neves

Deus abençoe!!!