[Resolvido]Combo menu

Oi
Coloquei este código numa cbo, para fazer de menu, menu combo. Ou seja, ao clicar nas opções da cbo abre form.

Código:

Private Sub cbo_menu_AfterUpdate()
Dim menu As String
menu = Me.cbo_menu.Value
Select Case menu
Case "1"
DoCmd.OpenForm "frm_1"
Case "2"
DoCmd.OpenForm "frm_2"
Case "3"
DoCmd.OpenForm "frm_3"
End Sub

Obrigado,

Olá Ana Rita,

É uma sugestão sua?
Ou alguma dúvida?

Att,

Alexandre Fim

Oi
É dúvida, pois ao clicar na combo, não aparece nada

Estupidez minha, não coloquei no primeiro tópico.

Olá,

Por gentileza, compartilhe uma copia do seu banco de dados para análise solução do problema.
É mais rápido e fácil.

Obrigado

Cordialmente

Alexandre Fim

Ok

Obrigado,

Anexei o form com cbo. Obrigado

Ola Ana,

Eleborei um pequeno exemplo para que o menu seja mais dinâmico.

Criei 2 tabelas, onde elas se relacionam através de um código em comum:


Na tabela "TB_SIS_MOD", ficam armazenados os dados dos módulo (caso houver). Ex.: Administrativo, Recursos Humanos, Vendas e etc.
Na Tabela "TB_SIS_MENU" ficam armazenados os dados referente aos formulários.

O combobox do Módulo é carregado da seguinte forma:


1 - O combobox possui 2 colunas, onde ficam armazenados o Código (cod_mod) e o Nome (nome_mod) dos módulos cadastrados na tabela.
2 - Somente é exibido o Nome do módulo pois a largura da 1a. coluna está como "0cm".

A lista "Funcionalidades" é carregada com os campos desc_form (Descrição da funcionalidade. Ex: Pedido de Vendas) e nome_form (nome do objeto. Ex.: frmPedVenda) da seguinte forma:



A lista de funcionalidades é carregada, usando como critério de seleção, o código do modulo (1a. coluna) "escondido" no combobox "Modulo".

Neste caso, a lista também possui 2 colunas, porem, a 2a. coluna está como "0cm", para não aparecer o nome técnico, e somente a descrição da funcionalidade.

Ao clicar 2x no item da lista, o sistema abre o formulário, confome 2a. coluna da lista, que consta o nome do formulário (nome técnico). Ex:


Desta forma, o menu fica mais dinâmico, onde é necessário somente cadastrar na tabela os formulários criados, com seu respectivo módulo, diminuindo a manutenção no código.

OBS: Abra o código e verifique os comentários para facilitar o entendimento.

Espero ter ajudado.

É isso.

Segue versão do menu.

Att,


Alexandre Fim

Oi

Ficou ótimo. Irei adaptar. Obrigado.
Valeu.

Bom fim de semana. Obrigado,