[Resolvido]Menus em ComboBox

Bom dia,

Sei que tem e procurei bastante a ainda não conseguir achar. Gostaria de saber se vocês podem me ajudar no seguinte tópico:
Vi um exemplo onde através de uma combo colocada em um formulário listando naquele objeto todos os forms do projeto onde eu clicando em uma opção da combo fecha o form atual e abre o seleciono, como faço isso. Vi um exemplo neste fórum a algumas semanas sobre relatorio me parece até que foi postado pelo Mestre Harysohn.

Alguém pode me ajudar nisso.

Atenciosamente,

Adilson

Uma forma de se conseguir isso pode ser colocando uma combo de nome cboForms por exemplo no formulário e no evento "Ao carregar" carrega essa combo com os nomes dos formulários:

Dim F As Object
For Each F In CurrentProject.AllForms
Me.cboForms.RowSourceType = "value list"
Me.cboForms.AddItem F.Name
Next

No evento "Após atualizar" da combo:

DoCmd.Close acForm, Me.Name
DoCmd.OpenForm Me.cboForms.Column(0)

Não sei se serve, mas veja:

http://maximoaccess.forumeiros.com/t1566-menu-a-partir-de-cbo

Boa tarde,

Terminei agora,

Olhe o que fiz:

no load de cada form.

Me.cboMenus.AddItem "Controle de Atendimento"
Me.cboMenus.AddItem "Entrevista de Alunos"
Me.cboMenus.AddItem "Fechamento de Internamento"
Me.cboMenus.AddItem "Cadastro de Alunos"
Me.cboMenus.AddItem "Situação Familiar"
Me.cboMenus.AddItem "Histórico das Etapas"
Me.cboMenus.AddItem "Consulta Geral de Alunos"
'Me.cboMenus.AddItem "Consulta de Alunos"

e no clique do combo

Private Sub cboMenus_Click()

With cboMenus

Select Case .ListIndex
Case 0
DoCmd.OpenForm "frmAtendimento", acNormal
DoCmd.Close acForm, "frmCadAluno"
Case 1
DoCmd.OpenForm "frmEntrevista", acNormal
DoCmd.Close acForm, "frmCadAluno"
Case 2
DoCmd.OpenForm "frmFechamento", acNormal
DoCmd.Close acForm, "frmCadAluno"
'Case 3
' DoCmd.OpenForm "frmCadAluno", acNormal
' DoCmd.Close acForm, "frmCadAluno"
Case 3
DoCmd.OpenForm "frmSitFamiliar", acNormal
DoCmd.Close acForm, "frmCadAluno"
Case 4
DoCmd.OpenForm "frmHistEtapas", acNormal
DoCmd.Close acForm, "frmCadAluno"
Case 5
DoCmd.OpenForm "frmConsultaGeral", acNormal
DoCmd.Close acForm, "frmCadAluno"
Case 6
DoCmd.OpenForm "frmConsAlunos", acNormal
DoCmd.Close acForm, "frmCadAluno"
End Select
End With
End Sub

e fui mudando conforme mudava de form:
por exemplo quando eu ia para o form frmConsultaGeral, colocava ' (comentario) na linha:

'Case 5
' DoCmd.OpenForm "frmConsultaGeral", acNormal
' DoCmd.Close acForm, "frmCadAluno"

e na linha:

'Me.cboMenus.AddItem "Consulta Geral de Alunos"

Há se eu soubesse da forma do Criquio, não teria digitado tanto. È brincadeiras, vou refazer tudo como o Criquio ensinou e vou olhar ainda o exemplo de Vieira.


Agradeçido


Adilson

O código do Criquio facilita muito. Esse exemplo que lhe enviei é antigo, mas funciona.Obrigado.

Nesse caso, seria mais simples você carregar o nome do formulário juntamente com o nome que quer exibir, algo como:

Me.cboMenus.AddItem "NomeDoform1" & ";" & "Controle de Atendimento"
Me.cboMenus.AddItem "NomeDoform2" & ";" & "Entrevista de Alunos"
Me.cboMenus.AddItem "NomeDoform3" & ";" & "Fechamento de Internamento"
Me.cboMenus.AddItem "NomeDoform4" & ";" & "Cadastro de Alunos"
Me.cboMenus.AddItem "NomeDoform5" & ";" & "Situação Familiar"
Me.cboMenus.AddItem "NomeDoform6" & ";" & "Histórico das Etapas"
Me.cboMenus.AddItem "NomeDoform7" & ";" & "Consulta Geral de Alunos"
'Me.cboMenus.AddItem "NomeDoform8" & ";" & "Consulta de Alunos"

Observe que no caso acima, a cbo terá duas colunas. Você precisa então, configurar ela para ter duas colunas. Pode deixar a primeira coluna oculta,colocando 0cm para ela. E ao invés desse código todo do clique da combo, pode colocar no "Após atualizar" dela assim:

DoCmd.OpenForm Me.NomeDaCombo.Collumn(0)
DoCmd.Close acForm, Me.Name

Mas esse esquema seria para o caso de não precisar de todos os formulários, mas apenas alguns. Para carregar todos eles, a função facilita.

É Show, tenho mais uma dúvida mas é tópico novo.


Grato

Adilson