Formulario Producto

Dim AvisoN As Boolean
Dim AvisoT As Boolean

Private Sub CmdAgregar_Click()

AvisoN = False
AvisoT = False

'Comprobar el ingreso correcto de datos
If Me.TxtProducto.Text <> "" Then
If IsNumeric(Me.TxtProducto.Text) = False Then
'Me.LstProducto.AddItem Me.TxtProducto.Text, Me.LstProducto.ListCount
AvisoT = True
Else
MsgBox "Faltan datos..."
End If
End If


'Comprobar que la cantidad sea ingreso numérico
If Not IsNumeric(Me.TxtPrecio.Text) Or Val(Me.TxtPrecio.Text) <= 0 Then
MsgBox "Cantidad no válida..."
Exit Sub
Else
'Me.LstPrecio.AddItem Me.TxtPrecio.Text, Me.LstPrecio.ListCount
AvisoN = True
End If

If AvisoN = True And AvisoT = True Then
Me.LstProducto.AddItem Me.TxtProducto.Text, Me.LstProducto.ListCount
Me.LstPrecio.AddItem Me.TxtPrecio.Text, Me.LstPrecio.ListCount
End If



Me.TxtProducto.Text = ""
Me.TxtPrecio.Text = ""
Me.TxtProducto.SetFocus 'para ubicar el cursor en txtproducto



End Sub

Private Sub CmdEliminar_Click()
Me.LstPrecio.RemoveItem Me.LstPrecio.ListIndex
Me.LstProducto.RemoveItem Me.LstProducto.ListIndex

End Sub

Private Sub LstPrecio_Click()
Me.LstProducto.ListIndex = Me.LstPrecio.ListIndex

End Sub

Private Sub LstProducto_Click()
Me.LstPrecio.ListIndex = Me.LstProducto.ListIndex

End Sub