[Resolvido]Registros com o mesmo Ano através de VBA...

Caros colegas, desejo que o formulário exiba os registros que tem o mesmo Ano contido na Lista166.
Por quê o meu VBA não está funcionando?
Agradeço desde já!

Private Sub Lista166_Click()
Dim strSQL As String
Dim StrANO As String

strSQL = "SELECT * FROM [rubrica de contas]"
StrANO = ("SELECT * FROM [rubrica de contas] WHERE AN0=" & Me.Lista166)
Me.RecordSource = strSQL
Me.Ano.ControlSource = StrANO

End Sub

Tem um zero em vez da letra O

StrANO = ("SELECT * FROM [rubrica de contas] WHERE AN0=" & Me.Lista166)

Por outro lado deve referenciar a coluna da lista onde está esse ano;

As colunas começam por zero (0)

Me.Lista166.Column(1)

JPaulo, fiz assim, mas quando clico num ano novo na lista 166 aparece #nome?:
Esta lista só tem uma coluna acoplada, por isso coloquei 0.

Private Sub Lista166_AfterUpdate()
Dim strSQL As String
Dim STRANO As String

strSQL = "SELECT * FROM [rubrica de contas]"
STRANO = ("SELECT * FROM [rubrica de contas] WHERE ANO=" & Me.Lista166.Column(0))

Me.RecordSource = strSQL
Me.Ano.ControlSource = STRANO

End Sub

Boa tarde, MPS
Nomeie os controlos de forma normalizada
Tente
Private Sub Lista166_AfterUpdate()
Me.RecordSource = "SELECT * FROM [rubrica de contas]"
Me.Ano.ControlSource = "SELECT * FROM [rubrica de contas] WHERE ANO=" & Me.Lista166.Column(0))

Caro Alexandre, obrigado, mas não funcionou.
Acho que o formulário não reconhece esta Recordsource, pois quando carrega não lê o que tem na Lista166.
At
MPS

Colocou o código no acontecimento DepoisDeActualizar a lista. Portanto, o código só é executado neste acontecimento. Se pretender que seja executado noutro acontecimento, coloque-o lá

E esse campo ANO é Texto ou Numerico ?

JPaulo, é numero: 2011, 2012, ...

Faça o teste por favor;


Me.RecordSource = "SELECT * FROM [rubrica de contas]"
Me.Lista166.Requery
Me.Ano.ControlSource = "SELECT * FROM [rubrica de contas] WHERE ANO=" & Me.Lista166.Column(0) & ")"

JPaulo, desculpe-me a demora, só agora pude trabalhar neste frm!
Não funionou, continua com #nome? após eu selecionar o ano novo na lista166.
Tentei tanto no evento click, quanto no afterupdate.
Obrigado!

Se aparece #nome, é porque algum nome não está correto.

Quer anexar aqui o dito formulario com a tabela ou tabelas ?

JPaulo, não estou conseguindo enviar por RAR.
O Maximoaccess só aceita ZIP?
At
MPS

Certo amigo, só em .zip

JPaulo, consegui!!

Veja se é o que pretende;

JPaulo, muito interessante a solução. Parabéns!
Através do Filtro do Formulário. Obrigado!
Tentei fazer com que ele já carregue filtrando, mas deu erro, veja a minha idéia:
Private Sub Form_Open(Cancel As Integer)
Me.Filter = "ano =" & Ano(Data())
Me.Filter = True
End Sub
At
MPS

No VBA, a instrução tem de ser sempre em Inglês:

E tem um erro no Me.Filter = True, é Me.FilterOn = True

Private Sub Form_Open(Cancel As Integer)
Me.Filter = ""
Me.Filter = "Ano =" & Year(Date)
Me.FilterOn = True
End Sub

Grande JPaulo!
Obrigado mais uma vez!

Obrigado pelo retorno o forum agradece.