[Resolvido]Utilizar DCount dentro de Update

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!

Olá,

[002item].[itemn] é algum campo do formulário Form_003Itemsub?

Se for exprimentar assim

DoCmd.RunSQL "UPDATE 002item SET 002item.itemqaf = DCount('[afirmn]', '003afirm', [itemn] = """ &[002item].[itemn] &""");"

Oi, ahteixeira!

Pro código do Update e Dcount estou utilizando somente os campos das duas tabelas envolvidas: 003afirm (que será atualizada pelo form popup) e 002item (que terá o campo itemqaf atualizado pelo código, após as atualizações da 003afirm).

Tentei usar os campos do formulário, mas não dá certo porque o código só utiliza a informação do campo em foco do subform, e a quantidade de afirmativas pode alterar para mais de um item se, por exemplo, no form popup eu alterar, para um afirmativa, a vinculação de um item para outro...

O campo [itemn] é o campo em comum (com relação um-para-muitos) das tabelas 002item e 003afirm.

Outra questão que identifiquei é que eu não posso usar aspas duplas dentro do Dcount, por ele estar dentro do Update.

Estou anexando o bd simplificado para facilitar!!

Ninguém????
  

Ola,

Hoje tou com pouco tempo, mas não está esquecido

Olá

Exprimenta assim

Código:


Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim contador As String

   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("002item")
  
   Do Until rst.EOF
    contador = DCount("[afirmn]", "003afirm", "[itemn] = '" & rst.Fields(1) & "'")
    DoCmd.RunSQL "UPDATE 002item SET 002item.itemqaf = '" & contador & "' WHERE [002item].[itemn] = '" & rst.Fields(1) & "';"
   rst.MoveNext
   Loop

Form_003Itemsub.Refresh


Fico aguardar retorno

Uau!!! Ficou perfeito, ahteixeira!!
Funcionou redondo!

Obrigada!