[Resolvido]Retornando Valores de um Sub Form

Tenho 2 codigos que retornam valores de um form...

Forms!Cadastro_Parcelas!vALOR.Value = Me.ValorPgto.Value
[Formulários]![Cadastro_Parcelas]!Forma_Pgto.Form![ValorPago] = Me.ValorPgto.Value

A primeira linha retorna o valor para o form principal (FUNCIONANDO)
A segunda linha retonar para o Sub_Form (ERRO)

Qual o erro no codigo amigos?

Me.nome_subformulário.Form.nomecampo.Value = nomecampo.Value

Me.Forma_Pgto_Cliente.Form.ValorPago.Value = ValorPgto.Value

Membro nao encontrado...

E o nome do Sub Form ou o nome dele no form?

Esse valor retorna de um form? se for isso tem que colocar o nome do form também.

Me.nome_subformulário.Form.nomecampo.Value = Me.NomeForm.nomecampo.Value

Veja se assim funfa

Em um FOrm eu Chamo o que vou digita o valor...

Desse form aberto retorna
1 - Valor para o Form
1 - Valor para o Sub Form

o valor do form consegui retorna
so nao o que terna para o sub form

Forms!Cadastro_Parcelas!vALOR.Value = Me.ValorPgto.Value

Essa linha retonar o valor para o Form...

Agora preciso que o mesmo valor Me.ValorPgto.Value
seja retornado tambem para o campo Val_Parc no Sub Form que esta contido no form Cadastro_Parcelas

Estás a fazer isso através de um botão?

no sub form tem o campo ValorPago...
No evento ao clicar ele abre o Form Vsalor para que ee digite o valor de pagamento...
eu digito o valor no form Vsalor.. e ele retorna o valor para o campo Valor Pago...

Assim:

SubForm : CampoValor = 500,00 eu clico no campo e abre um form com uma TextBox...

Eu digito o valor na TextBox... 200,00

Ai esse valor volta para o CampoValor no Sub form...
Ficando assim

SubFOrm : CampoValor = 200,00

Eu tenho um botão de comando num form que transporta valores para um outro form com sub form. Assim o valor que está num campo de um formulário, é transportado para dentro de um sub formulário em outro formulário.

VEja o código e tente adaptar

DoCmd.OpenForm "Agenda", , , acFormAdd
Form_frmagenda.docsagenda_subformulário.SetFocus
Form_frmagenda.docsagenda_subformulário.Form!Agenda.SetFocus
Form_frmagenda.docsagenda_subformulário.Form!Agenda.Value = Form_frm22.NomeCliente.Value
Form_frmagenda.docsagenda_subformulário.Form!DescriçãoR.Value = Form_frm22.DescriçãoR.Value
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer7
Form_frmagenda.docsagenda_subformulário.Requery
Me.Refresh

Repare que o form Agenda está fechado, por isso adiciono acformadd

No meu caso.. FOrm = Cadastro_Parcelas
SubForm = Forma_Pgto_Cliente
Nome do SubForm no Form = Foma_Pgto


e o FOrm Cadastro esta ativo

Form_Cadastro_Parcelas.Forma_pgto.SetFocus
Form_Cadastro_Parcelas.Forma_pgto.Form!ValorPago.SetFocus
Form_Cadastro_Parcelas.Forma_pgto.Form!ValorPago.Value = Form_Cadastro_Parcelas.ValorPago.Value

corrija algum nome de campo ou form

Da uma olhadinha ai amigao..
ta em 2003

Form_Cadastro_Parcelas.Forma_Pgto.SetFocus
Form_Cadastro_Parcelas.Forma_Pgto.Form!ValorPago.SetFocus

Form_Cadastro_Parcelas.Forma_Pgto.SetFocus
Form_Cadastro_Parcelas.Forma_Pgto.Form!ValorPago.SetFocus
Form_Cadastro_Parcelas.Forma_Pgto.Form!ValorPago.Value = Frm_Valor.ValorPgt.Value


Erro na ultima linha: o Objeto e obrigatorio

Amigão

Estive a ver isto. Está feio. Valor é uma palavra reservada do Access, não pode ser usada para nome de um campo. Então temos um erro que eu não consigo detectar e que possívelmente terá a ver com isso. Por outro lado está muito mal estruturado este código.

Vou ver isto com calma e não prometo para hoje.

Uma dúvida

Eu coloquei o form frmValor a preencher o formcadastro. Era isso que você pretendia

o form_Valor abre com o valor do campo no form VALORGERAL

