[Resolvido]Como faço para atualizar uma caixa de texto em função de outra caixa de texto?

Olá a todos

Estu precisando da ajuda dos colegas

Tenho um formuláriodenome frm_vendas com um subformulário de nome frm_vendasdetalhe
dentro do subformulário existe o campo cod_produto que ao clicar nele e após atualizar está atualizando caixa de texto de nome totalPagar
até aí está funcionando normal!
mas o que eu quero é: COMO ATUALIZAR txtdecimo no frm_vendas junto com a caixa d texto totalPagar a pagar ao mesmo tempo assim que selecionar cod_produto?
pois a txtDecimo só atualiza se eu fechar e abrir o formulario novamente

Segue o exemplo em anexo


no aguardo dos amigos

Código:

Private Sub Cod_produto_AfterUpdate()
    DoCmd.GoToRecord , , acNext 'Vai para o próximo registro
    Forms!frm_vendas.Form.Requery
End Sub

OI JPaulo, desculpe pela demora em responder, eu estava com problemas sem poder entrar em contato, o seu código funciona perfeitamente, mas aí eu esbarrei em um outro pequeno empecilho
no form que consta essas caixas textos no evento após atualizar da caixa drop down list no real projeto que preciso de sse código que voce sugeriu
já está em uso dando certo o esse referido código:

Private Sub DescricaoServico_AfterUpdate()
If DCount("*", "tbl_vendasDetalhe", "CodVenda = " & Me.CodVenda & " AND DescricaoServico = " & Me.DescricaoServico.Column(0) & "") > 10000000 Then
MsgBox "Voce já insriu este produto nesta venda", vbExclamation, "Aviso"
Me.DescricaoServico = Empty
Exit Sub
End If
Me.ValorServico = Me.DescricaoServico.Column(2)
Me.qtde1.SetFocus
DoCmd.GoToRecord , , acNext 'Vai para o próximo registro
End Sub



mas se eu acrescentar oque voce sugeriu abaixo aí, não funciona mais
DoCmd.GoToRecord , , acNext 'Vai para o próximo registro
Forms!frm_vendas.Form.Requery
pode me dar mais essa força?

Boa tarde

Já tentou desta forma?
Private Sub DescricaoServico_AfterUpdate()
If DCount("*", "tbl_vendasDetalhe", "CodVenda = " & Me.CodVenda & " AND DescricaoServico = " & Me.DescricaoServico.Column(0) & "") > 10000000 Then
MsgBox "Voce já insriu este produto nesta venda", vbExclamation, "Aviso"
Me.DescricaoServico = Empty
Exit Sub
End If
Me.ValorServico = Me.DescricaoServico.Column(2)
Me.qtde1.SetFocus
DoCmd.GoToRecord , , acNext 'Vai para o próximo registro
Forms!frm_vendas.Form.Requery
End Sub

Tem de aprender alguma plasticidade, para evoluir e poder vir a ajudar outros no fórum

Boa tarde a todos voces, eu estava auente por alguns motivos, mas, em fim Obrigdo a todos que leram visualisaram o meu problema e tentaram me ajudar
Obrigado alexandre resolveu o problema


agradeço a todos voces, vou dar aqui por encerrae resolvido esse tópico