[Resolvido]Copiar e colar texto do Campo em Formulários diferentes

Bom dia a todos!

Já procurei muito aqui no fórum e não encontrei a solução... caso ela já exista, desculpe!

É o seguinte: tenho um formulário de Pedidos (frmPedidos) onde o usuário digita o CPF do cliente numa combobox (cboCpf) que tem origem da linha na [tblClientes].[CPF]. Aí o Access vai buscar na tabela Clientes (tblClientes) esse CPF. Quando o CPF não está cadastrado, ele apresenta uma mensagem de erro. Até aí ok.

Criei um segundo formulário para cadastrar os clientes (frmIncluirCliente), com uma caixa de texto correspondente ao campo CPF da tabela tblClientes (txtCpf).


Já encontrei aqui no fórum uma rotina que coloquei na cboCpf, antes de atualizar, para que o sistema avise o usuário que o CPF (ou seja o Cliente) não está cadastrado ainda, e aí o formulário de cadastro já abre automaticamente.


Private Sub cboCPF_BeforeUpdate(Cancel As Integer)

If (IsNull(DLookup("[CPF]", "tblClientes", "[CPF] ='" & Me!CPF & "'"))) Then

   MsgBox "CPF não cadastrado no sistema!", vbInformation, "Aviso"

   DoCmd.OpenForm "frmIncluirCliente", acNormal, , , acFormAdd, acDialog
   
End If

End Sub


Tudo isso pra perguntar o seguinte:

Gostaria que o usuário não tivesse que digitar o CPF denovo (ele já digitou a primeira vez no formulário frmPedidos, na combobox cboCpf).

Gostaria que na caixa de texto txtCpf do formulário frmIncluirCliente que abriu pela rotina, já aparecesse o CPF digitado anteriormente na combobox cboCpf do outro formulário frmPedidos.

Desde já agradeço!

coloque esse código abaixo da linha onde voce pede pra abrir o formulário incluircliente


forms!frmIncluirCliente!NomeDoCampoCPF=Me.CPF

vê se é isto que queres:

https://www.maximoaccess.com/t17563-resolvidoduvida-com-caixa-de-combinacao#132562

Quando escrevi o código abaixo, aconteceu o seguinte:

Código:

Private Sub cboCPF_BeforeUpdate(Cancel As Integer)

If (IsNull(DLookup("[CPF]", "tblClientes", "[CPF] ='" & Me!CPF & "'"))) Then

   MsgBox "CPF não cadastrado no sistema!", vbInformation, "Aviso"

   DoCmd.OpenForm "frmIncluirClientes", acNormal, , , acFormAdd, acDialog

   Forms!frmIncluirClientes!txtCPF = Me.cboCPF
  
End If

End Sub

Digitei um CPF teste e dei OK. Aí apareceu a MsgBox, OK novamente, então uma segunda janela Dialog aparece (frmIncluirClientes) em cima da primeira (frmPedidos), mas sem o CPF copiado na caixa de texto txtCPF.

Quando cancelo a janela do frmIncluirClientes, aparece

Erro de tempo de execução '2450':
O Microsoft Access não pode localizar o formulário referenciado 'frmIncluirClientes'.

Sou iniciante em VBA... não sei se estou entendo corretamente, mas parece que o código do frmPedidos ficou interrompido assim que abriu a segunda janela popup do frmIncluirClientes. Quando fechei, ele voltou a ler e daí não achou a janela aberta, é isso?


Fiz o seguinte teste:

No formulário de incluir Clientes (frmIncluirClientes), inseri o código:

Código:

Private Sub Form_Load()

    Me.txtCPF.SetFocus

    Forms!frmPedidos!cboCPF = Me.txtCPF

End Sub

Está aparecendo Erro em tempo de execução '2115'

A macro ou função definida como a propriedade BeforeUpdate ou ValidationRule para este campo está evitando que o Microsoft Access salve os dados do campo.

No editor VBA, ele fica parado na linha
Forms!frmPedidos!cboCPF = Me.txtCPF

Colocando o mouse sobre o cboCPF vejo que ele está com o valor do CPF teste que inseri, mas o txt.CPF está com valor Nulo.

Agradeço se puderem me ajudar

Abraço!

No final consegui resolver fazendo o seguinte:

1)Criei uma variável pública em um módulo chamado ModuloCopiar contendo

Código:


Option Compare Database
Option Explicit

Public strCopiarCPF As String

2) Depois, no frmPedidos,

Código:


Private Sub cboCPF_BeforeUpdate(Cancel As Integer)

If (IsNull(DLookup("[CPF]", "tblClientes", "[CPF] ='" & Me!CPF & "'"))) Then

   MsgBox "CPF não cadastrado no sistema!", vbInformation, "Aviso"

   ModuloCopiar.strCopiarCPF = Me.cboCPF 'para que a variável pública tenha o valor do CPF digitado

   DoCmd.OpenForm "frmIncluirClientes", acNormal, , , acFormAdd, acDialog
  
End If

End Sub

3) Por fim no frmIncluirCliente

Código:

 
Private Sub Form_Open(Cancel As Integer)

    Me.txtCPF.SetFocus
    Me.txtCPF.Text = ModuloCopiar.strCopiarCPF  'para que o valor da variável pública apareça na caixa de texto
    Me.txtNOME.SetFocus  'para colocar o foco no próximo campo, deixei a caixa de texto txtCPF desativada
    
End Sub

Era isso!! Valeu a ajuda!