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


+2
DamascenoJr.
crysostomo
6 participantes

    [Resolvido]Elseif não funcionando.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Sex 30 Out 2020, 22:33

    AMigos boa tarde.
    Já mexi ja procurei , mas até agora não entendi o elseif Não funcionando.
    Qual o problema do elseif ?

    Código:
    Private Sub btAdicionar_Click()
    If Me.txtCodDoProduto = "" Then
       MsgBox " Informe o produto", vbInformation, " Grupo Pacheco"
    ElseIf Me.txtDesconto >= Me.txtValorUnitario Then
        MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    Else

    With listaDeVendas

            .AddItem "" & txtCodDoProduto & ";" & _
                     "" & txtNomeDoProduto & ";" & _
                     "" & Format(txtValorUnitario, "#,###,##0.#0") & ";" & _
                     "" & txtQuantidade & ";" & _
                     "" & Format(Me.txtDesconto, "#,###,##0.#0") & ";" & _
                     "" & Format(txtValor, "#,###,##0.#0") & ";" & _
                     "" & Format(txtTotalDeProdutos, "#,###,##0.#0") & ";" & _
                     "" & Format(txtDescontoAbaixo, "#,##0.00") & ";" & _
                     "" & Format(txtDescontoAbaixo, "#,###,##0.#0") & ";" & _
                     "" & Format(txtTotalDeProdutos, "#,##0.#0") & ""
    contarVendas
    somarLista
    descontoDaLista
    txtCodDoProduto = ""
    txtNomeDoProduto = ""
    txtQuantidade = ""
    txtValorUnitario = ""
    Me.txtDesconto = ""


    End With

    End If
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  DamascenoJr. Sex 30 Out 2020, 23:05

    Marque ponto de interrupção e verifique os valores para saber o que há.

    https://www.maximoaccess.com/t37958-dicas-de-ouro#259187


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Silvio Sáb 31 Out 2020, 08:44

    Só um pitaco....

    Retire esse Elseif

    Private Sub btAdicionar_Click()
    If Me.txtCodDoProduto = "" Then
    MsgBox " Informe o produto", vbInformation, " Grupo Pacheco"
    If Me.txtDesconto >= Me.txtValorUnitario Then
    MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    Else

    With listaDeVendas

    .AddItem "" & txtCodDoProduto & ";" & _
    "" & txtNomeDoProduto & ";" & _
    "" & Format(txtValorUnitario, "#,###,##0.#0") & ";" & _
    "" & txtQuantidade & ";" & _
    "" & Format(Me.txtDesconto, "#,###,##0.#0") & ";" & _
    "" & Format(txtValor, "#,###,##0.#0") & ";" & _
    "" & Format(txtTotalDeProdutos, "#,###,##0.#0") & ";" & _
    "" & Format(txtDescontoAbaixo, "#,##0.00") & ";" & _
    "" & Format(txtDescontoAbaixo, "#,###,##0.#0") & ";" & _
    "" & Format(txtTotalDeProdutos, "#,##0.#0") & ""
    contarVendas
    somarLista
    descontoDaLista
    txtCodDoProduto = ""
    txtNomeDoProduto = ""
    txtQuantidade = ""
    txtValorUnitario = ""
    Me.txtDesconto = ""


    End With

    End If
    End if
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Sáb 31 Out 2020, 11:57

    Bom dia , Silvio , eu já tinha feito ele, nada acontece.
    vou refazer o botão para ver  aonde está o erro, Damasco não consigo encontrar o erro com a botãoo de interrupção


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Avelino Sampaio Sáb 31 Out 2020, 12:50

    Olá!

    o elseif da forma como está sendo feita não vai funcionar, pois o senhor está realizando comparações distintas entre o IF e o ELSEIF. Neste caso ele pula direto para o ELSE.

    No exemplo abaixo estamos usando a variável "a" nas comparações do If e do ElseIf, sendo assim irá funcionar.

    If a = 0 then
    msgbox "a = 0"
    elseif a = 1 then
    msgbox "a=1"
    else
    msgbox "a > 1"
    end if


    Para o seu caso, utilize assim:

    If Me.txtCodDoProduto = "" Then
    MsgBox " Informe o produto", vbInformation, " Grupo Pacheco"
    Else
    If Me.txtDesconto >= Me.txtValorUnitario Then
    MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    else
    With listaDeVendas
    .AddItem "" & txtCodDoProduto & ";" & _
    "" & txtNomeDoProduto & ";" & _
    ...
    end if
    end if


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Sáb 31 Out 2020, 13:31

    Boa tarde Alvelino.

    Funcionou. 
    No caso, colocar If dentro do Else  seria o certo porque tem mais uma condição para fazer?
    O Elseif seria somente para resposta ao contrária?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Dom 01 Nov 2020, 18:48

    Começou a dar problema, ele só funciona uma vez
    Código:
      If Me.listaDeVendas = "" Then
           ' MsgBox "informe o produto", vbInformation, "Grupo Pacheco"
    Else
       If Me.txtDesconto >= Me.txtValorUnitario Then
          MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    else
      With listaDeVendas


            .AddItem "" & Me.txtCodDoProduto & ";" & _
                     "" & Me.txtNomeDoProduto & ";" & _
                    "" & Format(txtValorUnitario, "#,###,##0.#0") & ";" & _
                    "" & Me.txtQuantidade & ";" & _
                    "" & Format(Me.txtDesconto, "#,###,##0.#0") & ";" & _
                    "" & Format(Me.txtGrafica, "#,###,##0.#0") & ";" & _
                    "" & Format(Me.txtLucro, "#,###,##0.#0") & ""

    descontoDaLista
       If Me.listaDeVendas = "" Then
           ' MsgBox "informe o produto", vbInformation, "Grupo Pacheco"
      Else
    With listaDeVendas


            .AddItem "" & Me.txtCodDoProduto & ";" & _
                     "" & Me.txtNomeDoProduto & ";" & _
                    "" & Format(txtValorUnitario, "#,###,##0.#0") & ";" & _
                    "" & Me.txtQuantidade & ";" & _
                    "" & Format(Me.txtDesconto, "#,###,##0.#0") & ";" & _
                    "" & Format(Me.txtGrafica, "#,###,##0.#0") & ";" & _
                    "" & Format(Me.txtLucro, "#,###,##0.#0") & ""

    descontoDaLista
    contarVendas
    ao clicar ele não adiciona na lista, mas colocar o 1 na contagem de venda(contarVendas) e no segundo ele começa a funcionar. 
     A contarVendas está entre a condição do if else e o outra if para totalmente
    Repare que eu não tenho nada na lista, mas o contador está com 1
    [Resolvido]Elseif não funcionando. Sem_tz86


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Alexandre Neves Seg 02 Nov 2020, 06:41

    Bom dia,
    Não entendi que valores assumem os controlos nem qual o caminho que o código devia fazer e não faz


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Seg 02 Nov 2020, 10:54

    a condição é que não pode adicionar se o campo do codigo está vazia, não está funcionando o sistema está adicionado campos vazios.
    Eu tenho 1 item na lista , mas o contador está com 11 os outros campo foram adicionado vazio
    [Resolvido]Elseif não funcionando. Sem_tz87
    Estou fazendo alguns teste aqui, mas não estou entendendo da onde vem o problema


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Alexandre Neves Seg 02 Nov 2020, 12:41

    Para tal verificação, coloque linha individualizada

    If Len("" & txtCodDoProduto) =0 Then MsgBox " Informe o produto", vbInformation, " Grupo Pacheco": exit sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Seg 02 Nov 2020, 16:40

    Essa linha funcionou, mas  interferiu na verificação de desconto com o valor 

    Código:
    If Me.txtDesconto >= Me.txtValorUnitario Then
          MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    .
    pelo testes o 2 if de verificação não funciona por causa da listBox, qual o motivo desse problema , pois não intendi o porque , pois essa listbox  é a fundamental nessa pagina
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Alexandre Neves Ter 03 Nov 2020, 05:02

    Bom dia
    Descreva o que pretende.
    Quer que verifique txtCodDoProduto e só continue caso esteja preenchido?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Avelino Sampaio Ter 03 Nov 2020, 05:41

    Olá!

    Peço que se dedique um pouquinho na dica do Damasceno.

    Sucesso!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Ter 03 Nov 2020, 11:24

    Bom dia Alvelino .
    Ja quando faço a depuração ele não mostrar onde está o erro ele não faz a interrupção ele passa direto.

    Bom dia Alexandre. a verificação para ver se o campo txtCodigoDoProduto está vazio já foi sanada, somente a outra verificação que o desconto não pode ser maior que o valor unitário ela não funciona ele passa direto no comando mas não mostra aonde está o erro


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Avelino Sampaio Ter 03 Nov 2020, 11:59

    Olá!

    Insisto que o senhor deva dar a devida atenção a dica do Damasceno.  Coloca o ponto de interrupção já no primeiro IF.  Bota para rodar o código.  Quando ele parar no ponto de interrupção, o senhor abre a janela Imediata (CTRL + G).  Na janela Imediata o senhor poderá analisar os valores dos campos.  Exemplo:

    ? me!NomeDoCampo 


    Quando o senhor analisa uma comparação ele ira retornar TRUE ou FALSE.  Exemplo:

    ? me!NomeDoCampo  ="" 


    Analise os valores dos campos e as comparações que senhor irá descobrir o seu erro.

    Aguardamos
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Silvio Ter 03 Nov 2020, 16:04

    Tente algo assim...

    Private Sub btAdicionar_Click()
    If Me.txtCodDoProduto = "" Then
    MsgBox " Informe o produto", vbInformation, " Grupo Pacheco"
    Me.txtCodDoProduto.SetFocus
    End IF

    If Me.txtDesconto >= Me.txtValorUnitario Then
    Me.TxtDesconto.Undo
    Me.TxtDesconto.SetFocus
    MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    Else


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Qui 05 Nov 2020, 15:25

    Boa tarde Silvo, deu também não.
    Mas consegui com o seguinte código:

    Código:
    If Len("" & txtCodDoProduto) = 0 Then MsgBox " Informe o produto", vbInformation, " Grupo Pacheco": Exit Sub
        If Me.txtDesconto >= Me.txtValorUnitario Or Me.txtDesconto = Me.txtValorUnitario Then
            Me.txtDesconto.Undo
            Me.txtDesconto.SetFocus
            MsgBox " O Desconto não pode ser maior ou igual ao valor unitário ", vbInformation, "Grupo Pacheco"
    Else

    Também queria entender o porque o outros if estava dando problema com With, pois fiz alguns teste tirando ele  e deram certos.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Dom 08 Nov 2020, 17:46

    o problema voltou .
    ele está submetido ao With, não posso tirar ele


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ANTONILDO CORDEIRO
    ANTONILDO CORDEIRO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 02/04/2019

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  ANTONILDO CORDEIRO Seg 09 Nov 2020, 11:45

    Bom dia!!
    Vc não poderia colocar a mensagem do campo do desconto no antes de atualizar desse campo apos de digitar o valor??
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Ter 10 Nov 2020, 20:24

    Já coloquei no atualizar também


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Alexandre Neves Ter 10 Nov 2020, 20:31

    Boa noite
    Vários colegas estão tentando ajudar, um deles é o colega Avelino Sampaio que lhe colocou algumas questões sobre a sua dúvida.
    Quando vejo novas mensagens suas a pedir ajuda e sem mostrar interesse às perguntas do colega Avelino, eu fico um pouco desinteressado em tentar perceber a sua dúvida
    Tente responder a essas dúvidas para respeitar o interesse do colega Avelino em o tentar ajudar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Ter 10 Nov 2020, 20:41

    Boa noite Alexandre.
    Eu fiz com o código do Alvelino, não deu certo refiz alguns os campos.
    Eu deixei um pouco essa parte para dar início a outros formulários para não ficar atrasado em questão.
    Voltarei nessa parte o porque do problema.
    Não deixei a essa ajuda esse topico nao, só dei início a outra parte do projeto para não ficar muito atrasado contra o tempo.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  crysostomo Seg 16 Nov 2020, 19:09

    Boa noite amigos, desculpe a demora. 
    Resolvido, mas ainda continuo sem entender aonde estava o erro, eu coloquei o mesmo código que me ajudaram refiz os campo formatando-os.
    Damasco e Alvelino, a depuração não mostrava onde a condição estava dando erro.
    Ficou assim:
    Código:
    If Len("" & txtCodDoProduto) = 0 Then MsgBox " Informe o produto", vbInformation, " Grupo Pacheco": Exit Sub
        
    If Me.txtDesconto >= txtValorUnitario Then
       MsgBox " O desconto não pode ser maior ou igual que o valor", vbInformation, "Grupo Pacheco"
        Me.txtValorUnitario.SetFocus
        Me.txtDesconto.SetFocus
    Else
    .....
    Sem entender aonde foi consertado fico a mercê de dar erro de novo, porque ao formatar campos o if afetou a função de remover, consertei também, mas fico essa mercê.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    annasoldih gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  DamascenoJr. Seg 16 Nov 2020, 20:25

    crysostomo, a depuração não é pra mostrar, é para o desenvolvedor procurar.

    Por ela é que o desenvolvedor verifica os valores do campos e que rumo o código tá seguindo.

    Mas se resolveu, então ok. Espero que não tenha mais problemas.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    crysostomo gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Elseif não funcionando. Empty Re: [Resolvido]Elseif não funcionando.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 22:43