Hoy vamos a aprender a borrar registros de una tabla usando la sentencia SQL DELETE en VBA. ¡Es muy fácil!
He preparado un ejemplo muy completo, con el que podremos añadir registros a una tabla y, posteriormente, borrarlos uno a uno seleccionándolos desde un formulario.
En el archivo (que se encuentra adjunto más abajo), encontraréis una tabla llamada "Empleados" y dos formularios llamados "Añadir empleados" y "Eliminar empleados".
Vamos a centrarnos en el formulario "Eliminar empleados", que es el que nos interesa en este post.
Para borrar un registro introducido, 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". Este campo está bloqueado porque solo recupera información a partir de los apellidos, usando el comando DLookUp como ya vimos en otro post.
Private Sub Apellidos_AfterUpdate()
'Recuperamos el nombre del empleado a partir de los apellidos
Form!Nombre = DLookup("Nombre", "Empleados", "Apellidos=Form!Apellidos")
End Sub
El código a implementar en el botón Eliminar para borrar el registro seleccionado es el siguiente,
Private Sub Eliminar_Click()
'Borramos el empleado seleccionado de la tabla Empleados
Dim dbs As DAO.Database
Set dbs = CurrentDb()
dbs.Execute "DELETE from Empleados Where apellidos='" & Form!Apellidos & "'"
'Limpiamos los campos
Form!Nombre = ClearContents
Form!Apellidos = ClearContents
End Sub
Si pulsamos ahora el botón Eliminar, la información del empleado seleccionado será borrada de la tabla "Empleados".
Espero que con este ejemplo hayas aprendido a borrar registros de una tabla usando la sentencia SQL DELETE en VBA.
Además, os dejo dos enlaces donde explico cómo insertar registros usando la sentencia SQL INSERT en VBA y cómo actualizar 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
Últimas publicaciones
0 comentarios