Public Sub AddStudentAttribute()
    Dim oStudent As cEAStudent
    Set oStudent = New cEAStudent
    oStudent.Init FE_Application.SessionContext
   
    Dim oServices As FE_Services
    Set oServices = New FE_Services
    oServices.Init FE_Application.SessionContext
   
    Dim oATS As CAttributeTypeServer
    Set oATS = oServices.CreateServiceObject(bbsoAttributeTypeServer)
    oATS.Init FE_Application.SessionContext, bbGlobalAttributeType_EAStudent
   
   
    oStudent.Load 357
   
    With oStudent.Attributes.Add
   
        .Fields(Attribute_fld_ATTRIBUTETYPESID) = oATS.GetAttributeTypeID("Sent Transcript?")
        .Fields(Attribute_fld_VALUE) = 0
   
    End With
   
    oStudent.Save
   
   
    oStudent.CloseDown
    Set oStudent = Nothing
   
    oServices.CloseDown
    Set oServices = Nothing
   
    oATS.CloseDown
    Set oATS = Nothing

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. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.