[Resolvido]Dividir e pelo número de registro e apontar valor

Substitua o código do Alexandre por este. Após fazer a divisão vai percorrer o recodset verificando linha a linha qual é o nome de maior valor acima depois da divisão

* Aproveitando o tópico como fazer o código me trazer o resultado do menor valor utilizando a função DMin
Tentei a adaptar a função ao código mas não consigui

Ou seria melhor usar uma consulta em paralelo para trazer esta informação.

Dim vCalc As Double
Dim iCnt As Integer

If IsNull(Me.ValorTotal) Then
MsgBox "O valor n?o pode ser nulo.", vbExclamation, "Aviso"
Me.ValorTotal.SetFocus
Exit Sub
End If

If Me.ValorTotal <= 0 Then
MsgBox "O valor n?o pode ser menor ou igual a ZERO.", vbExclamation, "Aviso"
Me.ValorTotal.SetFocus
Exit Sub
End If


iCnt = Nz(DCount("*", "Tb_Valor"), 0)
vCalc = (Me.ValorTotal / iCnt)
'CurrentDb.Execute ("UPDATE Tb_Valor SET ValorUnit = '" & vCalc & "' WHERE ID = " & Me.ID & "")
CurrentDb.Execute ("UPDATE Tb_Valor SET ValorUnit = '" & vCalc & "'")

Me.Requery
Me.ValorTotal = 0
'''''''''''''''''''''''''''''''''''''''''''''

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
If Me.ValorCalc < Me.Valor1 Then


MsgBox "Menor Pre?o...." & _
"" & Chr(13) & Chr(13) & UCase(Me.Nome.Column(1)) & _
"" & Chr(13) & Chr(13) & Format(Me.Valor1, "R$ " & "###0.00"), vbInformation, "Menor pre?o encontrado"

End If
.MoveNext
End With
Loop
Set rst = Nothing