Mugre código en VB para las facturas

Es sólo otro post para evitar recordar cómo programar un mentado comboBox con un list


Private Sub cmdAgregar_pedido_Click()

Dim index As Integer
index = cmbNombre_articulo.ListIndex

txtCantidad_articulo.SetFocus

''If txtCantidad_articulo.Text = "" Then
If IsNull(cmbNombre_articulo.ItemData(index)) Then
Call MsgBox("Selecciona un articulo", vbOKOnly, "Falta un articulo")

Else
txtCantidad_articulo.SetFocus
If txtCantidad_articulo.Text = "" Then
Call MsgBox("Ingresa una cantidad", vbOKOnly, "Falta la cantidad")
Else

txtCantidad_articulo.SetFocus
If IsNumeric(txtCantidad_articulo.Text) Then
txtCantidad_articulo.SetFocus
listaArticulos.AddItem (txtCantidad_articulo.Text & " " & cmbNombre_articulo.ItemData(index))

Else
Call MsgBox("no es numero", vbOKOnly, "buu")
End If
End If
End If

End Sub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s