[Resolvido]Transferência de formulário.

Boa tarde pessoal!

Estou desenvolvendo um projetinho para empresa que trabalho, mas como sou novo no assuno garrei e uma das partes.

Nesse projeto eu preciso cadastrar algumas informações em um formulário e preciso que elas apareçam no outro, mas esse formulário que precisa receber as informações do formulário 1, está com o mesmo nome de campo de texto e não da para jogar as informações e nem mudar, pois ele é parte de um sub. Pesquisei em vários sites e não consegui encontrar nada que resolva. Será que vocês poderiam me ajudar?

Então resumindo.. eu preciso transferir as informações que a pessoa vai acabar de cadastrar e preciso que após ele clickar para salvar e transferir de formulário, as informações daquele formulário estejam no outro. OBS O campo txt está com o mesmo nome, que seria Linhap, cortadeirap.... o nome do formulário que a pessoa vai cadastrar se chama (cadastro de encolhimento) e o que precisa aparecer as informações (Cadastro do perfil).

Espero que não esteja confuso as informações.. vou tentar anexar algumas fotos depois.

Obrigado e tenham uma boa tarde!

Boa tarde, seja bem vindo ao fórum.

Favor postar as entidades envolvidas em tua duvida, tal qual...tabela, consulta, formulário. Fazendo dessa forma, fica mais simples
e facil para os usuários desse fórum te ajudar.

Anexar no formato *.Zip para ajudarmos você.

anexei o projeto que ainda não contem quase nada. Se alguem puder me ajudar, ele está anexado logo acima.

Boa noite.

Com a finalidade de aprendizado, veja o link abaixo
https://www.maximoaccess.com/t28829-resolvidoincerir-dados-de-um-formulario-para-outro

Bom dia Silvio,

Tentei e infelizmente não deu, fica dado um erro de compilação e fala que (era esperado = )

Código:

Private Sub Comando80_Click()
If MsgBox("CONFIRMA SOLICITAÇÃO DO ÍTEM?", vbInformation + vbYesNo, "Atenção") = vbYes Then


Forms!Cadastro de ecolhimento!Cadastro do perfil!Linhap = Me!Linhap
Forms!Cadastro de ecolhimento!Cadastro do perfil!Cotadeirap = Me!Cortadeirap
Forms!Cadastro de ecolhimento!Cadastro do perfil!SAP/extrusãop = Me!SAP/extrusãop
Forms!Cadastro de ecolhimento!Cadastro do perfil!Nominalp = Me!Nominap
Forms!Cadastro de ecolhimento!Cadastro do perfil!Clientep = Me!Clientep
Forms!Cadastro de ecolhimento!Cadastro do perfil!Peçap = Me!Peçap
DoCmd.RunCommand acCmdSaveRecord


'Forms!Frm_ControlePatio_Desova_CNT!DATA_REC = Me!DATA_RECEBIMENTO


'Me.ExcluiDaLinhaDesova = -1
'DoCmd.Requery

'DoCmd.RunCommand acCmdDeleteRecord 'excluio registro

DoCmd.Close


End If
End Sub


Rafael bom dia.

Você tem que adaptar esse código as tuas necessidades, não é copiar e colar.   Tem que colocar os nomes dos campos corretamente, os nomes dos formulários.

Uma dica que será muito útil a você.  

Nomenclatura
tabelas....
Errado: Cadastro de Encolhimento
Correto: TblCadEncolhimento ou TabCadEncolhimento
*mude em tuas tabelas conforme o exemplo acima

Formulários....
Errado: Cadastro de Encolhimento
Correto: FrmCadEncolhimento
*mude em teus formulários conforme o exemplo acima

Consulta....
Errado: Cadastro de Encolhimento
Correto: QryCadEncolhimento ou ConsCadEncolhimento

Não se usa em hipótese alguma no MS Access:
palavras acentuadas (lançamento de medição ) ou palavras com espaços em tabelas, consultas, formulários ou relatórios.

Nos campos de tabela evite fazer o mesmo...sem espaços e sem acentos.

Por estar no começo ainda do teu projeto, ainda dá tempo para acertar isso e fazer correto e bem feito para não ter problemas lá na frente.

Bom trabalho.

Muito obrigado pela dica Silvio, isso será muito útil para mim.

Código:

Private Sub Comando80_Click()

Forms!FrmCadPerfil!FrmCadEncolhimento!Linhap = Me!Linhap
Forms!FrmCadPerfil!FrmCadEncolhimento!Cotadeirap = Me!Cortadeirap
Forms!FrmCadPerfil!FrmCadEncolhimento!SAPextrusaop = Me!SAPextrusaop
Forms!FrmCadPerfil!FrmCadEncolhimento!Nominalp = Me!Nominap
Forms!FrmCadPerfil!FrmCadEncolhimento!Clientep = Me!Clientep
Forms!FrmCadPerfil!FrmCadEncolhimentoFrmCadEncolhimento!Peçap = Me!Peçap

DoCmd.RunCommand acCmdSaveRecord


'Forms!Frm_ControlePatio_Desova_CNT!DATA_REC = Me!DATA_RECEBIMENTO


'Me.ExcluiDaLinhaDesova = -1
'DoCmd.Requery

'DoCmd.RunCommand acCmdDeleteRecord 'excluio registro

DoCmd.Close

End Sub


esse é o novo código com as alterações e mesmo assim ainda contínua dando erro, ao clickar no botão fala que não encontra o formulário, sendo que está com o nome idêntico.

Uma sugestão...

Comece uma nova base de dados. Essa pelo visto se corrompeu muito,mesmo eu importando para uma nova, o erro permanece.

Comece com o que você já sabe sobre as nomenclatura de tabela, consulta, formulário. Apenas lembrando quando se tem um sub formulário é de bom tom...usarmos SFrmxxxxxxxxx

E não se esqueça......não se usa palavras acentuadas....palavras com espaços....e nem o Ç !!!!

Bom trabalho, bons estudos.

Qualquer novidade...estamos, o fórum, aqui para lhe ajudar.