Adding User Fields - Sample 2

Adding User Fields - Sample 2
See Also
Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD

    Set oUserFieldsMD = oCompany.GetBusinessObject(oUserFields)



    oUserFieldsMD.Name = "Link_Fld"

    oUserFieldsMD.Type = db_Alpha

    oUserFieldsMD.Size = 8

    oUserFieldsMD.Description = "Linked Field"

    oUserFieldsMD.SubType = st_None

    oUserFieldsMD.LinkedTable = "UT1"

    oUserFieldsMD.TableName = "UT3"

    oUserFieldsMD.EditSize = 8



    '// Adding the Field to the Table

    lRetCode = oUserFieldsMD.Add



    '// Check for errors

    If lRetCode <> 0 Then

        oCompany.GetLastError lErrCode, sErrMsg

        MsgBox sErrMsg

    Else

        MsgBox "Field: '" & oUserFieldsMD.Name & "' was added successfuly to " & oUserFieldsMD.TableName & " Table"

    End If



    Set oUserFieldsMD = Nothing