[Resolvido]Criar caixas de combinação em cascata

Caixas de combinação em cascata

Boa tarde. Tenho um sistema de gerenciamento de ordens de serviço (Controle de OS). Nele são cadastradas as OS (projetos mecânicos) e cada um é dado um projetista (ou vários) que executará o projeto.
As OS possuem informações únicas como os itens e sub-itens ou, para ficar mais claro, atividades para cada projeto que cada projetista seleciona depois no apontamento de horas. Os sub-itens seriam informações relacionadas aos itens (e não a OS).

Ex:

OS | Item | Sub-item

1002-12 | Oficialização | Estudo
Desenho para Sourcing
Execução

Outro sistema, o Apontamento de Horas, puxa pela rede os dados das OS, itens e sub-itens e o projetista lança suas horas.

Quando ele escolhe a OS na primeira caixa de combinação, a segunda caixa exibe os itens relacionados desta OS e na terceira caixa aparecem os sub-itens relacionados ao item.

A parte da filtragem funcionou mas o formulário ficou pesado para abrir e os dados já inseridos ficaram sumindo e aparecendo.

Seguem os códigos que usei. Eles fizeram com que as caixas ficassem em branco até que fossem clicadas e o usuário não visualizaria os dados inseridos das OS.

Na caixa de combinação das OS (cboNumOS) no evento "ao receber foco":

Private Sub cbNumOS_GotFocus()
' Limpa a combo cboItens toda
' vez que cbNumOS recebe o foco.
cboItens = Null

End Sub

Na caixa de combinação dos Itens (cboItens), no evento "ao receber foco"

Private Sub cboItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboItens.Requery

End Sub

Na caixa de combinação dos Sub-itens (cboSubItens), no evento "ao receber foco".

Private Sub cboSubItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboSubItens.Requery

End Sub

Se alguém souber onde está o erro será muito bem vindo.

Obrigado. Vou dar uma estudada e mando um retorno.

Bom dia! Eu fiz o teste aqui e só funcionou a filtragem. Os campos quando o formulário é aberto ficam em branco até que seja escolhido algum item na lista. Para uma tabela que é acessada pela rede, com um servidor meio capenga, a abertura também ficou lenta.
Vou fechar o tópico e abro outro posteriormente.
Obrigado!

Amigos, estou quebrando a cabeça com essa problema que sei ser bem simples. Não consigo fazer duas combobox em cascata. Já tentei de várias formas seguindo diferentes tutorias. Inclusive daqui. Mas a segunda combo simplesmente não filtra. Aliás, retorna sempre vazia. Cheguei a fazer um BD só pra seguir o tutorial. Nesse BD de exemplo funcionou perfeitamente. Mas no meu BD real não funciona. Digitei a seguinte busca SQL na propriedade Origem da Linha:
SELECT TblCategoriaDoBem.NomeSubCategoria, TblCategoriaDoBem.NomeCategoria FROM TblCategoriaDoBem WHERE (((TblCategoriaDoBem.NomeSubCategoria)=[Formulários]![FrmProcessosTombamento]![CboCategoria]));


No evento Após Atualizar da primeira Combo coloquei

Me.[CboSubCategoria].Requery

Só que a segunda combo retorna sempre com a lista vazia.

Onde estou errando? Tem alguma outra forma mais simples de fazer combobox em cascata?

Olá, não avancei tanto em combos em cascata. Uso muito a simples de uma expansão apenas.
Segue o modelo.

Juliano

Olá, Juliano.

Já tinha tentando essa solução mas tive o mesmo problema. A segunda Combo retorna sempre sem nenhum valor. Não consegui entender onde está o erro pois em outro BD que fiz apenas para testar opções de combo em cascata funcionou. Quando passei para o BD que estou desenvolvendo apareceu o problema.

Oi Nilson, tenta ver se essa videoaula ajuda. Talvez possa estar faltando alguma coisa nas consultas das caixas.
Espero que ajude.

Access - Combos Relacionadas.zip

Segui esses passos (que não é muito diferente de outro tutorial que vi aqui) e ainda continua com o mesmo problema. Não entendo onde está o erro pois eu fiz em outro BD e funcionou perfeitamente!

Nilson, fiz uma versão compacta do sistema que uso para cadastro de imagens. Deixei alguns dados para compor o resultado das caixas.
Ela é baseada em um modelo que baixei mas perdi o arquivo.
Espero que ajude.

Bom dia Juliano!

Vou dar uma olhada e ver se consigo adaptar. Muito obrigado pela disposição e ajuda. Abraços

Beleza! Não há de quê. Eu também vou treinando porque não é sempre que preciso.