Cómo hacer una Base de Datos en Excel con Macros VBA - Parte 02 agregamos los botones Siguiente, Anterior, Inicio y Final
Hola estimados seguidores de la página Excel Cuántico, continuamos desarrollando nuestro proyecto "BASE DE DATOS EN EXCEL", en la primera parte vimos como codificar los botones: "Buscar, Guardar, Modificar y Eliminar", si todavía no lo revisaste presiona aquí. En esta oportunidad vamos a continuar agregando más botones a nuestro formulario.
Iniciamos agregando lo botones a nuestro formulario, para ello hacemos uso del "Cuadro de Herramientas" dentro de ello elegimos la opción "Botón de Comando" y arrastramos a nuestro formulario, seguido agregaremos iconos a los botones de esta manera obtenemos el siguiente resultado.
Ahora iniciaremos agregando la codificación a cada botón, nuestro primer botón a programar es "HABILITAR", que nos servirá para mostrar los botones que estamos agregando al formulario.
--------------------------------------------------------------------------------------------------------------------------
Private Sub CmdHabilitar_Click()
Dim uFila As Long
uFila = nReg(Hoja1, 4, 1) - 1
Call Inicio
Me.LblRegistro.Caption = 1
Me.LblTotal.Caption = uFila - 3
Me.Width = 389.25
End Sub
--------------------------------------------------------------------------------------------------------------------------
Como podemos ver en el procedimiento estamos llamando a la macro "INICIO", esta macro nos ayudará a mostrar los datos de nuestra hoja en el formulario, detallamos la codificación a continuación.
--------------------------------------------------------------------------------------------------------------------------
Sub Inicio()
Me.TxtCodigo.Text = Hoja1.Cells(M, 1)
Me.TxtDni.Text = Hoja1.Cells(M, 2)
Me.TxtApellidos.Text = Hoja1.Cells(M, 3)
Me.TxtNombres.Text = Hoja1.Cells(M, 4)
Me.CmbGrado.Text = Hoja1.Cells(M, 5)
Me.CmbSeccion.Text = Hoja1.Cells(M, 6)
End Sub
-------------------------------------------------------------------------------------------------------------------------
Para que no genere ningún tipo de error vamos agregar lo siguiente:
- Debemos declarar la Variable "M" como pública, para poder utilizar en todos los controles (Public M As Long)
- Asimismo, debemos agregar en el evento "UserForm_Initialize" lo siguiente:
- Me.Width = 312 (Le asignamos el valor de 312 porque es el ancho del formulario al inicio)
- M = 4 (Le asignamos el valor de 4 porque es la fila donde inicia los datos)
Si te queda la duda en donde agregar esta codificación no te preocupes al final del articulo vamos a agregar el Video Tutorial donde te enseñaremos paso a paso.
Continuando nos toca programar el botón "SIGUIENTE", este botón nos ayudará visualizar los datos del siguiente alumno.
------------------------------------------------------------------------------------------------------------------------
Private Sub CmdSiguiente_Click()
Dim uFila As Long
uFila = nReg(Hoja1, 4, 1) - 1
M = M + 1
If uFila >= M Then
Call Inicio
Me.LblRegistro.Caption = M - 3
Else
MsgBox ("Este es el último registro"), vbInformation, "Excel Cuantico"
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------
Ahora veremos la programación del botón "ANTERIOR", este botón nos ayuda a visualizar los datos del alumno anterior, de esta forma podemos movernos dentro de nuestra base de datos.
-------------------------------------------------------------------------------------------------------------------------
Private Sub CmdAnterior_Click()
M = M - 1
If 4 <= M Then
Call Inicio
Me.LblRegistro.Caption = M - 3
Else
MsgBox ("Este es el primer registro"), vbInformation, "Excel Cuantico"
End If
End Sub
------------------------------------------------------------------------------------------------------------------------
Seguimos programando los botones que agregamos a nuestro formulario "BASE DE DATOS", ahora nos toca el botón "INICIO", con este botón podremos ver el primer alumno de nuestra base de datos.
--------------------------------------------------------------------------------------------------------------------------
Private Sub CmdInicio_Click()
Dim uFila As Long
M = 4
uFila = nReg(Hoja1, 4, 1) - 1
Call Inicio
Me.LblRegistro.Caption = 1
Me.LblTotal.Caption = uFila - 3
End Sub
---------------------------------------------------------------------------------------------------------------------------
Continuando nos toca programar el botón "FINAL", con este botón podremos visualizar al último alumno de nuestra base de datos.
--------------------------------------------------------------------------------------------------------------------------
Private Sub CmdUltimo_Click()
Dim uFila As Long
uFila = nReg(Hoja1, 4, 1) - 1
M = uFila
Call Inicio
Me.LblRegistro.Caption = uFila - 3
Me.LblTotal.Caption = uFila - 3
End Sub
--------------------------------------------------------------------------------------------------------------------------
Por ultimo y no menos importante programaremos el botón "DESHABILITAR", este botón nos ayudará a ocultar los botones que acabamos de agregar y regresar el ancho del formulario a como estaba al inicio.
-------------------------------------------------------------------------------------------------------------------------
Private Sub CmdDeshabilitar_Click()
Me.Width = 312
Call Limpiar
Me.LblRegistro.Caption = ""
Me.LblTotal.Caption = ""
End Sub
--------------------------------------------------------------------------------------------------------------------------
Como observamos dentro del procedimiento llamamos a la macro "LIMIPIAR", esta macro ya la programamos en el artículo anterior, si deseas ver presiona aquí. Con esto llegamos al final del presente artículo, espero que estemos aportando un granito en tu aprendizaje, bendiciones.
VER VÍDEO TUTORIAL
Aquí puedes ver el vídeo tutorial de "Como hacer una base de datos - Part 02 con los botones "Siguiente, Anterior, Inicio y Último". Si deseas encontrar más vídeos tutoriales presiona aquí.
DESCARGAR MATERIAL DE TRABAJO
Para descargar el material de trabajo PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS
Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.
