[Resolvido]Dúvidas sobre abertura de um formulário junto as informações

Bom dia a todos,
Eu gostaria de saber como estudar algo do tipo:

Em um formulário abrir outro formulário atrás de um botão, porém já ali no próprio botão definir tudo que irá acontecer no outro formulário, até mesmo inserir dados como filtro em vez de eu usar códigos no formulário que vai abrir exemplo: =[Forms]![Form]![Campo] ou algo parecido.

Queria já enviar as informações assim já abrir com as informações determinadas...

Outro exemplo, Abrir outro formulário pelo botão, mas no botão já setar o Recordset para aquele formulário.

Alguém tem uma idéia?

Já tentei atráves de Function, Sub porém sem sucesso...

Também algo com

Dim f as new Form_Formname
f.Recordset
f.campo = Me.campo

Mas também sem sucesso...

Boas.. Deseja abrir um formulário filtrado?

de mais detalhes sobre o que necessita.


Cumprimentos.

Bom dia, Piloto!
Eu estou precisando de algo como abrir um formulário com as informações selecionadas por um registro da Recordset de um ADODB, e quando eu selecionar este registro que está em uma listbox, abrir um formulário de edição com tal registro selecionado exatamente iguais, é possível isto porém está difícil com a cabeça quente aqui

Resumo:
Em uma listbox clicar duas vezes e abrir um formulário com o registro em qual eu cliquei, mas tudo usando a base de Recordset.

Conclusão:
É um formulário com controle de mensagens interna, quando o usuário escreve uma msg, é listada na caixa de entrada de outra pessoa e quando esta clicar duas vezes, abrir a mensagem referente aquele em qual ela clicou. porém tudo em recordset.

Desejo:
Manipular os dados de um formulário que vai abrir com base de códigos, assim antes de um formulário abrir posso escrever toda a função dele, mas não exatamente nele, mas podendo ser em outro (Formulário, Módulo ou Classe) com base em VBA.

Para abrir um formulário no registro clicado da listBox...

DoCmd.OpenForm "NomeDoForm" , , , "CampoCodigoDoForm = " & Me.SuaListBox.Column(x)

Onde X é o número da coluna código da listBox.. lembrando que a primeira coluna de uma listBox é a de número 0

Cumprimentos.

Bom dia Piloto!
Saudações! Obrigado pela ajuda deu certinho, porém eu preciso trazer todo o conteúdo da recordset, como aqui eu sei que vai existir mais de 50000 registros de equipamentos das indústrias então vai ficar extremamente pesado, eu gostaria já de filtrar pelo SQL da Recordset. assim só buscar apenas aquele registro, como eu posso manipular um formulário externamente? ou me fala como conseguirei filtrar todo esse conteúdo direto na SQL, ontem fiquei o dia todo tentando algo, mas tá difícil de conseguir algo :/

Boas... eu não estou entendendo o que voce necessita.. de detalhes disto citando os objetos envolvidos.


Cumprimentos.

Então Piloto sou péssimo em explicações...

Vamos dizer que tenho um formulário, e neste formulário eu encontro vários registros, e em um deles é uma listbox, quando eu clicar nesta listbox, irá abrir um formulário com a chamada de conexão e já com a SQL Filtrada com a ID onde selecionei na Listbox.

Eu só gostaria que este novo formulário abri-se com base das informações encontradas no formulário principal, só para carregar 1 registro, para evitar que vários outros se abram juntos.

Listbox Form1:
Coluna Selecionada é 6 (ID) = X

Form2 Carregada
CodConexão....
....
....

SQL = "SELECT A FROM B WHERE A =" & X



Obs (Dúvida se é possível)?:
Porém o que eu realmente queria é escrever todo o código do Form2 em outro lugar e o form2 estivesse em branco, assim que o form2 abrisse ele carregaria todos os seus eventos de procedimentos com base que está escrita em um módulo ou em outro formulário, mas não sei se é possível, pois assim eu poderia sempre mudar o jeito que o formulário 2 carregaria assim evitaria de fazer milhões de formulários também...

