Como crear un sistema de inventario en vb

Introducción

El propósito de este tutorial es el de proveernos de las bases iniciales para elaborar un sencillo sistema de inventario el cual permitirá realizar las transacciones que un sistema de inventario requiere, es decir procesar las entradas y las salidas de un producto determinado para poder saber -en cualquier momento- con certeza cuántas unidades del producto tenemos en existencia. Este simple modelo podremos adecuarlo a nuestras necesidades particulares y hacerlo tan completo como sea necesario, de tal manera que podamos administrar y controlar nuestra valiosísima colección de discos, libros, música, películas, etc.

Para este ejercicio crearemos una base de datos llamada Inventario y dentro de ella tendremos tres tablas llamadas: Productos, Entradas y Salidas. Con los tipos de datos que se muestran a continuación.

En el tutorial "Cómo crear una base de datos en Access con Visual Basic" publicado en la página: www.abcdatos.com/tutoriales/tutorial/z6124.html se las hallan instrucciones detalladas sobre cómo crear las tablas, sin embargo haremos un repaso breve.

Inicio del Proyecto

• a) Crea una carpeta que será exclusiva para el ejercicio que se llamará: "inventario" para guardar todos los componentes del proyecto.

Inicio de Visual Basic

• a) Haz clic en el botón Inicio, señala Todos los programas.

• b) Señala Microsoft Visual Studio 6.0, y haz clic en Microsoft Visual Basic 6.0.

• c) Crea un proyecto EXE estándar y guárdalo como inventario en la carpeta del mismo nombre.

• d) Por el momento no haremos nada con el formulario inicial.

Creación de la base de datos

• a) Haz clic en el botón Complementos de la barra de herramientas.

• b) Haz clic en Administrador visual de datos…

• c) Y se abrirá el Administrador visual de datos (VisData (Visual Data Manager)).

• d) Haz clic en Archivo, Nuevo…, Microsoft Access, MDB de la versión 7.0…

• e) En la caja Seleccione la base de datos de Microsoft Access que desea crear, en Guardar en, busca y selecciona la misma carpeta -creada anteriormente- en donde se guardará el proyecto, en Nombre: escribe un nombre que identifique la base de datos (usualmente el mismo nombre de la carpeta) y haz clic en el botón Guardar.

f) Ahora aparece nuevamente el Administrador visual de datos listo para empezar a trabajar.

Creación de las tablas de la base de datos

• a) Para este ejercicio crearemos tres tablas (ver página 1). Haz clic con el botón derecho del ratón dentro de la Ventana de base de datos y haz clic en Nueva tabla. En la caja Estructura de tabla, Nombre de la tabla: escribe el nombre de la tabla, para el ejercicio la tabla se llamará productos, y haz clic en el botón Agregar campo.

• b) En la caja Agregar campo, Nombre: escribe el nombre del primer campo de la tabla que estamos creando, para el ejercicio agregaremos cuatro campos, a saber: nodeparte, descripción, costo y cantidadminima.

• c) En Tipo: selecciona el tipo de datos que contendrá el campo, en nuestro caso serán:- campo: nodeparte, tipo de datos: Long, tamaño: 4- campo: descripcion, tipo de datos: Text, tamaño: 50- campo: costo, tipo de datos: Currency, tamaño: 8- campo: cantidadminima, tipo de datos: Long, tamaño: 4

• d) En Tamaño: selecciona la cantidad de caracteres (incluyendo espacios) que tendrá el campo (ver arriba) y haz clic en Aceptar.

• e) Para agregar los otros campos de la tabla, nuevamente haz clic en el botón Agregar campo y repite los pasos desde el punto "c)" (Nombre, Tipo y Tamaño) para cada campo que tendrá la tabla.

• f) Al terminar de crear los campos, hacemos clic en el botón Agregar Índice y en la ventana Agregar índice to productos agregaremos como índice el campo nodeparte haciéndole doble clic en la caja Campos disponibles y escribiendo en la caja de texto Nombre: nodeparteindice. Y haz clic en Aceptar. Como se ve abajo.

• g) Cuando hayas agregado los campos de la tabla haz clic en el botón Generar la tabla.

• h) Y la tabla la podrás ver en el Administrador visual de datos (VisData).

• 

• i) Repite los pasos -desde el punto "a)" para crear dos tablas más con los siguientes campos:

