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

Bom dia
Gostaria de fazer uma operação e não estou conseguindo;
Pegar o valor total dividir pelo número de registro
Verificar se o total e maior que o valor se for enviar uma mensagem e apontar o registro

Fernando,

A galera aqui não tem bola de cristal !!! lkkkkkkk

Qual é o form?
Qual tabela?
Qual campo?


valeu

[]

Acredito que seja isso:



Resultado:



Boa sorte


Segue versão

[]'s

Desculpe não fui muito especifico
No Formulario  “Frm_Principal”  no Sub “Frm_Valorsub”,    no campo “ ValorTotal” digito o valor, Exemplo R$100,00,  o Valor vai ser dividido pelo numero de registro e calculado no campo “ValorUnitario”
No Sub “Frm_Valorsub”,    No campo Valor já existe um valor pre determinado, exemplo; nome  A, Valor  R$ 40,00, Quando fazer o cálculo ele compara o “valor” com o” ValorUnitario” e se  algum “ValorUnitario” for maior que o “Valor” ele me aponte a Linha.
Eu coloquei o exemplo mais especifico

Ok..

Segue

Não e bem isso
A mensagem não e no campo valor total e sim na linha onde o ValorUnitario” for maior que o “Valor” .
O Valor da divisão só está sendo lançando na primeira linha e não em todos as linhas.
Minha maior duvida é como apontar a linha onde o ValorUnitario” é maior que o “Valor” nesse exemplo.

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

obrigado scandinavo