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