Haz doble clic en la tabla que acabas de crear (productos) para mostrar la ventana Dynaset: productos, haz clic en el botón Agregar para introducir el siguiente registro: Número de parte: 10, Descripción pluma, Costo 12.50, Mínimo 20 y haz clic en Actualizar para agregarlo a la tabla productos de la base de datos inventario.

Introduce ahora los registros:

Creando los formularios

Formulario de Inicio

Crearemos un formulario que nos servirá de pantalla de inicio y contendrá el menú principal.

Así que entonces crea el formulario de inicio, que para iniciar en el centro de la pantalla debes modificar su propiedad StartUpPosition a 2-CenterScreen, modifica su propiedad Caption a Sistema de Inventario, crea el menú con las opciones Productos, Entradas, Salidas, Inventario y Salir.

Obviamente crearemos cinco formularios en total que llamaremos modificando su propiedad (Nombre): frminicio, frmproductos, frmentradas, frmsalidas y frminventario.

El código del menú que nos permitirá ir de un formulario a otro y salir del programa es:Private Sub productos_Click()

frminicio.Hide

frmproductos.Show

End Sub

Formulario Los Productos

En el formulario coloca cuatro etiquetas, cuatro cajas de texto, dos controles Data, un MSFlexGrid y cuatro botones como se ve a continuación.

Creando la conexión con la base de datos y la tabla

1. Conectando los controles Data

• a) Selecciona cada uno de los controles Data y modifica sus propiedades como sigue:

• b) DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (inventario) en donde se halla la tabla que vamos a conectar.

• c) RecordSource: selecciona el nombre de la tabla (productos) cuyos campos se mostrarán en el formulario.

2. Conectando las cajas de texto

• a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

• b) DataSource: selecciona Data1.

• c) DataField: selecciona el nombre del campo de la tabla -que corresponda con la etiqueta – que se mostrará en la caja de texto.

• d) Repite los pasos con cada caja de texto del formulario.

3. Conectando el MSFlexGrid.

a) Selecciona el objeto MSFlexGrid, en su propiedad DataSource selecciona Data1, modifica su propiedad Cols a 5, cambia su propiedad Rows a 3.

Corre el programa para comprobar que las conexiones se realizaron correctamente y que se pueden ver los registros en las cajas de texto correspondientes y en el MSFlexGrid.

Codificando

Códigos del formulario Productos:

Private Sub Form_Load()

Me.Data1.Refresh

For t = 0 To MSFlexGrid1.Cols – 1

MSFlexGrid1.FixedAlignment(t) = 4

Next t

MSFlexGrid1.ForeColor = &H40C0&

MSFlexGrid1.ColWidth(0) = 350

MSFlexGrid1.ColWidth(1) = 1100

MSFlexGrid1.ColWidth(2) = 1500

MSFlexGrid1.ColWidth(3) = 900

MSFlexGrid1.ColWidth(4) = 1500

Me.Text1.Enabled = False

End Sub

Para centrar el encabezado de las columnas, determinar la anchura de las columnas y usar texto café en el MSFlexGrid, deshabilitar la caja de texto1 ya que este campo no será capturado ni editable por el usuario.

Private Sub Form_Activate()

If Data1.Recordset.BOF And Data1.Recordset.EOF Then

If MsgBox("No hay Registros en la Base de Datos" + Chr(13) + "Vamos a Introducir el Primer Registro", vbExclamation + vbOKOnly, "Aviso Importante") = vbOK Then

Data2.RecordSource = "select max(nodeparte) as losproductos from productos"

Data2.Refresh

Data1.Recordset.AddNew

If IsNull(Data2.Recordset!losproductos) Then

Text1 = 1

Text1.Enabled = False

Text2.SetFocus

Text3 = ""

Text4 = ""

Else

Text1 = Data2.Recordset!losproductos + 1

Text1.Enabled = False

Text2.SetFocus

Text3 = ""

Text4 = ""

MSFlexGrid1.Row = 1

End If

End If

End If

Dim w As Integer

MSFlexGrid1.Row = 0

For w = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols – 1

MSFlexGrid1.Col = w

MSFlexGrid1.CellFontBold = True

MSFlexGrid1.CellForeColor = vbBlue

Next w

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

End Sub

Para poner en negritas y color azul el título de las columnas del MSFlexGrid.

Código del menú Archivo, Volver al Menú:

