[Resolvido]Atualizar outras tabelas

Bom dia
Tenho um formulário com uma caixa de texto ano que no separador dados e na linha valor predefinido tem =Ano(Data()), contudo, queria atualizar três tabelas com o campo ano e inseri o seguinte código:

Private Sub Ano_AfterUpdate()
CurrentDb.Execute "UPDATE [tbl_Contas] SET Ano= " & Me.Ano.Value & " WHERE ID= " & Me.Código.Value & ""
CurrentDb.Execute "UPDATE [Receitas] SET Ano= " & Me.Ano.Value & " WHERE Código= " & Me.Código.Value & ""
CurrentDb.Execute "UPDATE [Despesas] SET Ano= " & Me.Ano.Value & " WHERE Código= " & Me.Código.Value & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub

Contudo, não dá erro nenhum mas também não insere os dados nas tabelas coluna ano, o que poderá estar mal.
Agradeço a atenção dispensada,
Rui Maciel

Boa tarde, rui
Provavelmente, nenhum dos critérios se verifica. Veja o que transporta Me.Ano.Value. Será do nome ser dúbio?

Já alterei o nome do campo mas continua a não fazer o lançamento nas tabelas.
Cumprimentos,
Rui Maciel

Já alterei o nome do campo mas continua a não fazer o lançamento nas tabelas.
Cumprimentos,
Rui Maciel

Boa noite,
Só verificando na bd

Boa noite Alexandre
Segue em anexo a bd.
Abraço,
Rui Maciel

formato não reconhecido. É melhor em 2003 / 2007

Ok segue em 2003.
Rui

O código actualiza a tabela com a condição verificada no controlo de Código. O Código está nulo e deve já estar preenchido

Como devo retificar?
Obrigado,
Rui

É prrencher o código antes do ano

Ok Alexandre, obrigado, resolvido, foi só colocar o código no afterupdate do campo receitas e despesas.
Abraço,
Rui Maciel

Certo, Rui
Estive a pesquisar a paróquia e verifiquei que pertence a Viana do Castelo.
Abraços do Conviva do 250 do Porto.
Alexandre