Opciones del menú  

Posted by Danny in

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.

0 comentarios

Publicar un comentario