Boa tarde
Tenho 01 tabela chamada Tbl_Cadastro_Menu
Com Id_Cadastro_Menu (chave automática)
Menu_Grupo (texto curto)
Menu_Grupo (texto curto)
Menu_Descricao (texto curto)
No form coloquei duas list Box
1) ListaOpcoes
2) ListSelecionarOpcao
No form
na 01 ListaBox
como fonte Menu_Grupo
na Origem SELECT Tbl_Cadastro_Menu.Menu_Grupo FROM Tbl_Cadastro_Menu GROUP BY Tbl_Cadastro_Menu.Menu_Grupo ORDER BY Tbl_Cadastro_Menu.Menu_Grupo;
No Evento AfterUpdate desta Lista
Private Sub ListaOpcoes_AfterUpdate()
Me.ListaSelecionarOpcao.SetFocus
Me.ListaSelecionarOpcao.Requery
Me.ListaSelecionarOpcao.Dropdown
End Sub
Dá erro em erro de compilação: Método ou membro não encontrado Me.ListaSelecionarOpcao.Dropdown (Azulado em .dropdown).
Duas dúvidas:
1) Como resolvo? Qual seria o equivalente na listBox?
2) Como peço para abrir o Form escolhido na segunda caixa Lista?
Obrigado.
Anexei um exemplo
Tenho 01 tabela chamada Tbl_Cadastro_Menu
Com Id_Cadastro_Menu (chave automática)
Menu_Grupo (texto curto)
Menu_Grupo (texto curto)
Menu_Descricao (texto curto)
No form coloquei duas list Box
1) ListaOpcoes
2) ListSelecionarOpcao
No form
na 01 ListaBox
como fonte Menu_Grupo
na Origem SELECT Tbl_Cadastro_Menu.Menu_Grupo FROM Tbl_Cadastro_Menu GROUP BY Tbl_Cadastro_Menu.Menu_Grupo ORDER BY Tbl_Cadastro_Menu.Menu_Grupo;
No Evento AfterUpdate desta Lista
Private Sub ListaOpcoes_AfterUpdate()
Me.ListaSelecionarOpcao.SetFocus
Me.ListaSelecionarOpcao.Requery
Me.ListaSelecionarOpcao.Dropdown
End Sub
Dá erro em erro de compilação: Método ou membro não encontrado Me.ListaSelecionarOpcao.Dropdown (Azulado em .dropdown).
Duas dúvidas:
1) Como resolvo? Qual seria o equivalente na listBox?
2) Como peço para abrir o Form escolhido na segunda caixa Lista?
Obrigado.
Anexei um exemplo
- Anexos
- Teste2.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (51 Kb) Baixado 3 vez(es)