12.170 cursos gratis
8.769.741 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Access con Visual Basic

Autor: Jorge Álvarez
Curso:
9,64/10 (14 opiniones) |13316 alumnos|Fecha publicaciýn: 01/07/2009
Envýa un mensaje al autor

Capýtulo 8:

 Programar opciones del menú

Programando las opciones del menú

Ahora codificaremos en Visual Basic las opciones del menú Movimientos para eso abre el menú y haz clic en cada una de las opciones del menú, el código para las opciones son:

a) Opción Nuevo, el cual servirá para crear un nuevo registro en la tabla, el código es el siguiente:
Private Sub nuevo_Click ()
Data1.Recordset.AddNew
End Sub

P.D. Esta opción debe presionarse antes de dar de alta un nuevo registro en la base de datos.

b) Opción Guardar, el cual servirá para guardar un nuevo registro en la tabla, el código es el siguiente:
Private Sub guardar_Click()
Data1.UpdateRecord
Data1.Refresh
MsgBox "El Registro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"
End Sub

P.D. Esta opción debe presionarse una vez que se haya completado la información del registro.>

c) Opción Buscar, el cual servirá para buscar un registro en la tabla, el código es el siguiente:
Private Sub buscar_Click()
Dim m As Long
m = InputBox("Introduce la Matrícula que Buscas")
Data1.Recordset.FindFirst "matricula=" & m
If Data1.Recordset.NoMatch Then
MsgBox "La Matrícula Número: " & m & " No está en la Base de Datos", vbExclamation, "Búsquedas de Matrícula"
End If
End Sub

Nota: aquí declaramos una variable (m) que representará el número del registro (matricula) que estemos buscando. Es de vital importancia de que te asegures de que en la línea subrayada la palabra "Matrícula" esté escrita exactamente como llamaste el campo "matricula" al crear la tabla.

d) Opción Eliminar, el cual servirá para eliminar un registro de la tabla, el código es el siguiente:
Private Sub Eliminar_Click()
If MsgBox("¿Quieres Eliminar la Matrícula Número: " & Text1 & "?", 16 + 4) = 6 Then
Data1.Recordset.Delete
Data1.Refresh
Text1.SetFocus
MsgBox "Se Eliminó la Matrícula", vbCritical, "Aviso Importante"
Else
MsgBox "No se Eliminó la Matrícula Número: " & Text1, vbExclamation, "Aviso Importante"
End If
End Sub

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

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratarý tus datos para realizar acciones promocionales (výa email y/o telýfono).
En la polýtica de privacidad conocerýs tu derechos y gestionarýs la baja.

Cursos similares a Access con Visual Basic



  • Výdeo
  • Alumnos
  • Valoraciýn
  • Cursos
1. Visual Basic 6. Curso de introducción
Tutorial de Visual Basic 6 . El primer punto de este curso serán los controles y... [15/04/09]
32.062  
2. Informática. Visual Basic
¿Necesitas que tu sistema de login te recuerde tu nombre de usuario y contraseña?... [12/04/11]
6.769
Curso con video
3. Cómo crear una base de datos en Access con Visual Basic
Puedes organizar todas tus colecciones o lo que desees creando tus propias bases de... [12/01/06]
84.426  

ýQuý es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail