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

Por favor, ayúdame y haz clic en el anuncio. Solo te lleva un segundo 😉

 


2 Comentarios

  1. Administrador

    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.

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

Quizá te interese,

Contacto