[Resolvido]Abrir Formulário com base em combox e listbox

Ola boa tarde.
É possível abrir um formulário com base em uma listbox ou combox
Exemplo.
Criar uma consulta de clientes onde a Combox/ListBox (Qual seria melhor?) seria vinculada
a uma tabela com todos os clientes já cadastrados e quando selecionar um nome abrir
um formulário e  exibir informações do mesmo?

Att.

Eduardo


Ps: Postei a dúvida aqui, mas ainda nem procurei nada a respeito.

Boa tarde...

Supondo..apenas supondo que já tenha a sua lstbox pronta...ok ?   No evento on click ( ao clicar )

Private Sub sualstbox_Click()

Dim intrecord As Integer
intrecord = Me!sualstbox.Column(0)    coluna zero, é a chave primária

DoCmd.OpenForm "nome_do_formulário_a_ser_aberto"
Forms![nome_do_formulário_a_ser_aberto].SetFocus
Forms!nome_do_formulário_a_ser_aberto!chaveprimária.Enabled = True
DoCmd.GoToControl "chaveprimária"
DoCmd.FindRecord intrecord

end Sub

Campos em vermelho  precisam ser alterados conforme a nomenclatura do teu projeto.

Também tem a opção de um form clientes com uma listbox mostrando todos, e com um clique mostrar os dados do cliente selecionado.

Abraços

Sim já estava pronta a Listbox.....
Funcionou e ficou perfeito, mas como posso fazer para
que,ao invés de listar os clientes listar formulários e relatórios?

Obs: Quanto a abrir o formulário com base no cliente selecionado, pelo seu exemplo
ficou perfeito e acredito que, caso deseje abrir um relatório posso usar a mesma
formatação só alterando o código de Form para relatórios.

Mas e se ao invés de listar os clientes para abrir os formulários ou relatórios
com base no cliente selecionado eu quiser abrir um determinado formulário/relatório?
a questão aqui é em como fazer a listbox  listar os formulários ??

Agora a dúvida é em como montar a listbox.

Att.
Eduardo

Bom dia....

1- Cria-se uma tabela.
2- Coloca-se os nomes dos formulários e relatórios que você tem no sistema.
3- Cria-se uma consulta, com base nessa tabela.
4- Criar um formulário, desvinculado, o qual servirá de menu para abrir esses formulários.
5- Cria-se uma listbox, nesse formulário, com base na consulta criada anteriormente.
6- Ir no evento ao clicar da listbox e insirir o comando para abrir o referido formulário.

Vou montar o código e assim que terminar
Posto ele aqui.
Obs: quando estiver completo altero o status para resolvido.

Caros,


Bolei esse exemplo, aqui abriu normalmente os formulários a partir da listbox, em access 2003.


https://www.dropbox.com/s/6pg46nqg72aifus/formularios.mdb?dl=0


Abraços.

Boa tarde Silvio e Cleverson

Estava tentando aplicar o conceito que vocês me passaram (combox X Abrir formulários)
Mas encontrei um problema ao gerar a combox a partir de um consulta.
Na verdade acredito que o problema se encontre no FomContratos, ou em alguma configuração minha

Vou postar o BD se puderem me ajudar, desde já agradeço.

Link : https://www.dropbox.com/s/qp824bb0cdoiqzg/Controle%20Esta%C3%A7%C3%A3o%20Reall%20II.zip?dl=0

FormMenu / Contratos / CaixCombContraVend (problema nesta Comb)

Blz

Vou dar uma olhada!

Para abrir relatórios com base em CcaixCombinação, usei a seguinte.


Private Sub CaixComRelatotios_Click()
If CaixComRelatotios.Column(0) = "1" Then
DoCmd.OpenForm "FormRelatAparta"


ElseIf CaixComRelatotios.Column(0) = "3" Then
DoCmd.OpenReport "RelatParcVencida", acViewPivotChart

ElseIf CaixComRelatotios.Column(0) = "2" Then
DoCmd.OpenReport "ConsValoresRecebidosgeral", acViewPivotChart

ElseIf CaixComRelatotios.Column(0) = "4" Then
DoCmd.OpenReport "RelatVencimeMes", acViewPivotChart

ElseIf CaixComRelatotios.Column(0) = "5" Then
DoCmd.OpenReport "RelatVendasGeral", acViewPivotChart

ElseIf CaixComRelatotios.Column(0) = "6" Then
DoCmd.OpenReport "RelatVendasImobiliarias", acViewPivotChart


Agora estou tendo problema em abrir um formulário com base em uma caixcombinação
criada a partir de uma consulta.
Se puderem me ajudar.

Obs: Este foi o tema desta dúvida, por isto ainda não dei como resolvido.

Olá Senhores, bom dia.

Se me permitem, gostaria de lhes mostrar uma forma que utilizo para meus projetos:

Link: https://drive.google.com/file/d/0B9lRuJVSt5FGSXVkVkJyY1lkclk/view?usp=sharing


Abraços, WSenna

Obrigado

Obrigado

Valew Edu, que bom que lhe serviu.

O Fórum agradece pelo retorno.

Abraços, WSenna