Как вы используете и массив для установки свойств Access VBA?

Question

Я пытаюсь настроить массив в Access VBA.У меня есть 40 различных параметров, чтобы установить и установить их, используя: 'ParameterName1.Visible = True ...' ParameterName2.Visible = True ...

довольно неуклюже.Я полагаю, что это может быть сделано с массивом, таким как:

'для i = от 1 до 40' ParameterName (i) .Visible = True 'Next i

Я новичок в Access vba,Я сделал несколько простых кодов, но это моя первая попытка массивов

Private Sub Form_Load()
    Dim NewPN As Boolean
    Dim i As Integer
    Dim ParameterName(1 To 10) As Variant
    Dim ParameterNominal(1 To 10) As Variant
    Dim ParameterMinimum(1 To 10) As Variant
    Dim ParameterMaximum(1 To 10) As Variant

NewPN = MsgBox("Is This A New Part Number?", vbYesNo, "New Part Number")

If NewPN = True Then
    For i = 1 To 10
        ParameterName(i).Visible = False
        ParameterNominal(i).Visible = False
        ParameterMinimum(i).Visible = False
        ParameterMaximum(i).Visible = False
    Next i


ParaQty = InputBox("How many parameters will be measured?", Parameters?")

For i = 1 To ParaQty

    ParameterName(i) = InputBox("Please Enter the Name for Parameter
    (Include Units, if applicable) " & i, "Parameter Name?")
    ParameterNominal(i) = InputBox("Please Enter the Nominal Value 
    for Parameter " & i, "Nominal Parameter?")
    ParameterMinimum(i) = InputBox("Please Enter the Minimun Value for
    Parameter " & i, "Minimum Parameter?")
    ParameterMaximum(i) = InputBox("Please Enter the Maximum Value for  
    Parameter " & i, "Maximum Parameter?")

Next i
End If

End Sub

Я получаю сообщение об ошибке «Требуется объект» при первом проходе цикла for / next.