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".
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
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.
Si pulsamos ahora el botón Actualizar, la información del empleado seleccionado será actualizada en la tabla "Empleados".
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
Enviar un comentario
Últimas publicaciones
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.
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