返回或设置一个 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