Borrar registros usando la sentencia SQL DELETE en 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.

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

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.

Últimas publicaciones

Categorías

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto