[Resolvido]botão para copiar dados do formB para o formA e fecha o formB

Boa tarde pessoal.

Dei uma breve olhada nos foruns mas não consegui executar, é o seguinte:

1) Tenho o formA onde estou inserindo informações, quando digito um codigo especifico abre o formB.
2) No formB seleciono o nome do cliente que preciso.

Agora vem a questão:

Preciso criar um botão que envie as informações contidas no formB e feche o mesmo, então continuo a trabalhar no formA (não é necessario fechar o formB)

Alaguem tem ideia de como fazer isso

Olá Douglas Cezar, você pode colocar a seguinte instrução no evento "Ao Clicar" do Botão no seu Formulário:

Código:

Private Sub SeuCampo_Click()
    DoCmd.OpenForm ("FormularioA"), acNormal
    Forms!FormularioA!NomeDoCampoDoFormularioA = Me.NomeDoCampoDoFormularioB
    DoCmd.Close acForm, "FormularioB"
End Sub

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Ola Jeferson,

Fiz o comando que me passou ficou assim:

Private Sub Importar_Click()
DoCmd.OpenForm ("FormulárioDePedidos"), acNormal
Forms!FormulárioDePedidos!Me.Cliente = Me.Cliente
Forms!FormulárioDePedidos!Me.Telefone = Me.Telefone
Forms!FormulárioDePedidos!Me.Endereço = Me.Endereço
DoCmd.Close acForm, "FormOndina"
End Sub

(Onde FormulárioDePedidos é FormA e FormOndina é FormB)

mas está dando o seguinte erro:

Erro em tempo de execução '2465':
O Microsoft Office Access não pode localizar o campo 'Me' referido em sua expressão.

Pode me ajudar?

Olá amigo Cezar, olho vivo!

Correção

Código:

Private Sub Importar_Click()
    DoCmd.OpenForm ("FormulárioDePedidos"), acNormal
          Forms!FormulárioDePedidos!Cliente = Me.Cliente
          Forms!FormulárioDePedidos!Telefone = Me.Telefone
          Forms!FormulárioDePedidos!Endereço = Me.Endereço
    DoCmd.Close acForm, "FormOndina"
End Sub

Correto

Forms!FormulárioDePedidos!Cliente = Me.Cliente
Forms!FormulárioDePedidos!Telefone = Me.Telefone
Forms!FormulárioDePedidos!Endereço = Me.Endereço

Não existe o "Me." após o "Forms!FormulárioDePedidos!" somente o nome do campo "Forms!FormulárioDePedidos!Telefone".

Bons Estudos!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Ola amigo Jeferson,

Funcionou perfeitamente.
Obrigado pela ajuda

Abs

Que bom amigo Cezar só faltou o resolvido!



Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Estava procurando isso.

Valew

Por nada, o fórum agradece o retorno!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?