ShowUserNamesInResults Property

Returns or sets a Boolean that determines if the names of users who have completed the survey will be visible. Read/write.

expression.ShowUserNamesInResults

expression    Required. An expression that returns a Survey object.

Example

The following example sets the ShowUserNamesInResults property for each Survey object in the active Web site to True, displaying the names of all users who completed the survey.

Note  Use the ApplyChanges method to save any changes made to the list.

    Sub ChangePermissions()
'Changes permission of all BasicLists in the current Web site

    Dim objApp As FrontPage.Application
    Dim objList As Object
    Dim objLists As Lists

    Set objApp = FrontPage.Application
    Set objLists = objApp.ActiveWeb.Lists

    'Cycle through each list and check for list type
    For Each objList In objLists
        'If it's a Survey then change permissions
        If objList.Type = fpListTypeSurvey Then
            If objList.ShowUserNamesInResults <> True Then
                objList.ShowUserNamesInResults = True
                objList.ApplyChanges
            End If
        End If
    Next

End Sub