Borrar registros usando la sentencia SQL DELETE en VBA

sql-delete-vba

Escrito por Administrador

10 de noviembre de 2021

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".

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

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

solo-letras-vba

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".

solo-letras-vba

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

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

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