[Resolvido]Erro 4 caixas de listagem sincronizadas

Boa tarde.
Segui a dica do Fábio no post de 03 caixas de listagem sincronizadas.

https://www.maximoaccess.com/t27194-resolvidoerro-3-caixa-listagem-sincronizadas

Mas não deu muito certo.
Nesta aplicação são 4 tabelas para cadastro de procedimentos da tabela TUSS.
Nessa interação entre as 4 caixas de listas não estou conseguindo criar a consulta em sql para fazer rodar a segunda caixa e sucessivamente.
Alguém teria alguma sugestão.
Obrigado

Mylton, esta errando na comparação amigo, veja:

    Me.Lista2.RowSource = "SELECT Id2TiposProcedimentos,Id1TiposProcedimentos, Descricao2Procedimentos FROM Tbl_2NivelProcedimentos " & _
    "WHERE Id1TiposProcedimentos = " & Me.Lista2.Column(0) & " ORDER BY Descricao2Procedimentos"

Aqui esta o erro dessa Combo2... Pois para preenche-la vc esta dizendo que o TipoProcedimento é igual a Lista2, onde na verdade deve ser igual a Lista1, pois e nela que tem o ID correto.


Me.Lista2.RowSource = "SELECT Id2TiposProcedimentos,Id1TiposProcedimentos, Descricao2Procedimentos FROM Tbl_2NivelProcedimentos " & _
    "WHERE Id1TiposProcedimentos = " & Me.Lista1.Column(0) & " ORDER BY Descricao2Procedimentos"




Segue o Código de todas as Combos funcionando...

Código:


Private Sub Lista1_AfterUpdate()
'Define a caixa de listagem área de atuação para ser limitada pela caixa subsequente
     Me.Lista2.RowSource = "SELECT Id2TiposProcedimentos,Id1TiposProcedimentos, Descricao2Procedimentos FROM Tbl_2NivelProcedimentos " & _
     "WHERE Id1TiposProcedimentos = " & Me.Lista1.Column(0) & " ORDER BY Descricao2Procedimentos"
End Sub

Private Sub Lista2_AfterUpdate()
'Define a caixa de listagem área de atuação para ser limitada pela caixa subsequente
     Me.Lista3.RowSource = "SELECT Id3TiposProcedimentos,Id2TiposProcedimentos, Descricao3Procedimentos FROM Tbl_3NivelProcedimentos " & _
     "WHERE Id2TiposProcedimentos = " & Me.Lista2.Column(0) & " ORDER BY Descricao3Procedimentos"
End Sub

Private Sub Lista3_AfterUpdate()
'Define a caixa de listagem área de atuação para ser limitada pela caixa subsequente
     Me.Lista4.RowSource = "SELECT Id4TiposProcedimentos,Id3TiposProcedimentos, Descricao3Procedimentos FROM Tbl_4NivelProcedimentos " & _
     "WHERE Id3TiposProcedimentos = " & Me.Lista3.Column(0) & " ORDER BY Descricao3Procedimentos"
End Sub


Outro erro que peguei foi:
Na ultima combo, vc selecionou um campo ( Descricao4Procedimentos) que nao existe na tabela... o nome correto é Descricao3Procedimentos




A regra para combos dependentes e:

Ao clicar na combo1, ela preenche a combo2;
A combo 2 tera um campo que sera igual a combo 1. Era aqui q esta errando.

Bom dia Fábio.
Obrigado mais uma vez.
Qual seria o código para quando ao clicarmos na primeira caixa as demais ficassem limpas?
Abs

Para limpar cx listagem:
Me.nomeCxListagem.Rowsorce = ""
Veja se nao tem erro dogitacao, estou crlular.

Ok
Coloco em cada caixa de listagem ou em qual?

Na primeira Lista, no evento ao clicar vc coloca:

Me.Lista3.RowSource = ""
Me.Lista4.RowSource = ""


Na Segunda Coloca:

Me.Lista4.RowSource = ""

So fique atento para nao Limpara a Lista que nao deve... Ou seja limpar a que sera preenchida na sequencia!

Ok
Funcionou.
Obrigado.
Gde Abs