[Resolvido]Status de um registro em cx de texto não acoplada

Dim rs As DAO.Recordset
Dim qStatus As Boolean
Dim qAno As String
qAno = format(Date, "YYYY")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeTabelaDoSubForm " _
& "WHERE CampoAnoLetivo='" & qAno & "' AND CampoIdChaveEstrangeira =" & Nz(TextBoxChavePrimaria))
If rs.RecordCount > 0 Then
       qStatus = True
Else
       qStatus = False
End If
rs.Close
Set rs = Nothing
If qStatus = True Then
       Me!TextBoxStatus = "Matriculado"
Else
       Me!TextBoxStatus = "Não Matriculado"
End If

If Combobox = "Matriculado" Then
       Forms!NomeDoFormulario!TextBoxStatus = "Matriculado"
Else
       Forms!NomeDoFormulario!TextBoxStatus = "Não Matriculado"
End If

Public Function ChecarMatricula(argAno As String, argCodAluno As Long) As Boolean
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb_detalhesMatricula " _
& "WHERE AnoLetivo='" & argAno & "' AND Matricula =" & Nz(argCodAluno))
If rs.RecordCount > 0 Then
        ChecarMatricula = True
Else
        ChecarMatricula = False
End If
rs.Close
Set rs = Nothing
End Function

If Not NewRecord Then
Dim qAno As String
qAno = Forms![cad_Ano_Letivo]![Comb1]
    If ChecarMatricula(qAno, Me!CodAluno) = True Then
            Me.status.Value = "Matriculado"
    Else
            Me.status.Value = "Não Matriculado"
    End If
End If

Me.Recalc
Dim qAno As String
qAno = Forms![cad_Ano_Letivo]![Comb1]
    If ChecarMatricula(qAno, Me.Matricula) = True Then
            Forms!ForCad_Aluno!status.Value = "Matriculado"
    Else
            Forms!ForCad_Aluno!status.Value = "Não Matriculado"
    End If