Actualizar grupo de registros aleatoriamente Access VBA
Publicado por scontacto (2 intervenciones) el 18/07/2018 02:39:41
Hola a todos en el foro. Es posible actualizar grupos de registros aleatoriamente? es decir, que se ejecute una función y dentro de un Recordset de 1000 registros, primero actualice 5 registros, asignando al campo CODLFA un consecutivo numérico, luego actualice 7 registros asignando el siguiente, luego actualice 3 registros etc.?
Lo estoy viendo mediante este código, pero no logro adaptar la variable de aleatoriedad (LRandomNumber ) en el procedimiento. Gracias por sus respuestas.
Lo estoy viendo mediante este código, pero no logro adaptar la variable de aleatoriedad (LRandomNumber ) en el procedimiento. Gracias por sus respuestas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
' Código
' ------ >>
Private Sub CmdActualizaCod_Click()
Dim DB As DAO.Database
Dim SQL As String
Dim vFacIni As Double
Dim RsLFA As DAO.Recordset
Dim LRandomNumber As Integer
SQL = "SELECT * FROM F_LFA_ABRIL WHERE FECHA BETWEEN # " & Format(Me.TxtFechaIni, "mm/dd/yyyy") & _
"# AND #" & Format(Me.TxtFechaFin, "mm/dd/yyyy") & "#"
vFacIni = Me.TxtInicial.Value
Set DB = CurrentDb
Set RsLFA = DB.OpenRecordset(SQL, dbOpenDynaset)
RsLFA.MoveFirst '
vFacIni = Me.TxtInicial ' El codigo de documento con el que debe iniciar a actualizar CODLFA
LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El numero de registros a actualizar (Aleatorio)
Do While Not RsLFA.EOF
RsLFA.Edit
RsLFA.CODLFA = "" ' Campo a actualizar
RsLFA.Update
' Estoy lanzando un Msgbox para verificar que se recorra correctamente
MsgBox "Art?culo : " & RsLFA!CODART & " - " & RsLFA!DESLFA & "Doc No. " & vFacIni & " Registro Aleatorios : " & LRandomNumber
RsLFA.MoveNext
vFacIni = vFacIni + 1 ' Aumento en uno (1) el código a actualizar
LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El número de registros a actualizar (Aleatoriamente)
Loop
RsLFA.Close
Set RsLFA = Nothing
Set DB = Nothing
End Sub
Valora esta pregunta
0