Rellenar Campo con valor Aleatorio No Repetido

Tengo una tabla simple que unicamente dispone de los campos nombre, apellidos, edad y código. El campo código está vacío.
Necesitaría saber como puedo rellenar automáticamente el campo código (numérico) con cifras del 1 al 9400 (ya que existen 9400 registros) de forma aleatoria, y que estas cifras no se repitan.

1 Respuesta

Respuesta
1
Entiendo que quieres crear un proceso único para rellenar toda la tabla. Por si acaso siempre haz una copia de seguridad de la base de datos, o haz las pruebas en un archivo por separado. Primero crea una tabla nueva por ejemplo tabla2. En esta tabla pones un campo por ejemplo codigox cierras la tabla. En cualquier formulario pones un botón para lanzar código pondremos lo siguiente en ese botón:
Dim contador As Integer
Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tabla2")
Randomize
contador = 0
Do
contador = contador + 1
rs.AddNew
rs("codigox") = Int((9400 * Rnd) + 1)
rs.Update
Loop Until contador = 9400
rs.MoveFirst
Set rs2 = db.OpenRecordset("select * from tabla1")
Do
rs2.Edit
rs2("codigo") = rs("codigox")
rs2.Update
rs2.MoveNext
rs.MoveNext
Loop Until rs2.EOF
MsgBox "hecho"
Cuando acabe ya puedes borrar el código del botón, y la tabla2 temporal que hemos creado.
Gracias!
Funciona perfectamente!
Saludos.
Disculpame no hagas caso de la respuesta anterior porque sí te pondrá repetidos. Olvida lo de la tabla auxiliar nueva, te pongo un código que puedes poner en cualquier botón, haz las pruebas sobre una copia o haz copia de seguridad primero.
Tardará un poco porque buscará que no esté repetido,
Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim mivalor As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tabla1")
Randomize
Do
Do
libre = 0
mivalor = Int((9400 * Rnd) + 1)
Set rs2 = db.OpenRecordset("select codigo from tabla1 where codigo = " & mivalor)
If rs2.EOF And rs2.BOF Then libre = 1
Loop Until libre = 1
rs.Edit
rs("codigo") = mivalor
rs.Update
rs.MoveNext
Loop Until rs.EOF
MsgBox "hecho"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

PORQUE da error 3021 no hay reg. Activo

En este tema quedó pendiente de responder esta duda que ahora tengo yo. Reproduzco aquí: Hola fejr, Con un código como este podrás hacerlo, el valor se toma de una caja de texto llamada texto1 Dim db As Database Dim rs As DAO.Recordset Dim rs2 As...
1 respuesta

Copiar registros de una tabla a otra

Tengo una tabla rellena llamada Usuarios con los campos Nombre, Edad y Numero (un numero del 1 al 9400 diferente para cada registro, en total 9400 registros). Dispongo de otra tabla con la misma estructura pero vacía. Me interesaría un código que me...
1 respuesta

Trabajar con dos tablas de una misma MDB

Tengo dos tablas: Tabla 1: Personas Tabla 2: Trabajadores Lo que necesito es ir recoriendo la tabla 1 y los que cumplan una condición insertarlos en la tabla 2
2 respuestas

Duplicar registros de una tabla POR veces

Tengo una tabla con diferentes campos: Campo "articulo" de texto Campo "descripcion" de texto Cantidad campo numérico Necesito crear duplicados de los registros que hay en los campos artículos y descripción un número de veces igual al valor del campo...
1 respuesta

¿Cómo recorrer una consulta en VBA?

Se como recorrer una tabla e ir jugando con sus valores. Pero las consultas se me resisten y no se ni si siquiera se puede hacer. Ejemplo de como recorrer una tabla: 'Declaramos las variables Dim Tabla_mes As DAO.Recordset 'Creamos el recordset Set...
1 respuesta

Un Código para determinar el saldo

Alguien puede enviarme un código que me permita determinar el saldo de una cuenta contables. El problema que tengo es que manejo una BD access 2003, la cual almacena todo el movimiento contable y requiero emitir un reporte que me muestre el saldo...
1 respuesta

Consulta Días Hábiles y Festivos access

Después de haberme estudiado cada post de este asunto por toda la web, no he conseguido encontrar una solución a mi problema, por eso, he decido solicitarle ayuda. Actualmente tengo en Access una tabla llamada "Tabla1" con 2 campos Fecha 1 y Fecha 2...
2 respuestas

Crear contador

Necesito saber cómo puedo crear un contador mediante código. Tengo un formulario en el que se muestra una tabla y un contador en un cuadro de texto que debe mostrar el número de registros de la tabla, incrementando el contador en caso de añadir un...
1 respuesta

Añadir registro en access

Encontré el siguiente código en internet para añadir registro en un cuadro combinado, me en msgbox. Private Sub Lista52_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As...
1 respuesta

Problema al modificar datos access con vba

En un formulario de access tengo un campo de texto con Fecha de Ingreso de los trabajadores. Tengo que agregarle 28 días a esa fecha y guardarla en otro textbox usando este código:. Dim FechaInicio As Date Dim FechaTermino As Date FechaInicio =...
1 respuesta