Private Sub volveralmenu_Click()

frmproductos.Hide

frminicio.Show

End Sub

Para volver al menú principal

Código del botón Agregar Producto:

Private Sub cmdagregarreg_Click()

On Error GoTo Err_cmdagregarreg_Click

Me.Data1.Refresh

Me.Data2.RecordSource = "select max(nodeparte) as losproductos from productos"

Me.Data2.Refresh

Me.Data1.Recordset.AddNew

Me.MSFlexGrid1.Row = 0

If IsNull(Data2.Recordset!losproductos) Then

Me.Text1 = 1

Me.Text1.Enabled = False

Me.Text2.SetFocus

Else

Me.Text1 = Data2.Recordset!losproductos + 1

Me.Text1.Enabled = False

Me.Text2.SetFocus

End If

Exit_cmdagregarreg_Click:

Exit Sub

Err_cmdagregarreg_Click:

MsgBox "Err.Description"

Resume Exit_cmdagregarreg_Click

End Sub

Para mediante que el data2 obtener el número de registro o producto más alto y agregarle una unidad, de manera que este número de producto no se repita y se mostrará automáticamente, el usuario iniciará su captura de datos en la caja de texto2.

Código del botón Guardar Producto:

Private Sub cmdguardarreg_Click()

If Text2 = "" Then

MsgBox "Por favor Introduce la Descripción", vbOKOnly, "Alta de Productos"

Text2.SetFocus

Exit Sub

End If

If Text3 = "" Then

MsgBox "Por favor Introduce el Costo", vbOKOnly, "Alta de Productos"

Text3.SetFocus

Exit Sub

End If

If Text4 = "" Then

MsgBox "Por favor Introduce la Cantidad Mínima", vbOKOnly, "Alta de Productos"

Text4.SetFocus

Exit Sub

End If

Dim z As Long

z = Text1

Data1.UpdateRecord

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "El Producto Número: " & z & Chr(13) + "Se Guardó en la Base de Datos" + Chr(13) + "Con Todos los Datos Completos", vbInformation, "Alta de Productos"

End Sub

Para guardar el registro en la base de datos y notificar al usuario en caso de no completar un campo.

Código del botón Buscar Producto:

Private Sub cmdbuscarreg_Click()

Dim g As Integer

g = Val(InputBox("Introduce el Número del Producto que Buscas", "Búsqueda de Productos"))

Data1.Recordset.FindFirst "nodeparte=" & g

If Data1.Recordset.NoMatch Then

MsgBox "El Producto Número: " & g & " No está en la Base de Datos", vbExclamation, "Búsqueda de Productos"

End If

End Sub

Para realizar búsquedas de registros y notificar al usuario si no se halla en la base de datos.

Código del botón Eliminar Producto:

Private Sub cmdeliminarreg_Click()

If Data1.Recordset.EOF = False And Data1.Recordset.BOF = False Then

If MsgBox("¿Estás Seguro de Eliminar el Producto Número: " & Text1 & "?", vbCritical + vbYesNo, "Eliminación de Productos") = vbYes Then

Data1.Recordset.Delete

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "Muy Bien, Eliminaste el Producto", vbExclamation, "Eliminación de Productos"

Else

MsgBox "No se Eliminó el Producto Número: " & Text1, vbExclamation, "Eliminación de Productos"

Text1 = ""

Text2 = "'"

Text3 = "'"

Text4 = ""

End If

End If

End Sub

Para eliminar registros y notificar al usuario.

Código de la caja de texto1 (Número de parte):

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Para avanzar con Enter a la siguiente caja de texto

Código de la caja de texto2 (Descripción):

Private Sub Text2_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Para introducir sólo mayúsculas y avanzar a la siguiente caja de texto con Enter.

Código de la caja de texto3 (Costo):

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Para avanzar con Enter a la siguiente caja de texto

Código de la caja de texto4 (Cantidad Mínima):

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.cmdguardarreg.SetFocus

End If

End Sub

Para avanzar con Enter al botón Guardar Producto.

Formulario Entradas de los Productos

En el formulario coloca seis etiquetas, seis cajas de texto, dos controles Data, un MSFlexGrid y cuatro botones como se ve a continuación.

1. Conectando los controles Data

• a) Selecciona cada uno de los controles Data y modifica sus propiedades como sigue:

• b) DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (inventario) en donde se halla la tabla que vamos a conectar.

