MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 03/07/2011

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

    Mensagem  Helder Milhome Qui 10 Jun 2021, 8:13 am

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4128
    Registrado : 29/06/2012

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Noobezinho Qui 10 Jun 2021, 10:17 am

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1473
    Registrado : 13/12/2016

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Alexandre Fim Qui 10 Jun 2021, 10:43 am

    Olá Helder,

    O campo "Me.Tratamento" é um combobox?


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 03/07/2011

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Helder Milhome Qui 10 Jun 2021, 10:50 am

    Bom dia Alexandre

    é uma caixa de combinação

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1473
    Registrado : 13/12/2016

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Alexandre Fim Qui 10 Jun 2021, 11:17 am

    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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 03/07/2011

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Helder Milhome Qui 10 Jun 2021, 11:27 am

    ok vou fazer aqui
    qualquer coisa retorno
    Agradeço
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4128
    Registrado : 29/06/2012

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Noobezinho Qui 10 Jun 2021, 5:18 pm

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4128
    Registrado : 29/06/2012

    Situação de erro na Condição IF  Empty Re: Situação de erro na Condição IF

    Mensagem  Noobezinho Ontem à(s) 2:03 pm

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: Dom 20 Jun 2021, 8:32 pm