O campo valor geral é preenchido ao clicar do campo do SubForm ValoPago...

entao o Form_Valor abre com o Valor do Campo ValorGeral (que e a sugestao-ValorPadrao)

O usuario altera para o valor que desejar... nesse caso ai ele abre com 300,00
Supondo que o cliente tenha pago apenas 200.00 o usuario altera o valor no Frm_Valor e esse valor (200.00) Retorna para o campo Valor (no Form Cadastro) e tambem para o campo ValorPago no Sub form....

é isso que nao esta aconteendo
eu preciso que ao fechar o form_Valor ele altere o campo doo SubForm (ValorPago) para o mesmo valor que esta no Form Valor...

Entendeu amigo?

O problema ai nao esta no Campo Valor (No form)

e sim no campo ValorPargo no SubForm....
eu preciso sim que ao fechar o form_Valor.. O valor que esta no Fomr_Valor seja inserido no SubForm no campo Valor Pago

Espero que tenha entendido

baixe novamente o exemplo e veja as dicas dentro do form Cadastro

Mas isso não tem problema

eu vou enviar o que fiz, mas dá um erro que não estou a detectar. E hoje já não estou com muita cabeça para isso.

http://dl.dropbox.com/u/8157744/teste%20%281%29.rar

Voce Retirou todos os codigos no evento ao clicar do Campo Vsalor...

Eu retirei para poder entender isso, pois estava muito confuso.

esta dando erro nessas linhas..

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer7
Form_CadastroParcelas.Tbl_SubForm_subformulário.Requery

é simples...
baixe o novo exemplo que te enviei...
nele tem as dicas...

Clique em cima do campo valor no sub_Form... ele abrira o Form_Valor..

Leia as dicas e entenderas
o que quero e simples...

entendi o que fez.

So que o que fez.. retorna o valor mas grava em um novo registro...

eu nao quero que ele insira um novo registro... e sim altere o registro do controle ativo

VIERÃO... RESOLVIDO MEU AMIGO...

So preciso dessas linhas:
Private Sub Voltar_Click()
'DoCmd.OpenForm "CadastroParcelas", , , acFormAdd
Form_CadastroParcelas.ValorPagos.Value = Form_FrmValor.ValorPgto
Form_CadastroParcelas.Tbl_SubForm_subformulário.SetFocus
Form_CadastroParcelas.Tbl_SubForm_subformulário.Form!ValorPago.Value = Form_FrmValor.ValorPgto
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer7
'Form_CadastroParcelas.Tbl_SubForm_subformulário.Requery
Me.Refresh
End Sub

Apenas as 3 linhas ai do meio..em vermelho Deu certo... Obrigado

OK, fico satisfeito amigão.

DEU CERTO NO seu..
passei os codigos para o meu e nada
Puts...

Veja bem os nomes dos campos porque o access não gosta de espaços e eu juntei nomes. Tente converter o que enviei para o 7 e veja se dá erro. Se não der, importe os outros objectos da BD para essa BD que converteu

O problema vieira.. creio que o exemplo que fiz pra voce... o SubForm esta como Simples..
O meu é Continuo....

A tabela do SubForm é relacionada com a Tbl do Form...um para Muitos....

Ento creio que na hora de jogar o valor no Subform... ele precisa da ID da linha....
porque tem varias linhas com o mesmo campo ValorPago....

Entendeu?

Claro amigo, você teste isso que eu vou dormir. Abraço e até amanhã

Caro Vieira... Ate que enfim Problema RESOLVIDO!!! UFA!!!

Olha o codigo que deu certo ai...

Forms!Cadastro_Parcelas!ValorPago.Value = Me.ValorPgto.Value
Forms!Cadastro_Parcelas.Forma_Pgto.Form!ValorPago.Value = Me.ValorPgto.Value

E diferente do Seu
o Seu era assim Forms_Cadads..... Com underline...


RESOVIDO
Obrigado amigao..

Puts.. isso me esquentou a cabeça..
rsrs
Grato

Só faltou uma coisinha. Quem adivinha o que é? Ganha um doce quem souber... brincadeirinha. Eu sei que o amigo vai colocar daqui a pouquinho

Ganhei um DOCE KKKKKK

Boa noite Criquio!!

Porque eu não espacei os nomes dos objectos. Provavelmente no 7 aceita melhor sem underline, mas perfeitamente viável, conforme exemplo que lhe passei acima e que estou usando.

Fico satisfeito por ter conseguido. Abração.