SISTEMA DE FACTURACION

En esta ocasion crearemos TODO un sistema de facturacion, en el cual aprenderemos nuevos usos para los formularios.
para este sistema necesitaremos:

2 formularios
3 libros de excel con diferentes documentos
y mucha pero mucha creatividad para que aparte de
funcional sea lindo tu sistema de facturacion.

procedimiento:

1er libro de excel:

En este libro haremos un simple diseño en el que se encuentre el nombre de nuestra empresa, y dos botones de comando uno para abrir un formulario o "entrar al sistema" y el otro para cerrar el libro.

en este libro guardaremos nuestros 2formularios el primero deberia de quedar asi:

Y se programa de la sig manera:

el codigo es: 

Private Sub CommandButton1_Click()

If TextBox1 = "abi95" Then

If TextBox2 = "4444" Then

MENSAJE = MsgBox("usuario y contraseña correcta", vbOKOnly, "BIENVENIDO")

TextBox1 = Empty

TextBox2 = Empty

PRINCIPIO.Hide

BIENVENIDO.Show

TextBox1.SetFocus

Else

MENSAJE = MsgBox("password incorrecto", vboonly, "BIENVENIDO")

TextBox2 = Empty

TextBox2.SetFocus

End If

Else

MENSAJE = MsgBox("usuario incorrecto", vboonly, "BIENVENIDO")

TextBox1 = Empty

TextBox2 = Empty

TextBox1.SetFocus

End If

"al textbox2, (contraseña) en las propiedades, le ponemos en donde dice passwordchard un asterisco "*" y ya nos aparecera lo que escribamos como una contraseña confidencial)

(en este caso usamos una nueva opcion de visual basic, que es el mensaje, en este caso, al momento de que el usuario o la contraseña sean incorrectas, aparecera un mensaje en la pantalla que dira que estan incorrectos los datos, y uno cuando sean correctos).

Este formulario nos conducira al segundo formulario en el que se encontraran cuatro botones y cada uno abrira o tendra la siguiente funcion:

abrir factura
abrir cotizacion
ayuda
cerrar

en este formulario programaremos cada boton  de la siguiente manera:

y el codigo es:

Private Sub COTIZACION_Click()

ChDir "H:\"

    Workbooks.Open Filename:="H:\cotizacion.xlsm"

    BIENVENIDO.Hide

End Sub

Private Sub FACTURA_Click()

    ChDir "H:\"

    Workbooks.Open Filename:="H:\factura.xlsm"

    BIENVENIDO.Hide

End Sub

Private Sub SALIR_Click()

BIENVENIDO.Hide

PRINCIPIO.Show

TextBox1.SetFocus

End Sub

(el codigo "chDir" es para abrir un archivo o documento, en este caso es un nuevo libro)

Para este proyecto abriremos otro libro llamado factura, que lo aremos como los anteriores explicados, y deberia quedarte asi:

En este libro usaremos 2 hojas, la primera que sera la factura, y la segunda sera la base de datos,

la base de datos deberia de quedar asi:

Nuestro segundo libro (que sera controlado por por el boton cotizacion) sera eso el libro de cotizacion y deberia de quedarnos asi:

En estee mismo libro crearemos un detalle de pagos, 

Despues de aver creado todo esto, y de ya haber vinculado los botones y todos los formularios.. no nos queda mas que correr nuestro programa. 

como siempre no me queda mas que decearles lo mejor, con mucho cariño, que Dios los bndiga, .. ♥