[Resolvido]Retorna Pesquisa

Bom Dia a Todos.

Estou a estudar um BD, e estou precisando de ajuda.
O caso é o seguinte.
Eu tenho um formulário de pesquisa que quando eu clico no campo "MATRICULA"  ele abre o formulário de cadastro de alunos. Até ai tudo bem.
Porém estou precisando que alem da combox vir com a Matricula desejada o cadastro do mesmo aparece.
E o meu sistema está me retornando o primeiro registro.

Segue abaixo o código que estou usando.

Código:

Option Compare Database
Option Explicit

Private Sub MATRICULA_Click()
DoCmd.OpenForm "formAluno"
Form_formAluno.CboBuscar.Value = Me!MATRICULA
Form_formAluno.CboBuscar.SetFocus
Me.Refresh
End Sub


Desde já agradeço a todos.

Ola;

Teste e retorne por favor;

Código:

Private Sub MATRICULA_Click()
    DoCmd.OpenForm "formAluno"
    Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA
    Forms!formAluno!CboBuscar.SetFocus
    Forms("formAluno").Filter = "MATRICULA=" & Forms!formAluno!CboBuscar & ""
    Forms("formAluno").FilterOn = True
    Me.Refresh
End Sub


Se MATRICULA for texto;

Código:

Private Sub MATRICULA_Click()
    DoCmd.OpenForm "formAluno"
    Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA
    Forms!formAluno!CboBuscar.SetFocus
    Forms("formAluno").Filter = "MATRICULA='" & Forms!formAluno!CboBuscar & "'"
    Forms("formAluno").FilterOn = True
    Me.Refresh
End Sub


Bom dia

Eu tentei usar o código mais não deu certo
se puder dar uma olhada em meu BD ficarei grato.
O formulário que chama o cadastro de Aluno é "FrmListadeAluno" campo "MATRICULA" ao selecionar eu queria que ele retornasse exatamente o cadastro que estou verificando, no formulário "formAluno"

Projeto SMMA


Desde já agradeço.

Ola;

Não dá certo porque eu coloquei TXTMATRICULA, é só apagar o TXT

Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA

Muito Obrigado.

Deu certinho.

Fico feliz.

Obrigado pelo retorno o forum agradece.