Al precionar CommandButto1_Click() da error: se ha producido el error 13 en tiempo de ejecucion no coinciden los tipos

Question

Private Sub txtCantidad_Change()


vPrecioVenta = Me.Txt_PrecioV.Value
    
    totImporte = Val(Me.TxtCantidad) * vPrecioVenta
    Me.txtImporte.Value = FormatNumber(totImporte, 2)

End Sub
Private Sub CommandButton1_Click()
'Configuramos el Listbox
        Me.ListBox1.ColumnCount = 4
        Me.ListBox1.ColumnWidths = "50 pt;400 pt;70 pt;70 pt"
      
        'Agreamos los Items
        Me.ListBox1.AddItem Me.TxtCantidad.Text
        Me.ListBox1.List(i, 1) = Me.ComboBox2.Text
        Me.ListBox1.List(i, 2) = Me.Txt_PrecioV.Text
        Me.ListBox1.List(i, 3) = Me.txtImporte.Text
        
        i = i + 1
        
        'Liampiamos los TextBox
        Me.ComboBox2 = Empty
        Me.Txt_PrecioV = Empty
        Me.TxtCantidad = Empty
        Me.txtImporte = Empty
        
        Me.ComboBox1.SetFocus
End Sub

Answer 1

Ayúdanos a ayudarte ;-)

¿En qué linea te da el error?

¿Qué valor tienes en la variable Empty?

¿Que tipo tienes seleccionado en la propiedad Style del combo? Ten en cuenta que si es Dropdown List solo puedes asignarle un valor que exista entre los items del combo y si estás asignando un valor vacío te va a dar error si no lo añades también como item.

Otra observación es que antes de rellenar los items de un listbox debes vaciarlo por seguridad de que no se van a añadir a elementos ya existentes. Eso lo haces con 

ListBox1.Clear

---

Saludos, Javier J