• c) RecordSource: selecciona el nombre de la tabla (entradas) cuyos campos se mostrarán en el formulario.

2. Conectando las cajas de texto

• a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

• b) DataSource: selecciona Data1.

• c) DataField: selecciona el nombre del campo de la tabla -que corresponda con la etiqueta – que se mostrará en la caja de texto.

• d) Repite los pasos con cada caja de texto del formulario.

3. Conectando el MSFlexGrid.

a) Selecciona el objeto MSFlexGrid, en su propiedad DataSource selecciona Data1, modifica su propiedad Cols a 7, cambia su propiedad Rows a 3.

Codificando

Código del formulario Entradas:

Private Sub Form_Load()

MSFlexGrid1.ColWidth(0) = 350

MSFlexGrid1.ColWidth(1) = 1000

MSFlexGrid1.ColWidth(2) = 1100

MSFlexGrid1.ColWidth(3) = 1000

MSFlexGrid1.ColWidth(4) = 1550

MSFlexGrid1.ColWidth(5) = 800

MSFlexGrid1.ColWidth(6) = 800

Text1.Enabled = False

End Sub

Para determinar la anchura de las columnas del MSFlexGrid y deshabilitar la caja de texto1 ya que este campo no será capturado ni editable por el usuario.

Código del menú Archivo, Volver al Menú:

Private Sub volveralmenu_Click()

frmentradas.Hide

frminicio.Show

End Sub

Para volver al menú principal

Código del botón Agregar Entrada:

Private Sub Command1_Click()

Data2.RecordSource = "select max(nodeentrada) as lasentradas from entradas"

Data2.Refresh

Data1.Recordset.AddNew

If IsNull(Data2.Recordset!lasentradas) Then

Text1 = 1

Else

Text1 = Data2.Recordset!lasentradas + 1

End If

Text1.Enabled = False

Text2.SetFocus

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Para mediante el data2 obtener el número de registro o producto más alto y agregarle una unidad, de manera que este número se mostrará automáticamente, el usuario iniciará su captura de datos en la caja de texto2.

Código del botón Guardar Entrada:

Private Sub Command2_Click()

If Text2 = "" Then

MsgBox "Por Favor Introduce la Fecha", , "Aviso Importante"

Text2.SetFocus

Exit Sub

End If

If Text3 = "" Then

MsgBox "Por Favor Introduce el Número de Parte", , "Aviso Importante"

Text3.SetFocus

Exit Sub

End If

If Text4 = "" Then

MsgBox "Por Favor Introduce la Descripción", , "Aviso Importante"

Text4.SetFocus

Exit Sub

End If

If Text5 = "" Then

MsgBox "Por Favor Introduce la Cantidad", , "Aviso Importante"

Text5.SetFocus

Exit Sub

End If

If Text6 = "" Then

MsgBox "Por Favor Introduce el Costo", , "Aviso Importante"

Text6.SetFocus

Exit Sub

End If

Dim x As Integer

x = Val(Text3)

frmproductos.Data1.Recordset.FindFirst "nodeparte=" & x

If frmproductos.Data1.Recordset.NoMatch Then

MsgBox "El Producto Número: " & x & " No está en la Base de Datos", vbCritical, "Agregando Entradas"

Text3.SetFocus

Exit Sub

End If

Dim e As Long

e = Val(Text1)

Data1.UpdateRecord

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "La Entrada Número: " & e & " se Guardó en la Base de Datos", vbExclamation, "Agregando Entradas"

End Sub

Para guardar el registro en la base de datos y notificar al usuario cuando un número de parte no se halle en la base de datos y cuando campo no sea llenado.

Código del botón Buscar Entrada:

Private Sub Command3_Click()

Dim j As Integer

j = Val(InputBox("Introduce el Número de la Entrada que Buscas", "Búsqueda de Entradas"))

Data1.Recordset.FindFirst "nodeentrada=" & j

If Data1.Recordset.NoMatch Then

MsgBox "La Entrada Número: " & j & " No está en la Base de Datos", vbExclamation, "Búsqueda de Entradas"

End If

End Sub

Para realizar búsquedas de registros y notificar al usuario si no se halla en la base de datos.

Código del botón Eliminar Entrada:

Private Sub Command4_Click()

If MsgBox("¿Estás Seguro de Eliminar la Entrada Número: " & Text1 & "?", vbCritical + vbYesNo, "Eliminación de Entradas") = vbYes Then

