Subformulário, Sobrepondo Campos da Caixa de Combinação

Olá gente,

Estou desenvolvendo um sistema contábil. Nele para cada conta devedora pode existe mais de uma credora. Na prática funciona desta forma: Imaginemos que uma empresa comprou mercadorias para revenda no valor de R$ 600,00. O pagamento ocorreu de duas formas, metade, R$ 300,00, em dinheiro e o restante a prazo. No lançamento contábil deve proceder da seguinte forma:

D: Mercadorias: R$ 600,00
C: Fornecedores: R$ 300,00
C: Caixa: R$ 300,00

A forma apresentada acima é como estou desenvolvendo o sistema. Para isso criei duas tabelas, Contas Devedoras e Contas Credoras. Para cada conta devedora pode existe mais de uma credora. Contudo, a quantidade de contas contábeis são grandes e classifiquei em 3 níveis. Grupo, Subgrupo e finalmente as Contas. No momento do lançamento existe uma caixa de combinação para cada uma respectivamente. uma ligando a outra. No momento em que o usuário lança a conta devedora, que sempre será somente um débito e nunca haverá mais de um débito o sistema esta perfeito. Mais quando na mesma tela ele vai lançar o crédito como apresentado no exemplo acima, neste momento apresenta um erro. Quando o usuário seleciona a primeira conta a crédito de acordo com as caixas de combinação o sistema entende corretamente, mais quando seleciona no mesmo registro a segunda conta ele sobrepõe a primeira com os dados da segunda. Bem, os esclarecimento foi grande para quem puder me ajudar entender o objetivo. Abaixo estou colocando os códigos.

Código:



Option Compare Database


Private Sub txtcredorgrupo_AfterUpdate()

    Me.txtcredorasubgrupoid.Requery
    Me.txtcredorasubgrupoid.SetFocus
    Me.txtcredorasubgrupoid.Dropdown

End Sub

Private Sub txtcredorasubgrupoid_AfterUpdate()
    Me.txtcredoracontaid.Requery
    Me.txtcredoracontaid.SetFocus
    Me.txtcredoracontaid.Dropdown
    
End Sub

Caixa de Combinação 1:

Código:

SELECT tbl_grupo.grupocodigoid, tbl_grupo.grupogrupo
FROM tbl_grupo
ORDER BY tbl_grupo.[grupocodigoid], tbl_grupo.[grupogrupo];


Caixa de Combinação 2:

Código:

SELECT tbl_subgrupos.subgrupocodigoid, tbl_subgrupos.subgruposubgrupo
FROM tbl_subgrupos
WHERE (((tbl_subgrupos.subgrupogrupoid)=[txtcredorgrupo]))
ORDER BY tbl_subgrupos.subgrupocodigoid, tbl_subgrupos.subgruposubgrupo;


Caixa de Combinação 3:

Código:

SELECT tbl_contas.contacodigoid, tbl_contas.contaconta, tbl_contas.contasubgrupoid
FROM tbl_contas
WHERE (((tbl_contas.contasubgrupoid)=[txtcredorasubgrupoid]))
ORDER BY tbl_contas.contacodigoid, tbl_contas.contaconta;


Postei a imagem da tela para ajudar a atender qual a minha dificuldade. Lembrando que na imagem onde está escrito crédito, trata-se de um subformulário.

Bem desde de já agradeço a ajuda