[Resolvido]Repetir um valor em varios registro em um formulário continuo filtrado

Boa tarde mestres,
Preciso de ajuda.
Tenho uma tabela nome tblpagamentos com alguns campos nome: "codpgto" "datapgto" "nome" "vlrtotal" "comissao" e criei uma consulta para essa tabela para filtrar por data onde uso o código  - Como "*" & [Digite a Data]. Em cada tenho vários funcionários onde tenho que lançar o valor total da vendo do dia para calcular a comissão de cada. Antes eu tinha que lançar o valor total da venda que é o mesmo para todos em todos os registros mas foi solucionado pelo código que copiei do amigo Dilson segue:

On Error GoTo TratareiErro
Dim Rs As DAO.Recordset
Dim Contador As Long
Dim ContaOProgresso As Long
Set Rs = CurrentDb.OpenRecordset("tblpagamento")
Rs.MoveLast
Contador = Rs.RecordCount
Rs.MoveFirst
SysCmd acSysCmdInitMeter, "Realizando as alterações, aguarde...", Contador
For ContaOProgresso = 1 To Contador
SysCmd acSysCmdUpdateMeter, ContaOProgresso
Rs.Edit
Rs("comissao3") = Me!comissao3
Rs.Update
Rs.MoveNext
Next ContaOProgresso
Rs.Close
SysCmd acSysCmdRemoveMeter
MsgBox "OK, Total de: " & Contador & " registros", vbInformation, "Concluído"
Exit_TratareiErro:
Exit Sub
TratareiErro:
MsgBox "Ocorreu uma falha neste processamento." _
          & vbCrLf & "Trata-se do erro n°: " & Err.Number _
          & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Erro inesperado"
Exit Sub
Me.Recalc

Funciona perfeitamente, só que ele lança o valor digitado em todos os registros desde o inicio da tabela e eu gostaria que fosse lançado só para a data que foi filtrada.
Será que existe essa possibilidade, desde agradeço a todos.

Henry Airlie

Boa noite,
Não entendi onde tem o filtro para introduzir a data
Para filtrar por data, tente
onde está
Set Rs = CurrentDb.OpenRecordset("tblpagamento")
coloque
Set Rs = CurrentDb.OpenRecordset("SELECT comissao3 FROM tblpagamento WHERE datapgto=#" & Format(Inputbox("Introduza a data a filtrar"),"dd-mm-yyyy") & "#")

Bom dia,
Desculpe a demora estava viajando. Bom acho que não fui muito claro.
Quando lanço o valor em comissão ele atualiza todos os registros desde o inicio da tabela (com outras datas) e eu gostaria que fosse atualizado só os registros que eu acabei de digitar para aquela data.
Será que existe essa possibilidade, desde agradeço a atenção.

Att
Henry Airlie

Boa noite
Se tem controlo no formulário que contém a data, coloque
Set Rs = CurrentDb.OpenRecordset("SELECT comissao3 FROM tblpagamento WHERE datapgto=#" & NomeControloNoFormulario & "#")

Olá Alexandre,
Agradeço sua boa vontade, mas não estou conseguindo. Continua dando erro
Não sei onde estou errando

Brother, posta essa parte do bd para darmos uma analisada.

Acho que tenho algo parecido, mas preciso ver as tabelas.


Abraços,

Olá amigos,
Quero agradecer á todos pela ajuda e boa vontade, consegui achar o erro e resolver.
Muito obrigado mesmo.
att
Henry Airlie

Desculpa, esqueci de colocar resolvido.
Vlw