Formulario Ventas

Private Sub CmbProducto_Click()

Me.TxtPrecio.Text = FrmProducto.LstPrecio.List(Me.CmbProducto.ListIndex)

End Sub

Private Sub MnuActualizarDatos_Click()

'Actualizo el combo


Me.CmbProducto.Clear

For Mover = 0 To FrmProducto.LstProducto.ListCount - 1

Me.CmbProducto.AddItem FrmProducto.LstProducto.List(Mover), Mover

Next


'actualizo la lista




End Sub

Private Sub MnuProductos_Click()

FrmProducto.Show

End Sub

Private Sub MnuVendedores_Click()

FrmVendedor.Show

End Sub