[Resolvido]Listando todos os formulários em uma combobox

Olá a todos,
Estou com um projeto em mente, onde existe um só formulário com uma combo box que irá listar todos os formulários restante na mesma, e quando eu selecionar a combobox o subformulário a baixo irá trocar pelo selecionado na combo box.

O que eu realmente preciso é, listar todos os formulários nesta combo box como eu faço?

Tentei este mas sem sucesso...



Dim frm As Object

For Each frm In CurrentProject.AllForms
Me.comboforms.AddItem frm.Item.Name
Next frm

dhtm15

Acredito que seja isso que procura, do site access exemplos so não sei o autor.

exatamente isto que gostaria de implementar no meu projeto, mas gostaria de não usar a tabela e consulta, e sim extrair estas informações através do vba, e criar uma combobox com todos os formulários dentro do projeto, então futuramente posso matar o problema de esquecer de colocar algum formulário ou algo do tipo.

Entendi

Ai realmente não sei como ajudar mas com certeza logo os colegas

Que dominam vba irão te dar uma luz

Consegui algo como:

Código:


Private Sub Form_Load()
Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        Me.comboforms.AddItem obj.Name
    Next obj
End Sub


Mas agora como é que eu coloco as legendas na combo box, mas o valor verdadeira é o nome do formulário?
Exemplo: Formulário: x1264721 ---> Menu principal <--- (Legenda do Formulário)

Como posso ordenar o combobox? pois está pegando os formulários todos desorganizados.

Bom dia Fórum!
Ninguém pode ajudar com o meu problema? estarei fechando o tópico...

Bom dia a todos.... com a permissão de todos os participantes do tópico.

vou dar uma olhada nele...e ver o que eu consigo fazer...

PS.....tem como salvar o mesmo na versão AC2007 ?

Abraços.

Silvio

obrigado silvio por estar me ajudando,
ele já está em accdb, mas você quer converter em mdb? faça o que você achar melhor para você trabalhar, só gostaria de um bom resultado.
Cumprimentos!

Bom dia,

Se possível for, manda em *.MDB

Postado já com os 2 2003 e 2007, nas próximas vezes serei mais cuidadoso em postar as duas versões.

Bom dia...

Já estou com ele aqui,

No formulário, controle de serviços, há uma combo onde estão os fomulários, estou correto ? se eu estiver, noto que falta uma consulta nessa combo para ordenar em forma alfabética esses formulários.

Creio eu, que seja apenas isso que falta para ti.

Qualquer coisa, estarei por aqui na parte da manhã.

Abraços.

exatamente esse combo, ele fica desordenado os nomes dos forms, como posso ordenar eles com uma consulta? é uma consulta sql?

1- crie uma tabela com todos os formulários que existem ou que possam vir a fazer parte do teu projeto.

2- crie uma consulta baseada nessa tabela.

3- ordene, nessa consulta, todos os formulários em ordem alfabética.

4- execute essa consulta, para ver se a mesma esta ordenando os formulários.

5- deixa essa consulta, como fontes de dados em tua combo.

Teste.

Porque não cria uma consulta nova em modo SQL e cola lá isto ?

SELECT MSysObjects.Name AS Formulario
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768))
GROUP BY MSysObjects.Name
ORDER BY MSysObjects.Name;

Nossa simples assim? criei uma consulta como você disse:
SELECT MSysObjects.Name AS Formulario
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768))
GROUP BY MSysObjects.Name
ORDER BY MSysObjects.Name;

então quer dizer que eu não preciso do módulo, basta só esta consulta e empregar na combo que está a funcionar?


* Agora entendi o seu procedimento Jpaulo, você abriu o próprio banco do access onde já está escrito os nomes dos formulários, e para identificar cada formulário ele já registra com -32768 na type, assim rotulado você pode se fazer a consulta.

Só até então não sou tão bão quando se trata de sql

Silvio fiz como procedeste a fazer

Veja se é isto que estar a falar

Jpaulo outra dúvida sobre este passo, ao ocultar o formulário este se registra também no msysobjects ? pois ai eu usaria este código para filtrar certos formulários para não aparecer na lista. como subformulários que não necessita aparecer na lista.

A tabela MSysobjects é uma tabela de sistema, todos os objetos do seu banco estão lá, ocultos ou não.

acho que não expliquei direito,
está tabela marca em algum campo se o formulário está oculto ou não? tipo um 1;0 ou hidden/visible

Pois a minha idéia era ocultar da consulta aqueles formulários que não desejo que apareça na lista. Mas se você tiver alguma outra idéia melhor, é sempre bem vindo.

Para não aparecer alguns formulários na lista, crie uma tabela, e relacione e na clausula where inclua um not in ou um relacionamento do tipo right join

Exemplo 1:
SELECT MSysObjects.Name AS Formulario
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768) AND ((MSysObjects.Name) Not In (SELECT nome FROM tabela1 where tabela1.nome=Name)))
GROUP BY MSysObjects.Name
ORDER BY MSysObjects.Name;

Exemplo 2:
SELECT MSysObjects.Name AS Formulario
FROM Tabela1 RIGHT JOIN MSysObjects ON Tabela1.nome = MSysObjects.Name
WHERE MSysObjects.Type=-32768 and Tabela1.Nome IS NULL
GROUP BY MSysObjects.Name, Tabela1.nome
ORDER BY MSysObjects.Name;

Boa tarde, dhtm
Utilize
SELECT Name AS Formulario FROM MSysObjects WHERE Type=-32768 and Flags <> 8 ORDER BY Name

rclenzi tudo bem?
Não entendi o teu conceito, pode facilitar as coisas pra mim?

Alexandre tudo bem?
Você referêncio o Flag 8 como oculto, mas quando deixo as tabelas ocultas as flags continua 0, o que pode ser?

Galera, resolvi escrevendo no SQL este código:

SELECT MSysObjects.Name AS Formulario
FROM MSysObjects
WHERE (((MSysObjects.Name)="ID") AND ((MSysObjects.[Type])=-32768)) OR (((MSysObjects.Name)="DetectIdleTime") AND ((MSysObjects.[Type])=-32768))
ORDER BY MSysObjects.Name;

Simplesmente eu coloco o filtro do nome do formulário que eu quero e pronto, sai a lista dos formulários!

Obrigado a atenção de todos!

A minha idéia era criar uma tabela aonde vc iria colocar o nome dos formulários que gostaria de ocultar na listagem, assim nao precisaria ficar alterando o SQL, simplesmente acrescentaria nessa tabela o nome do formulário e ele nao aparecia na listagem.

Veja se é o ultimo exemplo com tabela que postei neste tópico, testa e me confirma.