[Resolvido]Elseif não funcionando.

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


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

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

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

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

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?

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

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

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

Estou fazendo alguns teste aqui, mas não estou entendendo da onde vem o problema

Para tal verificação, coloque linha individualizada

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

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

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

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

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

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.

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

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

Já coloquei no atualizar também

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

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.

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ê.

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.