Data1.Recordset.Delete

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "Muy Bien, Eliminaste la Entrada", vbExclamation, "Eliminación de Entradas"

Else

MsgBox "No se Eliminó la Entrada Número: " & Text1, vbExclamation, "Eliminación de Entradas"

End If

End Sub

Para eliminar registros y notificar al usuario.

Código de la caja de texto4 (Descripción):

Private Sub Text4_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Para introducir sólo mayúsculas y avanzar a la siguiente caja de texto con Enter.

Formulario Salidas de los Productos

En el formulario coloca seis etiquetas, seis cajas de texto, dos controles Data, un MSFlexGrid y cuatro botones como se ve a continuación.

1. Conectando los controles Data

• a) Selecciona cada uno de los controles Data y modifica sus propiedades como sigue:

• b) DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (inventario) en donde se halla la tabla que vamos a conectar.

• c) RecordSource: selecciona el nombre de la tabla (salidas) cuyos campos se mostrarán en el formulario.

2. Conectando las cajas de texto

• a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

• b) DataSource: selecciona Data1.

• c) DataField: selecciona el nombre del campo de la tabla -que corresponda con la etiqueta – que se mostrará en la caja de texto.

• d) Repite los pasos con cada caja de texto del formulario.

3. Conectando el MSFlexGrid.

a) Selecciona el objeto MSFlexGrid, en su propiedad DataSource selecciona Data1, modifica su propiedad Cols a 7, cambia su propiedad Rows a 3.

Codificando

Código del formulario Salidas:

Private Sub Form_Load()

MSFlexGrid1.ColWidth(0) = 350

MSFlexGrid1.ColWidth(1) = 1000

MSFlexGrid1.ColWidth(2) = 1100

MSFlexGrid1.ColWidth(3) = 1000

MSFlexGrid1.ColWidth(4) = 1550

MSFlexGrid1.ColWidth(5) = 800

MSFlexGrid1.ColWidth(6) = 800

Text1.Enabled = False

End Sub

Para determinar la anchura de las columnas del MSFlexGrid y deshabilitar la caja de texto1 ya que este campo no será capturado ni editable por el usuario.

Código del menú Archivo, Volver al Menú:

Private Sub volveralmenu_Click()

frmsalidas.Hide

frminicio.Show

End Sub

Para volver al menú principal

Código del botón Agregar Salida:

Private Sub Command1_Click()

Data2.RecordSource = "select max(nodesalida) as lassalidas from salidas"

Data2.Refresh

Data1.Recordset.AddNew

If IsNull(Data2.Recordset!lassalidas) Then

Text1 = 1

Else

Text1 = Data2.Recordset!lassalidas + 1

End If

Text1.Enabled = False

Text2.SetFocus

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""End Sub

Para mediante el data2 obtener el número de registro o producto más alto y agregarle una unidad, de manera que este número se mostrará automáticamente, el usuario iniciará su captura de datos en la caja de texto2.

Código del botón Guardar Salida:

Private Sub Command2_Click()

If Text2 = "" Then

MsgBox "Por Favor Introduce la Fecha", , "Aviso Importante"

Text2.SetFocus

Exit Sub

End If

If Text3 = "" Then

MsgBox "Por Favor Introduce el Número de Parte", , "Aviso Importante"

Text3.SetFocus

Exit Sub

End If

If Text4 = "" Then

MsgBox "Por Favor Introduce la Descripción", , "Aviso Importante"

Text4.SetFocus

Exit Sub

End If

If Text5 = "" Then

MsgBox "Por Favor Introduce la Cantidad", , "Aviso Importante"

Text5.SetFocus

Exit Sub

End If

If Text6 = "" Then

MsgBox "Por Favor Introduce el Costo", , "Aviso Importante"

Text6.SetFocus

Exit Sub

End If

Dim w As Long

w = Val(Text1)

Data1.UpdateRecord

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "La Salida Número: " & w & " se Guardó en la Base de Datos", vbExclamation, "Agregando Salidas"

End Sub

Para guardar el registro en la base de datos y notificar al usuario cuando un campo no sea llenado.

Código del botón Buscar Salida:

Private Sub Command3_Click()

Dim c As Integer

c = Val(InputBox("Introduce el Número de la Salida que Buscas", "Búsqueda de Salidas"))

