Erro em tempo de execução '13'

Question

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.

Answer 1

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. [e-mail]

Answer 2

Ajudou demais, valew mesmo.. ^^