[Resolvido]Transferência de Dados entre dois formulários.

Prezados boa noite.

Tenho um BD com dois formulários, vinculados em tabelas distintas.

Como faço para transferir os dados de um formulário para outro?

Exemplo:

Tenho o Formulário "Seleção de Cliente" e outro que é "Emissão de Pedido" quero que ao selecionar o Cliente no formulário "Seleção de Cliente" automáticamente os dados sejam transferidos para o formulário "Emissão de Pedidos"

Criei os campos compatíveis e utilizei o código abaixo, porém não funciona.

Poderiam me ajudar por favor?


Private Sub Comando15_Click()
On Error Resume Next

If Not IsNull(Me.Empresap) And Not IsNull(Me.CNPJ_Ap) And Not IsNull(Me.IE_Ap) _
And Not IsNull(Me.Endereço_Ap) And Not IsNull(Me.Complemento_Ap) And Not IsNull(Me.Bairro_Ap) _
And Not IsNull(Me.Cidade_Ap) And Not IsNull(Me.Estado_Ap) And Not IsNull(Me.CEP_Ap) And Not IsNull(Me.Telefone_Ap) And Not IsNull(Me.email_Ap) Then

[Form]![Formulário1].Empresap.Value = Me!Empresa.Value
[Form]![Formulário1].CNPJ_Ap.Value = Me!CNPJ.Value
[Form]![Formulário1].IE_Ap.Value = Me!IE.Value
[Form]![Formulário1].Endereço_Ap.Value = Me!Endereço.Value
[Form]![Formulário1].Complemento_Ap.Value = Me!Complemento.Value
[Form]![Formulário1].Bairro_Ap.Value = Me!Bairro.Value
[Form]![Formulário1].Cidade_Ap.Value = Me!Cidade.Value
[Form]![Formulário1].Estado_Ap.Value = Me!Estado.Value
[Form]![Formulário1].CEP_Ap.Value = Me!CEP.Value
[Form]![Formulário1].Telefone_Ap.Value = Me!Telefone.Value
[Form]![Formulário1].e -mail_Ap.Value = Me!email.Value


End If

End Sub


Muito Obrigado

Tente:

Forms![Emissão de Pedido]!Empresap.Value = Me.Empresa.Value
...

Outra coisa, procure não utilizar espaços em nomes de controle e elementos, como campos, formulários, tabelas, etc. Isso pode lhe causar dores de cabeça futuramente. No lugar de Emissão de Pedido, utilize EmissãoDePedido

Por que não puxa direto da tabela usaundo função dlookup?

Desde já agradeço a ajuda. Vou testar usando as sugestões.

Como eu utilizo / Estruturo esta função Dlookup?

Na sala documentações tem um artigo sobre DLookup e no repositório tem exemplos.

Veja o exemplo

http://maximoaccess.forumeiros.com/t1423-busca-por-cbo-e-com-funcao-dlookup

Prezados Criquio e Vieirasoft muito obrigado pelas dicas.

Funcionaram perfeitamente.