Problema com a Soma em formulário

Tenho 1 tabela

Cod  sub_cod  Status   Jan Fev Mar Abr Mai Jun  Jul  Ago  Set Out Nov   Dez
01    2302983  previsto   0   0     0    0    0   10   10   10   0     0    0  0   0
01    3444555  previsto   0   0     0    0    0   10   10   10   0     0    0  0   0
02    1122121  previsto   0   0     0    0    0   10   20   10   0     0    0  0   0
02    2345444  previsto   0   0     0    0    0   10   20   10   0     0    0  0   0


Em um campo  ([Ativo])  de meu  Formulário frm_Ac_Ed  tenho um campo desvinculado totalizador que uso um Dsum, onde pretendo somar o valor dos meses Janeiro,Fevereiro.... até dezembro de acordo com o critério número do código.Seguindo os dados acima seria o seguinte:
Quando o form estiver mostrando cod=01 e sub_cod=2302983  nesse campo vou mostrar 60, ao mostrar cod=02 e sub_cod=1122121
vou mostrar 80, isto é sempre o somtório de código.
Coloquei o DSUM no evento "atual" do Form (não sei se seria o mais correto);

Como carrego o form através da seleção de um nome de outro form ![frm_Diário],carrego o form pela variável sc

Dim sc
sc = Forms![frm_Diário].Lst_A

me.Ativo = DSum(" [Jan]+[Fev]+[Mar]+[Abr]+[Mai]+[Jun]+[Jul]+[Ago]+[Set]+[Out]+[Nov]+[Dez]", sc, "Cod='" & Forms![frm_Ac_Ed]![Cod] & "'")

o código acima não está mostrando a soma.... No caso de mostrar sempre o valor nesse campo calculado (seria em tempo real?), quando por exemplo alterasse o valor de um mes na tela , usaria o comando requery??

agradeço antecipado a atenção

Obrigado pela resposta.

Sim são os valores totais por código.Consegui resolver em parte fazendo a conta por fora:


Private Sub SomandoCod()
sc = Forms![frm_Diário].Lst_A
CurrentDb.Execute "UPDATE [" & sc & "] SET [" & sc & "].Ativo = [Jan]+[Fev]+[Mar]+[Abr]+[Mai]+[Jun]+[Jul]+[Ago]+[Set]+[Out]+[Nov]+[Dez] WHERE ((([" & sc & "].Status)=1));"
End Sub

O Valor é exibido corretamente em ([Ativo]) , porém se entro no registro e altero o valor , somente quando mudo de registro é que ele atualiza o campo.
Há como atualizar o me.[Ativo] sempre que houver alterações de valor?

no atual ficou

Private Sub Form_Current()
call SomandoCod
me.[Ativo] = DSum("[[Ativo]]", sc, "Cod='" Forms![frm_Ac_Ed]![Cod] & "'")
End Sub