Fazer UPDATE em tabela com randomize

#1

Pessoal, estou desenvolvendo um código para atualização de uma tabela, onde realizo um filtro através de data inicial e final, após realizar a consulta, faço um update na tabela com valores randomizados entre um valor minimo e máximo, abaixo o código onde faço a consulta e estou tentando realizar a atualização dos valores randomizados e não estou conseguindo, preciso que seja executado linha por linha da tabela e quando estou fazendo, esta atualizando a tabela inteira.

Dim Tmin, Tmax
Dim Range
Dim RandomValue
Dim Inicio
Dim Fim

'==== LEITURA DOS PARÂMETROS DA TELA ===
DataIni = Screen.Item("DateIni").Value
DataFim = Screen.Item("DateFim").Value
Tmin = Screen.Item("Tmin").Value
Tmax = Screen.Item("Tmax").Value

'==== VALIDAÇÕES BÁSICAS ===
If Tmax <= Tmin Then
    MsgBox "Valor máximo da Temperatura deve ser maior que o valor mínimo."
    Exit Sub
End If
If DataFim < DataIni Then
    MsgBox "Data final deve ser maior ou igual à data inicial."
    Exit Sub
End If

'==== OBTÉM CONEXÃO DO BANCO PELO ELIPSE ====
Set Update = Screen.Item(“E3Browser1”).Item(“Update”)
Update.SetVariableValue “DataInicial”, DataIni
Update.SetVariableValue “DataFinal”, DataFim

Set rs = Screen.Item(“E3Browser1”).Item(“Consulta1”).GetADORecordset()
Inicio = Screen.Item(“E3Browser1”).CurSel

If rs.RecordCount > 0 Then
Fim = rs.RecordCount
else
Fim
End If

Randomize
Range = Tmax -(Tmin + 1)

'Exibe os valores
Screen.Item(“Inicial”).Value = Inicio
Screen.Item(“Fim”).Value = Fim

For i = Inicio to Fim Step 1
RandomValue = Round(((Range * Rnd) + Tmin),2)
Screen.Item(“Random”).Value = RandomValue
Update.SetVariableValue “Temp”, RandomValue
Update.Execute(True)
next

Set Update = Nothing
Screen.Item(“E3Browser1”).Requery()
MsgBox “Atualização realizada com sucesso.”