Numerar todos los registros de una tabla en Microsoft Access

Escrito por Administrador

20 de marzo de 2023

Seguro que en más de una ocasión has necesitado numerar los registros de una tabla ya creada en Microsoft Access. No sé si lo conseguiste hacer o no, pero aquí te enseño una manera muy sencilla de conseguirlo.

Supongamos que tenemos una tabla como la de la figura, con todos los campos rellenos menos el de ID,

saber-usuarios-conectados-base-datos

He creado un formulario con un solo botón que, al pulsarlo, numerará todos los registros de la tabla por orden,

saber-usuarios-conectados-base-datos

El código que hay detrás del botón es el siguiente,

Private Sub Consecutivo_Click()

'Dimensionamos las variables

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim factura As String

'Creamos RecordSet

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Select * from Clientes")

'Inicializamos la variable contador y recorremos todos los registros del RecordSet

rst.MoveFirst
contador = 1

Do Until rst.EOF

'Actualizamos el campo ID de la tabla

rst.Edit
rst!Id = contador
rst.Update
rst.MoveNext

contador = contador + 1

Loop

End Sub

Como veis, he creado un RecordSet con todos los registros de la tabla "Clientes" y lo vamos recorriendo actualizando el valor del campo "ID". Para ello, uso una variable llamada contador, que empieza con valor 1, y en cada iteración aumenta en una unidad.

Finalmente, la tabla queda de la siguiente manera,

saber-usuarios-conectados-base-datos

Después

Espero que este ejemplo te ayude a numerar los registros de una tabla que hayas creado en Microsoft Access 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