PROGRAMACIÓN DE BOTONES VBA EN ACCESS
BITÁCORA PARA PROGRAMACIÓN DE VISUAL BASIC EN ACCESS
Introducción:
Es un programa orientado a construir base de datos que nosotros requerimos.
Con respecto al lenguaje de Visual Basic, se dice que está orientado a los objetos, y con ello es un programa que también está dirigido a eventos para Microsoft.
Es importante aclarar que el programa Visual Basic solo funciona en Windows, y nos permite crear:
• Ventanas
• Menús
• Botones
• Controles
• Componentes
• Entre otros
Para programar desde cero en Visual Basic no es necesario adquirir conceptos de programación, pero si es recomendable revisar ejercicio resueltos y con ello conceptos.
Dentro de lo que es Visual Basic tenemos ventajas y desventajas:
Ventajas:
• Es aplicable para todos los sistemas de Windows.
• Se aprende a utilizarla con facilidad
• Se pueden implementar formularios dentro de lo que queramos diseñar
• El lenguaje utilizado es sencillo.
Desventajas:
• Dentro de las versiones que se lanzaron existen problemas en la programación
• Al ser una programación orientada a objetos perite que su soporte sea escaso
• Sin el sistema de Windows no es posible realizarla.
Programación:
• Ir al Inicio
Private Sub ComdIrInicio_Click()
Me.Recordset.MoveFist
End Sub
• Anterior
Private Sub ComdAnterior_Click()
Me.Recordset.MovePrevious
If Me.Recordset.BOF Then
Me.Recordset.MoveNext
MsgBox "Ya se encuentra en el primer registro"
End If
End Sub
• Siguiente
Private Sub ComdSiguiente_Click()
If Me.Recordset.EOF Then
Me.Recordset.MovePrevious
MsgBox "Ya se encuentra en el último registro"
End If
End Sub
• Ir al Final
Private Sub ComdIrFinal_Click ()
Me.Recordset.MoveLast
End Sub
• Nuevo
Private Sub ComdNuevo_Click()
DoCmd.GoToRecord , , acNewRec
Me.ComdGuardar.Enabled = True
End Sub
• Guardar
Private Sub ComdNuevo_Click()
DoCmd.RunCommand acCmdSaveRecord
Call HabilitarBotones
Me.ComdGuardar.Enabled = False
End Sub
• Formulario
Private Sub Form_Load()
Me.ComdGuardar.Enabled = False
End Sub
Módulo
Sub DeshabilitarBotones ()
With Form_PedidosProveedores
.ComdIrInicio.Enabled = False
. ComdAnterior.Enabled = False
.ComdSiguiente.Enabled = False
. ComdNuevo.Enabled = False
. ComdIrFinal.Enabled = False
End With
End Sub
Sub HabilitarBotones ()
With Form_PedidosProveedores
.ComdIrInicio.Enabled = True
. ComdAnterior.Enabled = True
.ComdSiguiente.Enabled = True
. ComdNuevo.Enabled = True
. ComdIrFinal.Enabled = True
End With
End Sub
Errores que se pueden presentar:
• Nombres de variables incorrectas
• Falta de paréntesis
• Palabras mal escritas
Glosario de Términos de programación:
Me: Formulario
Recordset: Conjunto de datos.
MoveFist: Comando que nos llevará al primer registro.
MovePrevious: Comando que nos llevara a un dato anterior.
If: Realiza validaciones según lo que nosotros queramos diseñar.
End If: Finaliza la condición If.
BOF: Comando que se utiliza para señalar un dato anterior.
EOF: Comando que se utiliza para señalar un dato siguiente.
MoveLast: Comando que nos llevará al último registro.
acNewRec: Permite agregar una nueva fila para registrar datos.
DoCmd.RunCommand: Se lo utiliza para ejecutar el comando.
acCmdSaveRecord: Este código es para guardar un registro.
Enabled = False: Significa que se va a deshabilitar los botones.
Enabled = True: Significa que se van a habilitar los botones.