Vamos la:

Vamos dizer que tenho um formulário, e neste formulário eu encontro vários registros, e em um deles é uma listbox

1 - Um formulário contem registros... Uma listBox não é um registro...
2 - Uma listBox pode conter vários registros... sendo estes pertencentes ao form ou baseado em outra tabela...
3 - Uma SQL nada mais é que uma consulta que utiliza a Structured Query Language, ou Linguagem de Consulta Estruturada ou SQL

Um formulário pode ser baseado em uma tabela ou uma consulta... a Consulta em SQL pode utilizar uma ou mais tabelas para compô-la...

O Código que passei la acima pra voce abre o formulário filtrado pelo registro clicado na ListBox... Logicamente se este form for baseado na mesma tabela ou uma tabela relacionada que contenha o campo ID da ListBox...


E novamente... ainda estou com dificuldades de entender o que deseja... Sinto.

  
Sem problemas, eu sei o quanto eu sou ruim para explicar minhas ideias kkkkkkk...

Eu tenho um código de conexão de ADOBD Quase assim:

Formulário 1:
Cliquei duas vezes em cima de uma mensagem na Listbox.
X Onde é o valor do ID da Listbox.
Formulário 2:
Onde eu seto a recordset filtrada com o X do formulário 1.

Código:

Dim rs as new Adodb.Recordset
Call CnX1
With rs
      Set .ActiveConnection = cn1
      .Source = "SELECT Campo, CampoII FROM Tabela WHERE Campo=" & X
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .CursorLocation = adUseClient
      .Open
End With
Set Me.Recordset = rs

E????


Ajudaria se postasse um pequeno exemplo.. confesso que ainda não entendi o que deseja amigo. perdoe-me.


Cumprimentos.

Não sei se entendi... mas vou arriscar..

Em um módulo crie uma variável publica:

Public lngId as long

Ao clicar da listBox

lngId = Me.suaListBox.Column(x)


e no evento ao abrir ou carregar do form:

Código:

Dim rs as new Adodb.Recordset
Call CnX1
With rs
      Set .ActiveConnection = cn1
      .Source = "SELECT * FROM Tabela WHERE Campo=" & lngID & "
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .CursorLocation = adUseClient
      .Open
End With
Set Me.Recordset = rs

Perfeito! Era isto mesmo Piloto, já é um grande passo nas minhas idéias! Meu muito obrigado pela ajuda!
Não sabia que podia usar uma variável como públic e setar nela informações só bastando chamar ela com o "nome ="
Mas agora já é um grande passo!

Existe uma maneira de abrir um formulário sem chamar ela dos jeito básico como, DoCmd ou FormOpen ou algo parecido...
Desta maneira diferente que ainda não sei como. É possível você modificar todo o formulário antes de abrir-lo, porém deve se abrir sem chamar-lo igual como se faz no visual basic,

Dim FormX as new form
"Aqui um monte de modificação e depois só fazer o próximo código"
Form.show

Porém no VBA não sei fazer algo semelhante a isso.

Tentei assim

Dim f as new Form_Chat
with f
.caption = "Chat v1" 'Mudar o título da janela
.legenda = "Bem vidos ao chat" 'Escrever o texto da entrada
.modal = true
.visible = true
end with

Porém quando executo este código o formulário abre e fecha rapidinho, da para ver as alterações feitas com sucesso porém ela não permanece aberta. Tem alguma sugestão para isso?

Um exemplo de como o cara conseguiu porém estudei e estudei mas não entendi bolunfas alguma foi este excelentíssimo exemplo!

Creio ser possível... No entanto o assunto difere do assunto deste tópico.

Dê este por encerrado e crie um novo tópico para o assunto.

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.


Cumprimentos.