Capítulo 7:

 Opciones del menú

Programando las opciones del menú

Ahora programaremos en Visual Basic las opciones del menú Movimientos para eso abre el menú y haz doble clic en cada una de las opciones del menú, las opciones son:

a) Nuevo, el cual servirá para crear nuevos registros en la tabla, el código es el siguiente:

Private Sub nuevo_Click ()

            Data1.Recordset.AddNew

            End Sub

b) Guardar, el cual servirá para guardar los nuevos registros en la tabla, el código es el siguiente:

Private Sub guardar_Click()

Data1.UpdateRecord

Data1.Refresh

End Sub

c) Buscar, el cual servirá para buscar un registro determinado en la tabla, el código es el siguiente:

Private Sub buscar_Click()

Dim r As Long

r = InputBox("Introduce la Matrícula que Buscas")

Data1.Recordset.FindFirst "Matrícula=" & r

End Sub

Nota: aquí declaramos una variable (r) que representará el número del registro que estemos buscando, y creamos una caja para introducir el número del registro en cuestión.

d) Eliminar, el cual servirá para eliminar un registro determinado de la tabla, el código es el siguiente:

Private Sub Eliminar_Click()

If MsgBox("Quieres Eliminar la Matrícula" & Text1, 16 + 4) = 6 Then

Data1.Recordset.Delete

Data1.Refresh

Text1.SetFocus

End If

End Sub

Nota: aquí creamos una caja de mensaje para confirmar la eliminación del registro.

Ahora corre tu programa con F5 dirígete al formulario y ahora podrás agregar, guardar, buscar  y eliminar registros de la base de datos de Access mediante Visual Basic.

Cursos similares a Cómo crear una base de datos en Access con Visual Basic

1. Cómo crear base de datos en Microsoft Access Microsoft Access es un sistema para crear bases de datos. Hacer una base datos... [19/01/12]				5
2. Tutorial para crear una base de datos (Visual Basic 6.0) El Visual Basic 6.0 es un lenguaje de programación dirigido por eventos, contiene... [14/02/12]				14
3. Cómo ocultar aplicaciones. Visual Basic Toma este curso de informática on-line y aprende a ocultar aplicaciones con... [17/03/11]				1.896