none
Erro em tempo de execução '13' RRS feed

  • Pergunta

  • Gente, tenho um conhecimento básico de VBA, e estou fazendo um projeto de um sistema de gerenciamento de estoque e vendas com ele. porem me deparei com um erro inesperado onde não encontro uma solução. :/

    Quando insiro um número no "TB_Quant" que seria o TextBox no formulário de quantidade ele funciona corretamente, porém se eu apago os números do "TB_Quant" ele apresenta

    "Erro em tempo de execução '13'

    Tipos incompatíveis"

    o que eu acredito que seja é que quando limpo o "TB_Quant" ele volta a ser tipo "Text" fazendo com que os tipos sejam incompatíveis, porem não encontro forma alguma de solucionar esse erro.

    Segue o Código:

    Private Sub TB_Quant_Change()
    
        Dim prec As Double
        Dim quant As Double
        Dim total As Double
    
    'busca preco
        Dim i As Integer
        sheets("Produtos").Select
        ultimaLin. = sheets("Produtos").Range("B" & Rows.Count).End(xlUp).Row
    
        for i = 4 To ultimaLin
            If LB_Prod = Cells(i, 2) And LB_Prod <> "--" Then
                prec = Cells("i, 7")
                Exit for
            End IF
        Next i
    
        quant = TB_Quant
    
        total = quant * prec
    
        TB_Prec = total
    
    End Sub
    desde já agradeço muito pela ajuda.


    quarta-feira, 7 de março de 2018 05:07

Respostas

  • Isso ocorre porque a variável quant não aceita valor "" (vazio).

    Experimente colocar um tratamento de erro.

    Exempo

    If Me.TB_Quant = "" Then TB_Quant = 0


    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    • Marcado como Resposta Lucas Soledade quarta-feira, 7 de março de 2018 15:29
    quarta-feira, 7 de março de 2018 12:46

Todas as Respostas

  • Isso ocorre porque a variável quant não aceita valor "" (vazio).

    Experimente colocar um tratamento de erro.

    Exempo

    If Me.TB_Quant = "" Then TB_Quant = 0


    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    • Marcado como Resposta Lucas Soledade quarta-feira, 7 de março de 2018 15:29
    quarta-feira, 7 de março de 2018 12:46
  • Ajudou demais, valew mesmo.. ^^
    quarta-feira, 7 de março de 2018 15:29