[Resolvido]Utilizar mais de um filtro em uma função

Saudações amigos.
veja se é possivel o que eu estou tentando fazer:
tenho um formulário que recebe dados de duas tabelas, uma TbAlunos e outra TbAlunosVinculados. A primeira tabela é onde está o cadastro de todos os alunos e a segunda só os alunos vinculados a alguma série. pois bem, tenho um formulário frmAlterarAluno que deve receber os dados das duas tabelas, só que, preciso que esses dados sejam filtrados pelo o campo IdAluno e IdAnoVin, já que com isso eu pretendo filtrar o aluno pelo ano e pelo código do aluno pesquisados num ListBox no formulário frmAlterarAluno. pensei no seguinte:
criei um botão cmdSelecionarAluno que quando eu clicar irá jogar no formulário todos os dados das tabelas TbAlunos e TbAlunosVinculados filtrados pela função que estou tentando fazer. Não consegui. Então tentei atráves de uma consulta cnsGeral onde eu juntei as duas tabelas para aplicar os filtros na consulta via código:

dim TbAv as dao.recordset
dim stSQL as string
stSQL = "select * from cnsGeral where IdAluno=" & txtId
set TbAv = CurrentDb.OpenRecordset(stSQL)
Daí eu só indico para qual campo irá sos dados encontrados tipo:
txtAluno = TbAv("NomeCompleto")
e assim por diante.
O problema agora é como eu irei filtrar o IdAnoVin através do outro filtro, pois não estou consegindo agrupar o outro filtro nessa função.

tentei assim stSQL = "select * from cnsGeral where IdAluno=" & txtId and "IdAnoVin=" txtIdAno e não deu certo. Tentei então com duas variaveis, uma para cada filtro ficou assim:

dim TbAv as dao.recordset
dim stSQL as string
dim sSQL as string
stSQL = "select * from cnsGeral where IdAluno=" & txtId
sSQL = "select * from cnsGeral where IdAnoVin=" & txtIdAno
set TbAv = CurrentDb.OpenRecordset(stSQL & sSQL)

mais também não deu certo.
Agora venho recorrer as pessoas com mais experiências para talvez me auxilia a sair dessa incógnita, ou seja, como eu faço para filtrar os dados das duas tabela ou da consulta pelos dois filtros.
Desde já agradeço a todos!

Boa noite, Diego
Tenha o formulário com todos os registos. Ao abrir, indique o filtro que pretende
DoCmd.OpenForm "NomeForm", , , "IdAluno=" & txtId & " and IdAnoVin=" & txtIdAno

Boa noite Alexandre Neves, essa dica funciona com formulários desacoplados (popular) também, ou só funciona com formulários acopplados?
Saudações!!!

Olá,

Tente assim:

Código:

stSQL = "select * from cnsGeral where IdAluno=" & txtId & " and IdAnoVin=" txtIdAno

Olá Cláuido.
tentei como você falou só que ai vem uma mensagem:
erro de compilação:
era esperado: fim da instrução
e quando eu coloco aspas no final ela não executa.
saudações

stSQL = "select * from cnsGeral where IdAluno=" & txtId & " and IdAnoVin=" txtIdAno

mudei o código acrescentando um operador & no final mais não rolou
stSQL = "select * from cnsGeral where IdAluno=" & txtId & " and IdAnoVin=" & txtIdAno

Pessoal o código que eu estou usando é o seguinte:

Function SelecionarAluno()
Dim Alu As DAO.Recordset
Dim stSQL As String
Dim linha As Integer
'Expressão para abrir a tabela cliente
'By JPaulo ® Maximo Access
On Error Resume Next

linha = Me.Lista2.ListIndex >= 0

stSQL = "select * from cnsGeral where IdAluno=" & txtId & " and IdAnoVin=" txtIdAno

Set Alu = CurrentDb.OpenRecordset(sSQL)

If Not Alu.BOF Then
'Expresão para identificar para onde vai cada campo do formulário

'Identificação
Me.TxtId = Alu("IdAluno")
Me.TxtAluno = Alu("Nomecompleto")
Me.CboSexo = Alu("Sexo")
Me.CboCor = Alu("Cor")
Me.TxtNascimento = Alu("DataNascimento")

'Filiação
Me.TxtMae = Alu("Mae")
Me.TxtPai = Alu("Pai")
Me.TxtResponsavel = Alu("Responsavel")