Data1.Recordset.FindFirst "nodesalida=" & c

If Data1.Recordset.NoMatch Then

MsgBox "La Salida Número: " & c & " No está en la Base de Datos", vbExclamation, "Búsqueda de Salidas"

End If

End Sub

Para realizar búsquedas de registros y notificar al usuario si no se halla en la base de datos.

Código del botón Eliminar Salida:

Private Sub Command4_Click()

If MsgBox("¿Estás Seguro de Eliminar la Salida Número: " & Text1 & "?", vbCritical + vbYesNo, "Eliminación de Salidas") = vbYes Then

Data1.Recordset.Delete

Data1.Refresh

MSFlexGrid1.Refresh

MsgBox "Muy Bien, Eliminaste la Salida", vbExclamation, "Eliminación de Salidas"

Else

MsgBox "No se Eliminó la Salida Número: " & Text1, vbExclamation, "Eliminación de Salidas"

End If

End Sub

Para eliminar registros y notificar al usuario.

Código de la caja de texto4 (Descripción):

Private Sub Text4_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Para introducir sólo mayúsculas y avanzar a la siguiente caja de texto con Enter.

Formulario Inventario de los Productos

En el formulario coloca seis etiquetas, seis cajas de texto, tres controles Data y un botón como se ve a continuación.

1. Conectando los controles Data

• a) Selecciona cada uno de los controles Data y modifica sus propiedades como sigue:

• b) DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (inventario) en donde se halla la tabla que vamos a conectar.

• c) RecordSource: cada control data se conectará a una tabla diferente, selecciona el nombre de la tabla (productos, entradas y salidas).

• d) Modifica la propiedad Visible de los controles data a False.

2. Conectando las cajas de texto

• a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

• b) DataSource: selecciona Data1.

• c) DataField: selecciona el nombre del campo de la tabla -que corresponda con la etiqueta – que se mostrará en la caja de texto.

• d) Únicamente se conectarán las tres primeras cajas de texto al control Data1.

Codificando

Código del formulario Inventario de los Productos:

Private Sub Form_Load()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

End Sub

Para deshabilitar las cajas de texto ya que los campos serán sólo para consulta.

Código del menú Archivo, Volver al Menú:

Private Sub volveralmenu_Click()

frminventario.Hide

frminicio.Show

End Sub

Para volver al menú principal

Código del botón Buscar Producto:

Private Sub Command1_Click()

Dim t As Integer

t = Val(InputBox("Introduce el Número del Producto que Buscas", "Búsqueda de Productos"))

Data1.Recordset.FindFirst "nodeparte=" & t

Data2.RecordSource = "select sum(cantidad) as totalentradas from entradas where nodeparte=" & Text1

Data2.Refresh

If IsNull(Data2.Recordset!totalentradas) Then

MsgBox "El Producto Número: " & t & " No Tiene Entradas", vbCritical, "Aviso Importante"

Text4 = ""

Exit Sub

Else

Text4 = Data2.Recordset!totalentradas

End If

Data3.RecordSource = "select sum(cantidad) as totalsalidas from salidas where nodeparte=" & Text1

Data3.Refresh

If IsNull(Data3.Recordset!totalsalidas) Then

MsgBox "El Producto Número: " & t & " No Tiene Salidas", vbCritical, "Aviso Importante"

Text5 = ""

Exit Sub

Else

Text5 = Data3.Recordset!totalsalidas

End If

Text6 = Text4 – Text5

If Data1.Recordset.NoMatch Then

MsgBox "El Producto Número: " & t & " No está en la Base de Datos", vbExclamation, "Búsqueda de Productos"

End IfEnd Sub

El control data1 mostrará los datos del registro en las cajas de texto uno a tres, el control data2 mostrará la suma de las entradas en la caja de texto cuatro, el control data3 mostrará la suma de las salidas en la caja de texto cinco y la caja de texto 6 mostrará el inventario.

En el tutorial "Cómo crear una base de datos en Access con Visual Basic" publicado en la página: www.abcdatos.com/tutoriales/tutorial/z6124.html se hallan instrucciones detalladas sobre cómo crear los reportes que sean necesarios. Espero que este tutorial sea de interés y ayuda para muchos.

Tutorial creado por: Lic. Jorge Alvarez S.

[email protected]

Enviado por:

Rafael Freites Gonzalez