Private Sub ChangeJobs()

    Dim oJob As CJob
    Dim oJA As CJobAssignment
    Dim oJAs As CJobAssignment
   
    Dim oVol As CVolunteer
   
    Dim oRec As CRecord
    Set oRec = New CRecord
    oRec.Init REApplication.SessionContext
    oRec.Load 280
    Set oVol = oRec.Volunteer
   
'    Set oJAs = oVol.Assignments
   
    For Each oJA In oVol.Assignments
        If oJA.Fields(JobAssignment_fld_JOB_NAME) = "Make an appearance" Then
            'code here
            oJA.Fields(JobAssignment_fld_NOTES) = "Testing, 1, 2, 3"
            oRec.Save
        Else: End If
    Next oJA
   
    Set oJA = Nothing
    Set oJAs = Nothing
   
    oRec.Closedown
    Set oRec = Nothing

End Sub