[Resolvido]Aplicar descontos a todos os itens em um formulário continuo

Olá, boa tarde.

Como eu faço para aplicar um desconto, baseado no primeiro registro de um formulário continuo, para os demais itens desse mesmo formulário.

Exemplo.   No item um ele deu um desconto de 10 por cento e eu quero propagar esse descontos para os  outros nove itens.

Lembrando que estou em um formulário continuo.

Up......

Olá amigo Silvio,
O que pretende será com uma consulta actualizar e um requry no sub-form.

No entanto, se vai ser para todos os itens, parece um desconto global.

Pense como um programa de vendas, você tem o desconto global do cliente e pode ter um desconto adicional na linha.
Não será o caso, não ficaria melhor.
Ficaa a dica.
Abraço

Grande Alvaro....

Bom dia.


Então eu já tenho o desconto por linha e o desconto global. Os cálculos são feitos via VBA no próprio formulário.

Mas, a pedido do cliente, ele quer colocar um desconto qualquer e replicar para os demais itens que estão no formulário.

É nisso que eu estou aqui, parado, pensando em como fazer.

Resolvido da seguinte forma....

Dim rs As Recordset
Dim qRegistros As Long
Dim i As Long
Set rs = CurrentDb.OpenRecordset("Dpedido")
rs.MoveLast
rs.MoveFirst
qRegistros = rs.RecordCount
For i = 1 To qRegistros
rs.Edit
rs("Desconto") = Me.Desconto
rs.Update
rs.MoveNext
Next i
rs.Close

Olá Silvio, assim será feita a vontade do cliente.
Abraço e obrigado pelo retorno.