[Resolvido]Gravar Total de SubForm para Formulário

** Uso Access 2003

Estou a precisar da ajuda de vocês no seguinte, pois tentei alguns exemplos após buscas aqui nesse Fórum, mas só tem exemplos de como mostrar o resultado e não como gravar esse resultado no campo:

Tenho um Formulário principal (modo formulário simples) que no mesmo tem uma Guia onde são lançados os Documentos e nessa Guia tem um Subform (modo formulário contínuo) onde são lançadas as Autuacoes desse Documento com Relacionamento de 1 para muitos entre as Tabelas vinculadas, nesse Subform tem os campos de valores: "ValImposto", "ValMulta" e "ValJuros" onde faço num controle não-acoplado (TotGeral) a soma dos 3 campos no Rodapé. No Formulário principal tem um campo "ValAutuacao" onde pretendo gravar o resultado dessa soma geral dos "n" Registros lançados no Subform, consegui mostrar esse total com o comando: "Formulários!F16_Expedientes!F16a_AutosInfracao.Formulário!TotGeral" na Fonte do controle do campo "ValAtuacao", até aqui tudo bem, mas minha intenção não seria apenas mostrar esse Valor Geral e sim Gravar nesse campo da tabela, pois com esse campo mostro o valor por extenso do mesmo em Reais, que também gostaria de salvar em outro campo "ValorExtenso" na mesma tabela.

Bom dia,

Coloque o campo acoplado no formulário, e no evento Ao Sair do SubFormulário faça o seguinte:

Me.CampoAcoplado.Value = Me.TotGeral.Value

Uso isso para fazer o mesmo que você precisa, mas na minha necessidade.

Bom dia, Leandro

Nas propriedades do subform não tem o evento "ao sair", então coloquei o comando sugerido no controle não-acoplado "TotGeral" como segue abaixo, mas não gravou nada na tabela.

Private Sub TotGeral_Exit(Cancel As Integer)
Me.ValAutuacao.Value = Me.TOTGERAL.Value
End Sub

Em tempo:
Nome do Form Principal: F16_Expedientes
Nome do Subformulário : F16a_AutosInfracao

Em tempo: o campo "ValAutuacao" já está no Form Principal

Você precisa clicar apenas uma vez no canto superior esquerdo do SubForm e aí você clica no botão propriedades na barra de ferramentas, aparecerá a janela de propriedades do SubForm com apenas duas opções, Ao Entrar e ao Sair.

O campo acoplado que eu me referi na resposta anterior é o mesmo campo da tabela, onde você quer que os totais sejam armazenados.

Tens razão achei o evento "ao sair" conforme tua orientação, mas ao testar deu a mensagem: 'Erro de compilação. Método ou membro de dados não encontrado". O campo acoplado é o 'ValAtuacao" da tabela e que está no Form Principal onde quero que seja armazenado, o comando ficou assim:

Private Sub F16a_AutosInfracao_Exit(Cancel As Integer)
Me.ValAutuacao.Value = Me.TOTGERAL.Value 'Autor: Leandro (Fórum MaximoAccess): 19/07/2012 - Gravar valor total no Form Principal
End Sub

Em tempo: testei assim:
Me.Forms!F16_Expedientes.ValAutuacao.Value = Me.TOTGERAL.Value 'Autor: Leandro (Fórum MaximoAccess): 19/07/2012 - Gravar valor total no Formulário Principal

Mas, deu a mesma mensagem acima.

Bom dia,

Se você já tem o campo com soma dos totais do subform, agora basta se referir a ele no código VBA.

Como eu escrevi antes.

Private Sub F16a_AutosInfracao_Exit(Cancel As Integer)

Me.ValAutuacao = Me.TOTGERAL.Value

End Sub

Deixe agora sem Value no campo ValAutuacao

Se não funcionar você me manda o banco que eu faço para você, pode ser?

Leandro, boa noite

Testei, mas continua com a mesma mensagem de erro, dessa apontando para o que está em vermelho abaixo:

Me.ValAutuacao = Me.TOTGERAL.Value

Então, vou preparar o arquivo e disponibilizo aqui no Fórum, aguarde ok?

Beleza, no aguardo.

Leandro, segue em anexo o arquivo

Veja aí meu amigo.


http://www.4shared.com/rar/34dxEbG_/Vileman.html


Abraço

Leandro, ficou perfeito, muitissimo obrigado, você é o cara!

Abraços e muita Paz

Que nada Vileman, obrigado a você pelo retorno.