Actualizar registros usando la sentencia SQL UPDATE en VBA

sql-update-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 borrar 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 la 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.

Por último, 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.

Un saludo y hasta la próxima.

Descarga el archivo del ejemplo

0 comentarios

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.

Quizá te interese,

Contacto