Public Sub EditJobAssignment(lRecordID As Long, lJobAssignmentID As Long)
    Dim oForm As CAssignmentForm
    Dim oRecord    As CRecord
    Dim oJobAssignment  As CJobAssignment
    
    Set oRecord = New CRecord
    With oRecord
        .Init REApplication.SessionContext
        .Load lRecordID
        For Each oJobAssignment In .Volunteer.Assignments
            With oJobAssignment
                If lJobAssignmentID = .Fields(JobAssignment_fld_ID) Then
                    Set oForm = New CAssignmentForm
                    oForm.Init REApplication.SessionContext
                    Set oForm.Assignment = oJobAssignment
                    oForm.ShowForm
                    oForm.CloseDown
                    Exit For
                End If
            End With
        Next
        .Save
        .CloseDown
    End With
End Sub


Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.