Access - VALOR EN CAMPO

estimados, tengo una tabla con 2 millones de registros y tengo un campo llamado region que quiero poblar (tiene los 2 millones de registros vacios)
Este poblamiento debe ser aleatorio con valores que van desde 1 a 15
alguien podria darme una idea

gracias de antemano por la ayuda
saludos desde Chile

Eduardo

Hola Eduardo. Despues de tiempo que te veo por LWP. Ya no "vas" mucho al foro de excel amigo :)

Bueno, espero esto se entienda, no se sea lo idoneo, pero te funcionara, eso si, suponiendo que los registross de tu "campo1" son diferentes

Dim rcst1 As ADODB.Recordset, rcst2 As ADODB.Recordset
Dim Sql1$, Sql2$
Dim RecordS() As Variant
Dim numeroaleatorio As Integer
Dim x As Long

Set rcst1 = New ADODB.Recordset
Set rcst2 = New ADODB.Recordset

Sql1$ = "Select * From Tabla2"

With rcst1
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql1$, CurrentProject.Connection, , , adCmdText
End With

RecordS = rcst1.GetRows

For x = 0 To rcst1.RecordCount - 1

numeroaleatorio = Int(Rnd * 15)

If numeroaleatorio = 0 Then
numeroaleatorio = 1
End If

Sql2$ = "update Tabla2 set Tabla2.Campo2=" & numeroaleatorio & " where Tabla2.Campo1='" & RecordS(0, x) & "'"

With rcst2
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql2$, CurrentProject.Connection, , , adCmdText
End With

Next

Set rcst1 = Nothing
Set rcst2 = Nothing

Abraham