Dúvida em achar registro em VBA e editá-lo

[Carolina Lopes]

Estou precisando de ajuda para escrever um código VBA pra access.

A função teria que buscar valores no campo da 'Situação' da Tabela e se for "1" ele deixa os registros na cor de fonte preta, senão deixa os registros na cor de fonte vermelha.

Fiz da seguinte forma mas não tenho conteúdo da linguagem suficiente para montar. Poderiam me ajudar?

 

 

Function Situacao(Sit) As Boolean



    Dim lngBlack As Long

    Dim lngRed As Long

    lngBlack = RGB(0, 0, 0)

    lngRed = RGB(255, 0, 0)



    Dim db As Database

    Dim Rs As Recordset



    Set db = CurrentDb()

    Set Rs = db.OpenRecordset("Tabela", dbOpenDynaset)

    Rs.Find " txtSituacao.Text = '1' "



    

    If Rs.NoMatch Then

        txtCodigo.ForeColor = lngRed

        txtCliente.ForeColor = lngRed  

    Else

        txtCodigo.ForeColor = lngBlack

        txtCliente.ForeColor = lngBlack 

    End If



    Rs.Close

End Function