[Resolvido]Filter = Ano do Sistema

Boa tarde! tenho um campo que se chama Ano (campo texto). Eu gostaria de criar um filtro para que quando o formulário for aberto seja carregado (filtrado) pelo ano corrente do sistema. Eu fiz dessa maneira:

Private Sub Form_Current()
Me.Filter = "ano = year(date)"
Me.FilterOn = True
end sub

No entanto não dá certo

Tenho também um botão de avanço em que não consigo criar o filtro:

Private Sub Proximo_Click()
Dim Soma As Long
Soma = Me.Ano + 1
Me.Filter = "ano = Soma"
Me.FilterOn = True
End Sub

Olá

A coisa é bem sutiu mesmo!

Private Sub Form_Current()
Me.Filter = "ano =" & year(date) se não der certo experimente assim: Me.Filter = "ano = '" & year(date) & "'"
Me.FilterOn = True
end sub

Private Sub Proximo_Click()
Dim Soma As Long
Soma = Me.Ano + 1
Me.Filter = "ano =" & Soma
Me.FilterOn = True
End Sub

Olá Avelino. Deu certo do seu segundo modo. Ficou assim as expreções:

Private Sub Form_Current()
Me!FormTARVAno.Form.Filter = "ano = '" & Year(Date) & "'"
Me!FormTARVAno.Form.FilterOn = True
end sub

Private Sub Proximo_Click()
Dim Soma As Long
Soma = Me.Ano + 1
contarano = DCount("[Ano]", "AnoTARV", "Codigoano = " & Forms.formTARv.Codigo & " AND Ano = '" & Soma & "'")

If contarano > 0 Then
Me.Filter = "ano = '" & Soma & "'"
Me.FilterOn = True
End If
End Sub

Obrigado pela força.
Ps. Eu li seu tutorial sobre filtros em seu site. Muito bom.