Actualizar registros usando la sentencia SQL UPDATE en VBA

Escrito por Administrador

11 de noviembre de 2021

Hoy vamos a aprender cómo actualizar los registros de una tabla usando la sentencia SQL UPDATE en VBA.

En el archivo que usaremos de ejemplo, tenemos todas las funcionalidades que nos hacen falta para gestionar una base de datos: añadir, borrar y actualizar registros.

En el archivo (que se encuentra adjunto más abajo), encontraréis una tabla llamada "Empleados" y tres formularios llamados "Añadir empleados""Eliminar empleados" y "Actualizar empleados".

solo-letras-vba
solo-letras-vba
solo-letras-vba
solo-letras-vba

Vamos a centrarnos en el formulario "Actualizar empleados", que es el que nos interesa en este post.

Para actualizar un registro de la base de datos, seleccionaremos en el desplegable del campo "Apellidos" el empleado a actualizar de la base de datos.

Una vez seleccionado, se recupera automáticamente el nombre de dicho trabajador en el campo "Nombre", así como su edad en el campo "Edad". Estos campos recuperan información a partir de los apellidos, usando el comando DLookUp como ya vimos en otro post.

Private Sub Apellidos_AfterUpdate()

'Recuperamos el nombre y la edad del empleado a partir de los apellidos

Form!Nombre = DLookup("Nombre", "Empleados", "Apellidos=Form!Apellidos")
Form!Edad = DLookup("Edad", "Empleados", "Apellidos=Form!Apellidos")

End Sub

solo-letras-vba

El código a implementar en el botón Actualizar para actualizar el registro seleccionado es el siguiente,

Private Sub Actualizar_Click()

'Actualizamos los datos del empleado seleccionado en la tabla Empleados

Dim dbs As DAO.Database

Set dbs = CurrentDb()

dbs.Execute "UPDATE Empleados Set Nombre='" & Form!Nombre & "',Edad=" & Form!Edad & " Where apellidos='" & Form!Apellidos & "'"

'Mostramos un aviso de operación realizada con éxito

MsgBox "Operación realizada con éxito"

End Sub

Vamos a modificar el nombre y edad de una empleada, para comprobar el funcionamiento. En lugar de Ana, rellenaremos Ana María, y cambiaremos su edad a 24 años.

solo-letras-vba

Si pulsamos ahora el botón Actualizar, la información del empleado seleccionado será actualizada en la tabla "Empleados".

solo-letras-vba
solo-letras-vba

Espero que con este ejemplo hayas aprendido a actualizar registros de una tabla usando la sentencia SQL UPDATE en VBA.

Además, os dejo dos enlaces donde explico cómo insertar registros usando la sentencia SQL INSERT en VBA y cómo borrar registros usando la sentencia SQL UPDATE en VBA, por si os interesa.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Un saludo y hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

2 Comentarios

  1. Avatar

    Hola Rick!

    Me alegra saber que te ha sido de utilidad el post.

    El degradado no es más que una imagen precargada en el formulario con el alto del encabezado y el resto con fondo blanco. Después no tienes más que aplicar color al encabezado para darle el tono que más te guste.

    Saludos.

    Responder
  2. Avatar

    Que buen ejemplo, me ha servido mucho.

    A parte una pregunta.

    ¿Cómo le haces para ponerle esos colores como degradados en el encabezado donde están los botones guardar y cerrar?

    estoy aprendiendo access y eso se ve bien

    Responder

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

abril 2024
LMXJVSD
1234567
891011121314
15161718192021
22232425262728
2930 

Debates en el foro

Avatar
Formularios con ADO

Contacto