Format fields in subform entries using VBA

Question

I am trying to use VBA to format some unrelated text fields that I added to lines on a subform set for continuous viewing.

VBA looks at related text fields associated with the subformations underlying the RecordSource, and then formats the unrelated text fields that I added based on the data.

Here is some simplified code:

Public Sub ApplyFormat()

    If Forms!tblEnrolments!tblEnrolments_Jobs_sub!Start = 1 Then

        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart.BackColor = RGB(65, 138, 179)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart.ForeColor = RGB(255, 255, 255)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart = "Start Forms"

    ElseIf Forms!tblEnrolments!tblEnrolments_Jobs_sub!Start = 0 Then

        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart.BackColor = RGB(216, 216, 216)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart.ForeColor = RGB(166, 166, 166)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtStart = "None"

    End If

    If Forms!tblEnrolments!tblEnrolments_Jobs_sub!End = 1 Then

        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd.BackColor = RGB(8, 164, 71)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd.ForeColor = RGB(255, 255, 255)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd = "End Forms"

    ElseIf Forms!tblEnrolments!tblEnrolments_Jobs_sub!End = 0 Then

        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd.BackColor = RGB(216, 216, 216)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd.ForeColor = RGB(166, 166, 166)
        Forms!tblEnrolments!tblEnrolments_Jobs_sub!txtEnd = "None"

    End If

End Sub

Private Sub Form_Activate()

    ApplyFormat

End Sub

Private Sub Form_Current()

    ApplyFormat

End Sub

, , ApplyFormat, , ( , ). ( , ) ( , , ).

, 1 ; , .

:

EnrolID "1" 2 , . , "" 1, " ".

, , "" 0, "". , , . , "" 1, " ".

, VBA? , , , , " " " " .

Answer 1

: . .

, : ControlSource, . , desginer " " = Iif([Start] = 1, "Start Forms", "None") ( = ). .

, , = myCustomFunction([any], [dbfields], [I], [need]) VBA , .