[Resolvido]Formulario com Caixa de Combinação em Cascata

Bom dia, sou iniciante e novo neste forum. Tenho tentado construir um formulario no qual ao selecionar um dado de uma mesma tabela automaticamente o segundo combo sugere os dados vinculados ao primeiro combo. Abaixo estão as instruções SQL:

Combo 1:txtsubgrupo
SELECT tbl_subgrupos.tbl_codigosubgrupo, tbl_subgrupos.tbl_subgrupo
FROM tbl_subgrupos INNER JOIN tbl_contas ON tbl_subgrupos.tbl_codigosubgrupo = tbl_contas.tbl_contassubgrupo
GROUP BY tbl_subgrupos.tbl_codigosubgrupo, tbl_subgrupos.tbl_subgrupo, tbl_contas.tbl_contassubgrupo, tbl_subgrupos.tbl_codigosubgrupo, tbl_subgrupos.tbl_subgrupo;


Combo 2:txtcontas
SELECT tbl_contas.tbl_codigocontas, tbl_contas.tbl_contas, tbl_contas.tbl_contassubgrupo
FROM tbl_contas
WHERE (((tbl_contas.tbl_contassubgrupo)=[Form]![txtsubgrupo]))
ORDER BY tbl_contas.tbl_codigocontas, tbl_contas.tbl_contas;

Na verdade ao executar na consulta ele funciona perfeitamente, mas quando uso o formulário ao selecionar o primeiro combo ele não sugere as informações para o segundo combo. Já baixei todas as sugestões que constam nos postes aqui no forum e não conseguir resolver o problema. Incluir também botões de salvar, alterar, desfazer, etc, e todos os campos dos formulário permanecem desativados até clicar no botão novo ou alterar.

Botões do formulário:

Option Compare Database

Private Sub btnAlterar_Click()
Me.txtcodigosaidas.Enabled = True
Me.txtcodigoinstituicao.Enabled = True
Me.txtdata.Enabled = True
Me.txtsubgrupo.Enabled = True
Me.txtContas.Enabled = True
Me.txtvalor.Enabled = True
Me.btnExcluir.Enabled = False
Me.btnProximoRegistro.Enabled = False
Me.btnRegistoAnterior.Enabled = False
Me.btnNovoRegistro.Enabled = False
Me.btnSalvar.Enabled = True
Me.btnDesfazer.Enabled = True

End Sub



Private Sub btnNovoRegistro_Click()
Me.txtcodigosaidas.Enabled = True
Me.txtcodigoinstituicao.Enabled = True
Me.txtdata.Enabled = True
Me.txtsubgrupo.Enabled = True
Me.txtContas.Enabled = True
Me.txtvalor.Enabled = True
Me.btnExcluir.Enabled = False
Me.btnProximoRegistro.Enabled = False
Me.btnRegistoAnterior.Enabled = False
Me.btnNovoRegistro.Enabled = False
Me.btnSalvar.Enabled = True
Me.btnDesfazer.Enabled = True
Me.btnAlterar.Enabled = False
Me.txtContas.SetFocus
DoCmd.GoToRecord acDataForm, "Frm_saidas", acNewRec



End Sub

Private Sub btnSalvar_Click()
Me.txtcodigosaidas.Enabled = False
Me.txtcodigoinstituicao.Enabled = False
Me.txtdata.Enabled = False
Me.txtsubgrupo.Enabled = False
Me.txtContas.Enabled = False
Me.txtvalor.Enabled = False
Me.btnExcluir.Enabled = True
Me.btnProximoRegistro.Enabled = True
Me.btnRegistoAnterior.Enabled = True
Me.btnNovoRegistro.Enabled = True
Me.btnAlterar.Enabled = True
Me.btnSalvar.Enabled = False
Me.btnDesfazer.Enabled = False
DoCmd.RunCommand acCmdSaveRecord


End Sub

Private Sub Form_Load()

End Sub



Bem já perdir duas noites tentando resolver este problema. Se alguem puder me ajudar agradeço imensamente.

Creio que o que precisa está nesse exemplo. veja se consegue adaptar:

http://maximoaccess.forumeiros.com/t12966-combos-em-cascata-num-formulario-continuo?highlight=cascata

Sucesso.

Ok, obrigado. Funcionou perfeitamente.

Valeu pelo retorno.
Coloque o tópico como resolvido.

Sucesso.