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

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto