[Resolvido]Duvida com VBA

Bom dia
Como conseguiria transmitir as informações de um campo TxtOrigem do FormOrigem para FormExportada campo TxtExportada, sem precisar abrir o FormExportada.
Tentei essa codificacao e nao foi.

Private Sub BtSalvar_Click()
'DoCmd.OpenForm "formExportada", acNormal
'Forms![FormOrigem].TxtOrigem = Me.TxtExportada
'Forms![FormExportada].TxtExportada = Me.TxtOrigem
Forms![FormExportada].TxtExportada = Forms![FormOrigem].TxtOrigem

End Sub


Obrigado

bom dia!

Para efetuar a troca de informação entre formulários de algum modo ambos precisam estar abertos. Sem formulário aberto não há controle para referência, pode explicar melhor o que precisa / pretende?

Oi
Pablo
Pretendo ter um form com informações já precadastradas nesse campo.
De modo quando abrir o outro form posso manter essas informações já pré cadastradas ou modifica-las nesse momento.
A ideia é essa.
E como o texto pode ser longo pensei nesse caminho.

Não é possível "enviar" a informação de um para outro e sim "buscar" a informação de um para outro.

Outra ideia é a criação de uma variável global em um módulo, onde essa variável pode ser utilizada por ambos formulários.

Tente isso:

No formulário origem você faz assim:  

Private Sub BtSalvar_Click()

DoCmd.OpenForm "formExportada", acNormal

End Sub

'----------------

No formulário destino você faz assim:

Private Sub Form_Load()

Me.TxtExportada = Forms![FormOrigem].TxtOrigem

End Sub

Se não der certo no load muda para o

Private Sub Form_Open()

Ok
Dx chegar do trabalho q testo.
E respondo
Obrigado

Oi Pablo
Funcionou.
Tentei nao abrir o form origem e nao foi.
Se criasse uma consulta e essa consulta alimentasse o form exportador fucnionaria sem abrir o form origem...

Como poderia utilizar a função Dlookup nesta questão?

Se você não abrir o form de origem de onde virá a informação indice para sua pesquisa, ou seja, como passará essa informação (Forms![FormOrigem].TxtOrigem)?

Tanto com a criação de uma consulta, como o dlookup será necessária essa informação...

Pensa ai e me fala...

Pelo q li
O uso da dlookup seria


Me.txtExportada= DLookup("TxtOrigem", "tabelaExposrtada" = '" & Forms!FormOrigem!””)

Oi teria que acrescentar o campo id?

Como tô no trabalho só vou testar a noite.

Mas daria certo?

Tentei tambem criar uma expressao, mas nao foi.

Torna-se inviavel, na minha ideia, ter que abrir o formOrigem, pois este apenas serviria para se criar um mdelo de informacao, onde esta informacao seria usada no outro form, podendo ser alterada ou nao e depois salva.

Vou buscar mais.

Bom dia!

Tenho consultas onde utilizo um formulário básico, é informado o indice da pesquisa. Após se clicar no botão para pesquisa, abre-se o formulário principal com todas as informações fechando o anterior. Não seria funcional dessa forma?

Oi
Pablo
Nos médicos durante uma anamnese ouvimos a fala das pessoas e anotamos.
De certa forma com o passar dos anos adotamos um “modelo” do que escrevemos, modificando o necessário é claro.
A ideia seria que esse modelo na hora que abrisse o form exportador aparecesse o que escrevemos no outro form. Sem que o form original se abra.
Assim se desejar modificar o modelo vou lá no original e faço.

A sua sugestão é válida.
Já foi utilizada no restante do APP no prosseguimento do form exportador.

Tô lendo, tentando entre um trabalho e outro.

Obrigado mais uma vez.

Bom dia

Estudando verifiquei, pelo menos acho, que possa existir um caminho dessa necessidade de exportar essa informação com o form original fechado.

Li sobre as propriedades do recordSet.

Se utilizar o método getString do Recordset do ADO consigo transferir registro ou consulta para um arquivo txt.
Me parece que a codificação seria esta

Dim conexao As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql as String
'-------------------------------------------------
'Conexão com banco de dados corrente, utilizando o ADO
'-------------------------------------------------
Set conexao = CurrentProject.Connection
'-------------------------------------------
'Monta consulta com os campos desejados
'-------------------------------------------
strSql = "SELECT NomedoCampo, Contato FROM suaTabela ORDER BY NomedoCampo;"
'-----------------------------
'Abre o Recordset da consulta
'-----------------------------
rs.Open strSql, conexao
'--------------------
'Cria o arquivo txt
'--------------------
Open "c:\MinhaPasta\MeuArquivo.txt" For Output As #1
   '-------------------------------------------
   'Copia todo o Recordset para o arquivo txt
   '-------------------------------------------
   Print #1, rs.GetString(adClipString, , "|", vbCrLf)
Close #1
'-----------
'Fecha tudo
'-----------
rs.Close
Set rs = Nothing
Set conexao = Nothing



Então pensei…..
se utilizasse esse mesmo raciocínio para transferir a informação do campo Longo para o outro form (não aberto) como codificaria a partir daqui

'-----------------------------
rs.Open strSql, conexao
'--------------------


Até a codificação de fechar e encerrar.

Obrigado

Oi
Alexandre
Vou estudar
Na dúvida retorno
Obrigado mais uma vez

Oi Alexandre
Dx chegar em casa do trabalho que vejo e informo.
Obrigado

Bom domingo

Desculpe a demora, mas tava enrolado na profissão.


da erro n. 3141
onde diz que a instrução select esta usando palavra reservada ou nome de argumento errado ou falta de pontuação incorreta.


Set rs = CurrentDb.OpenRecordset(sSQL)

Anexei para que possa ver.

Mas ao prosseguir busca a informação no form HDA.


Obrigado

Olá pessoal sou nova não sei bem como funciona o site e também sou nova em vba e eu estou precisando de ajuda

Tenho um um combobox com designação das fábricas eu quero que ao clicar no nome da fábrica em uma outra combobox apareçam prodrutos só daquela fábrica

Como faço para filtrar que quando eu clicar em um fábrica me apareçam em outra combo só os produtos daquela loja

Não estou conseguindo abrir um tópico e vou já a ceder apartir do pc e partilho aqui.

Bom dia

Apenas um detalhe
Porque o texto aparece no campo QP...
Como fazer para aparecer no campo HDA


Obrigado.

Vou encerrar.

Obrigado a todos que ajudaram.