Bom dia a todos!
Utilizo muito esse fórum para minhas dúvidas, mas nunca cheguei a precisar abrir um tópico... Acho que agora é o caso!
Seguinte: Tenho um banco com 3 níveis de dados (3 tabelas vinculadas): A primeira (001crit), possui vários registros vinculados da segunda (002item), que possui vários registros vinculados da terceira (003afirm)...
Em português (!): São vários Critérios, que possuem vários Itens vinculados, que possuem várias Afirmativas vinculadas. As tabelas possuem relação um-pra-muitos...
Tenho um form para a tabela 001crit, com subfor pra tabela 002item e um form popup para a tabela 003afirm...
Um dos campos da tabela 002item é a quantidade de registros vincuados da tabela 003afirm.
Fiz um código para o evento "fechar" do form popup (que exclui, edita vínculo aos Itens e inclui Afirmativas), utilizando Update com Dcount para atualizar o campo de qtde de afirmativas da tabela 002itens, mas o código está zerando esse campo para todos os registros...
Segue o código:
Private Sub Form_Close()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("002item")
Do Until rst.EOF
DoCmd.RunSQL "UPDATE 002item SET 002item.itemqaf = DCount('[afirmn]', '003afirm', [itemn] = '[002item].[itemn]');"
rst.MoveNext
Loop
Form_003Itemsub.Refresh
End Sub
_________________________________
Estou a 3 dias tentando fazer esse código funcionar... Sem sucesso...
Peço socorro!!!
Abraço!
Utilizo muito esse fórum para minhas dúvidas, mas nunca cheguei a precisar abrir um tópico... Acho que agora é o caso!
Seguinte: Tenho um banco com 3 níveis de dados (3 tabelas vinculadas): A primeira (001crit), possui vários registros vinculados da segunda (002item), que possui vários registros vinculados da terceira (003afirm)...
Em português (!): São vários Critérios, que possuem vários Itens vinculados, que possuem várias Afirmativas vinculadas. As tabelas possuem relação um-pra-muitos...
Tenho um form para a tabela 001crit, com subfor pra tabela 002item e um form popup para a tabela 003afirm...
Um dos campos da tabela 002item é a quantidade de registros vincuados da tabela 003afirm.
Fiz um código para o evento "fechar" do form popup (que exclui, edita vínculo aos Itens e inclui Afirmativas), utilizando Update com Dcount para atualizar o campo de qtde de afirmativas da tabela 002itens, mas o código está zerando esse campo para todos os registros...
Segue o código:
Private Sub Form_Close()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("002item")
Do Until rst.EOF
DoCmd.RunSQL "UPDATE 002item SET 002item.itemqaf = DCount('[afirmn]', '003afirm', [itemn] = '[002item].[itemn]');"
rst.MoveNext
Loop
Form_003Itemsub.Refresh
End Sub
_________________________________
Estou a 3 dias tentando fazer esse código funcionar... Sem sucesso...
Peço socorro!!!
Abraço!