[Resolvido]UPDATE Atraves de um formulario com subformulario

Bom dia mestres!

estou precisando a ajuda de vocês mais uma vez

É o seguinte: Tenho uma tabela Chamada "Producao" com os seguintes campos:

NumOS, .... Vencimento e DataPgto

e tenho a tabela "Caixa" com IdMovimento, DtMovimento, tipo e FormaPgto com um subformulario chamado CaixaSub com CodRubrica (que é a informação do que esta sendo pago) NumOS, Valor.

Sendo que no Formulario Caixa, tenho um botão "ConfirmarPgto"

Então o que gostaria é que ao clicar no botão "ConfirmarPgto" atualizasse na tabela "Producao" a Data do Pagamento quando o NumOS informado fosse igual ao campo NumOS do Subformulário CaixaSub.

Espero que tenham entendido o meu Problema.

Desde já agradeço a ajuda de todos

Tentei adaptar este código

Current.Execute "UPDATE Producao SET Producao.DtPgto = [Forms]![Caixa]![CaixaSub]![DataPgto] WHERE Producao.NumOS = [Forms]![Caixa]![CaixaSub]![NumOF]"

mas da erro dizendo que o objeto é obrigatório. Alguém pode da uma idéia?

Ninguém?

Boa noite,
Tente
Current.Execute "UPDATE Producao SET DtPgto=#" [Forms]![Caixa]![CaixaSub]![DataPgto] &"# WHERE NumOS=" & [Forms]![Caixa]![CaixaSub]![NumOF]

Bom dia Alexandre,
Fiz como vc falou mas está dando erro de compilação

Boa tarde,
Carregue o essencial e disponibilize para se analisar

Ok,
Irei fazer uma versão para postar.

Desculpem pela demora amigos
Segue o link do arquivo

https://www.dropbox.com/s/djhz1jdhydz0bdh/SGP_FARIAS.rar?dl=0

Boa tarde,
Não dificulte quem quer ajudar. Leia a minha assinatura

Desculpe amigo, esqueci de retirar.
Vou da uma melhorada e reenvio.

Pronto amigos

Fiz uma versão mais simplificada

segue o link

https://www.dropbox.com/s/yu7th2zoo1n3adj/SGP.accdb?dl=0

Boa noite,
Explique como chegar à situação que pretende executar, explique todos os detalhes

Então,

Tenho o formulário caixa e nele contém um subformulário, e preciso que ao clicar no botão confirmar do formulário caixa, o mesmo atualize com a data do recebimento na tabela Produção, se o NumOF no formulário Caixa for igual a NumOS da tabela produção e imprima o recibo de pagamento.

Boa noite,
Informe todos os detalhes. Não disse o que preencho, etc

Boa noite,

No formulário Caixa, ao iniciar o foco é no campo tipo onde é informada se Entrada ou Saída
depois ao pressionar a tecla enter ou tab, desce para o sub formulário no campo CodRub (Código da Rubrica), e depois o NumOf e ele puxa o valor da Ordem de Serviiço, então quando a rubrica for igual a 1 PGTO OF, e ao pressionar o botão Confirmar, queria que atualizasse a tabela Pruducao com a data de pagamento quando o NumOF no Subformulário Caixa fosse igual ao NumOS na tabela Producao e depois se possivel imprimir o relatório Recibo.

Acho que é tudo.

Bom dia a todos,

Consegui resolver o problema da seguinte forma:

CurrentDb.Execute "UPDATE [ProducaoSub] SET DtPgto= #" & Me.DataPGTO & "# WHERE [IdOS] = " & Me.NumOF & ";"

Está funcionando perfeitamente, porém, não esta enviando com o formato correto da data. Ex. 10/06/2019 aparece como 06/10/2019.

Como faço para corrigir neste formato: dd/mm/yyyy? ou seja 10/06/2019.

Boa tarde
Esta já devia saber
Será
CurrentDb.Execute "UPDATE ProducaoSub SET DtPgto= #" & Format(DataPGTO,"dd-mm-yyyy") & "# WHERE IdOS=" & Me.NumOF & ";"

Boa tarde amigo,

Não deu certo, continuou do mesmo jeito

mm/dd/yyy

Consegui

Acho que enganei o sistema

Estava assim:
CurrentDb.Execute "UPDATE ProducaoSub SET DtPgto= #" & Format(DataPGTO,"dd-mm-yyyy") & "# WHERE IdOS=" & Me.NumOF & ";"

Troquei o mês pelo dia:

CurrentDb.Execute "UPDATE ProducaoSub SET DtPgto= #" & Format(DataPGTO,"mm-dd-yyyy") & "# WHERE IdOS=" & Me.NumOF & ";"

Ai funcionou



Valeu! Muito Obrigado.