'Origem
Me.TxtNacionalidade = Alu("Nacionalidade")
Me.TxtPaisDeOrigem = Alu("Pais")
Me.txtUF = Alu("UF")
Me.TxtMunicípio = Alu("Municipio")

'Documentação
Me.TxtNis = Alu("Nis")
Me.CboDocumento = Alu("documento")
Me.txtCartaoSUS = Alu("NcartaoSUS")

'Endereço
Me.CboResidencia = Alu("LocalizacaoResidencia")
Me.TxtEndereço = Alu("EndereçoResidencia")
Me.TxtNumero = Alu("NdaResidencia")
Me.TxtComplemento = Alu("ComplementoResidencia")
Me.TxtBairro = Alu("BairroResidencia")
Me.TxtCep = Alu("CepResidencia")
Me.CboUFResidencia = Alu("UFResidencia")
Me.TxtMunicipioDaResidencia = Alu("MunicipioResidencia")

'Contato
Me.TxtTelefone = Alu("Telefone")
Me.TxtCelular = Alu("Celular")
'Adicionais
If Alu("Especial") = -1 Then
Me.CboEspecial = "SIM"
Else
Me.CboEspecial = "NÃO"
End If
Me.txtAnoIngresso = Alu("AnoIngresso")
Me.txtProgramas = Alu("programas")

End If
Alu.Close
Set Alu = Nothing

End Function

quando uso só um filtro funciona beleza, mas quando tento incluir o outro não funciona.
Saudações.

Pessoal muito obrigado pelo tempo que vocês disponobilizaram em prol do meu problema o código do Cláudio Más depois que eu inseri o oprerador & no ultimo filtro funfou beleza! ficou assim:

Function SelecionarAluno()
Dim Alu As DAO.Recordset
Dim stSQL As String
Dim linha As Integer
'Expressão para abrir a tabela cliente
'By JPaulo ® Maximo Access
On Error Resume Next
linha = Me.Lista2.ListIndex >= 0
stSQL = ("select * from cnsGeral where IdAluno=" & Lista2.Column(0) & " and IdAnoVin=" & cboAno.Column(1))
Set Alu = CurrentDb.OpenRecordset(stSQL)

If Not Alu.BOF Then
'Expresão para identificar para onde vai cada campo do formulário
'Identificação
Me.TxtId = Alu("IdAluno")
Me.TxtAluno = Alu("Nomecompleto")
Me.CboSexo = Alu("Sexo")
Me.CboCor = Alu("Cor")
Me.TxtNascimento = Alu("DataNascimento")

'Filiação
Me.TxtMae = Alu("Mae")
Me.TxtPai = Alu("Pai")
Me.TxtResponsavel = Alu("Responsavel")

'Origem
Me.TxtNacionalidade = Alu("Nacionalidade")
Me.TxtPaisDeOrigem = Alu("Pais")
Me.txtUF = Alu("UF")
Me.TxtMunicípio = Alu("Municipio")

'Documentação
Me.TxtNis = Alu("Nis")
Me.CboDocumento = Alu("documento")
Me.txtCartaoSUS = Alu("NcartaoSUS")

'Endereço
Me.CboResidencia = Alu("LocalizacaoResidencia")
Me.TxtEndereço = Alu("EndereçoResidencia")
Me.TxtNumero = Alu("NdaResidencia")
Me.TxtComplemento = Alu("ComplementoResidencia")
Me.TxtBairro = Alu("BairroResidencia")
Me.TxtCep = Alu("CepResidencia")
Me.CboUFResidencia = Alu("UFResidencia")
Me.TxtMunicipioDaResidencia = Alu("MunicipioResidencia")

'Contato
Me.TxtTelefone = Alu("Telefone")
Me.TxtCelular = Alu("Celular")
Me.txtAnoIngresso = Alu("AnoIngresso")
Me.txtProgramas = Alu("TipoProgramas")

'Adicionais
If Alu("Especial") = -1 Then
Me.CboEspecial = "SIM"
Else
Me.CboEspecial = "NÃO"
End If
If Alu("BoslaFamilia") = -1 Then
Me.cboBolsaFamilia = "SIM"
Else
Me.cboBolsaFamilia = "NÃO"
End If
If Alu("TRANSPORTE") = -1 Then
Me.cboTransporte = "SIM"
Else
Me.cboTransporte = "NÃO"
End If
If Alu("programas") = -1 Then
Me.cboPrograma = "SIM"
Else
Me.cboPrograma = "NÃO"
End If

End If
Alu.Close
Set Alu = Nothing

End Function

Obrigado a todos e um forte abraço!