Situação de erro na Condição IF

Bom dia a todos

Gostaria de uma ideia que possa mim ajudar
nesta condição do IF
fiz no apos atualizar
as outras condições funciona mas quando coloco um valor (nome do tratamento)no campo
tratamento funciona legal... mas quando não quero o esse valor e coloco vazio... ele não coloca o Zero
no campo VRSERLAB ... outros valores , funciona, menos o valor da condição vazio.

tem outra maneira de pegar direto da tabela?
usando o dblookup?

Agradeço quem possa ajudar!!
abraços a todos virtualmente

Private Sub Tratamento_AfterUpdate()
If Me.Tratamento = "AR LENTE PRONTA" Then
Me.VRSERVLAB = 0
ElseIf Me.Tratamento = "OPTO" Then
Me.VRSERVLAB = 50
ElseIf Me.Tratamento = "OPTO GOLD" Then
Me.VRSERVLAB = 90
ElseIf Me.Tratamento = "CRIZAL EASY" Then
Me.VRSERVLAB = 155
ElseIf Me.Tratamento = "CRIZAL FORTE" Then
Me.VRSERVLAB = 320
ElseIf Me.Tratamento = "CRISTAL FOTO" Then
Me.VRSERVLAB = 320
ElseIf Me.Tratamento = "SUPER OPTO GOLD" Then
Me.VRSERVLAB = 130
ElseIf Me.Tratamento = "FILTRO AZUL" Then
Me.VRSERVLAB = 135
ElseIf Me.Tratamento = "CRIZAL PREVENCIA" Then
Me.VRSERVLAB = 360
ElseIf Me.Tratamento = "CRIZAL SAPPHIRE" Then
Me.VRSERVLAB = 360
ElseIf Me.Tratamento = "OPTIFOG" Then
Me.VRSERVLAB = 320
ElseIf Me.Tratamento = "NO REFLEX" Then
Me.VRSERVLAB = 260
ElseIf Me.Tratamento = "TRIO EASY" Then
Me.VRSERVLAB = 95
ElseIf Me.Tratamento = "STAND AR" Then
Me.VRSERVLAB = 100
ElseIf Me.Tratamento = "BLUE CONTROL" Then
Me.VRSERVLAB = 262
ElseIf Me.Tratamento = "LONG LIFE" Then
Me.VRSERVLAB = 262
ElseIf Me.Tratamento = "NO RISCK BLUE CONTROL" Then
Me.VRSERVLAB = 163
ElseIf Me.Tratamento = "NO RISCK" Then
Me.VRSERVLAB = 163
ElseIf Me.Tratamento = "CLEAN EXTRA" Then
Me.VRSERVLAB = 64

ElseIf Me.Tratamento = Empty Then ' (Essa condição vazia não funciona)
Me.VRSERVLAB = 0

End If

Helder  

Substitua o IF pelo Select Case

Código:


Select Case Me.Tratamento
         Case "AR LENTE PRONTA"
                 Me.VRSERVLAB = 0
         Case Me.Tratamento = "OPTO" Then
                 Me.VRSERVLAB = 50
         Case Me.Tratamento = "OPTO GOLD" Then
                 Me.VRSERVLAB = 90
         Case Me.Tratamento = "CRIZAL EASY" Then
                 Me.VRSERVLAB = 155
         Case Me.Tratamento = "CRIZAL FORTE" Then
                 Me.VRSERVLAB = 320
         Case Me.Tratamento = "CRISTAL FOTO" Then
                 Me.VRSERVLAB = 320
         Case Me.Tratamento = "SUPER OPTO GOLD" Then
                 Me.VRSERVLAB = 130
         Case Me.Tratamento = "FILTRO AZUL" Then
                 Me.VRSERVLAB = 135
         Case Me.Tratamento = "CRIZAL PREVENCIA" Then
                 Me.VRSERVLAB = 360
         Case Me.Tratamento = "CRIZAL SAPPHIRE" Then
                 Me.VRSERVLAB = 360
         Case Me.Tratamento = "OPTIFOG" Then
                 Me.VRSERVLAB = 320
         Case Me.Tratamento = "NO REFLEX" Then
                 Me.VRSERVLAB = 260
         Case Me.Tratamento = "TRIO EASY" Then
                 Me.VRSERVLAB = 95
         Case Me.Tratamento = "STAND AR" Then
                 Me.VRSERVLAB = 100
         Case Me.Tratamento = "BLUE CONTROL" Then
                 Me.VRSERVLAB = 262
         Case Me.Tratamento = "LONG LIFE" Then
                 Me.VRSERVLAB = 262
         Case Me.Tratamento = "NO RISCK BLUE CONTROL" Then
                 Me.VRSERVLAB = 163
         Case Me.Tratamento = "NO RISCK" Then
                 Me.VRSERVLAB = 163
         Case Me.Tratamento = "CLEAN EXTRA" Then
                Me.VRSERVLAB = 64
         Case Len(Me.Tratamento & "") = 0
                Me.VRSERVLAB = 0
 End Select


{ }'s

Balem

Olá Helder,

O campo "Me.Tratamento" é um combobox?

Bom dia Alexandre

é uma caixa de combinação

Helder,

O que vc poderia fazer é, incluir na tabela que monta a combobox, um registro assim:

codigo                    descricao
      0                                    "NÃO INFORMADO"

Vale lembrar que a condição abaixo também é zero:

Case "AR LENTE PRONTA"
                Me.VRSERVLAB = 0


Espero ter ajudado

[]'s

FIM

ok vou fazer aqui
qualquer coisa retorno
Agradeço

Helder

Exatamente por essas que o próprio manual do Access diz para

nomear os controles de acordo com sua natureza.

Se no código que passou o controle caixa de combinação (combobox)

estivesse nomeado como cbo_Tratamento, já saberíamos que se

tratava de uma combobox.

Balem

Helder

Se resolveu o tópico com as sugestões do nosso colega Alexandre Fim,

Dê o tópico com encerrado, clicando no botão Resolvido na página de edição de mensagens.


Balem