Borrar automáticamente determinados registros de una tabla en Microsoft Access

Escrito por Administrador

26 de abril de 2023

¿Cómo podemos borrar automáticamente determinados registros de una tabla de Microsoft Access que cumplan un criterio? Si alguna vez te has hecho esta pregunta, sigue leyendo, porque aquí tienes la respuesta.

Partimos de una tabla muy sencillita, con dos campos solamente,

saber-usuarios-conectados-base-datos

He creado un formulario con los dos campos de la tabla anterior. Al seleccionar un número, el nombre se recupera automáticamente de la tabla anterior

Por otro lado, al pulsar el botón Borrar, borraremos los registros cuyo Número coincida con el que hayamos seleccionado en el formulario.

saber-usuarios-conectados-base-datos

A continuación, os dejo el código del botón Borrar, y el que recupera el nombre al seleccionar un número usando el comando DlookUp,

Private Sub Form_Load()

'Inicializamos el campo Número al abrir el formulario

Numero = Null

End Sub

Private Sub Borrar_Click()

'Comprobamos que el campo Número se encuentra relleno

If IsNull(Me.Numero) Then

MsgBox "Es necesario rellenar el campo Número"
Exit Sub

End If

'Borramos los registros de la tabla Productos que coincidan con el valor introducido en el campo Número

Dim dbs As DAO.Database

Set dbs = CurrentDb()
dbs.Execute "DELETE * from Productos Where Numero='" & Me.Numero & "'"

'Mostramos un mensaje de tarea finalizada

MsgBox "Operación realizada con éxito"

Numero.Requery
Numero = Null
Nombre = ClearConntent

End Sub

Private Sub Numero_AfterUpdate()

'Recuperamos el Nombre del producto seleccionado de la tabla Productos

Me.Nombre.Value = DLookup("[Nombre]", "[Productos]", "[Numero]='" & Me.Numero & "'")

End Sub

Con la primera parte del código, inicializamos el campo Número al abrir el formulario.

En la segunda (tras pulsar el botón Borrar), comprobamos que el campo Número se encuentra relleno. Después, usando la sentencia SQL DELETE, borramos los registros correspondientes al número que hemos seleccionado en el formulario.

La tercera función, tras actualizar el campo Número, recupera automáticamente el Nombre correspondiente.

Si, por ejemplo, seleccionamos el número 1, vemos cómo se recupera el nombre de manera automática. Si pulsamos el botón Borrar,

saber-usuarios-conectados-base-datos

Vemos cómo se han eliminado de la tabla los registros corrspondientes al número 1,

saber-usuarios-conectados-base-datos

Espero que este ejemplo te ayude a borrar automáticamente determinados registros de una tabla que hayas creado en Microsoft Access que cumplan un criterio de una manera sencilla.

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.

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