AllowMultipleResponses 属性

       

返回或设置一个 Boolean,用来确定用户是否能多次响应所给的调查。如果是 False,则用户只能响应一次调查。可读写。

expression.AllowMultipleResponses

expression  必选。返回“应用于”列表中的对象之一的表达式。

示例

下列示例将当前站点中所有 Survey 对象的AllowMultipleResponses 属性设置为 False。用户对于所给的调查只能响应一次。

Sub ChangeResponses()
'Sets number of responses to one per user

    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 responses to single
        If objList.Type = fpListTypeSurvey Then
            objList.AllowMultipleResponses = False
        End If
    Next

End Sub