Дополнительные кнопки VBA

Question

Моя проблема заключается в том, что мне нужно скопировать некоторые кнопки Option из документа Excel в Access.

Но скоро наступит Error 438? The Erros is Coming oWS.Worksheets ("Tabelle1"). Элементы управления ("OptionButton" и я). Значение этой части кода.

Когда я пишу такой код, он работает.

".Fields("id") = oWS.Worksheets("Tabelle1").OptionButton4.Value"

Но у меня много опций, поэтому я хочу сделатьa for loop.

У меня есть Access 2013.

Это код:

Set oWS = oXL.Workbooks.Open(strPath & strFile)
Set rs = CurrentDb.OpenRecordset("test")
         With rs
         'i = 14
            For i = 3 To 10
            .AddNew
               .Fields("id") = oWS.Worksheets("Tabelle1").Controls("OptionButton" & i).Value
             .Update
           Next i
         .Close
         End With

Answer 1

Листы имеют не коллекцию элементов управления, а коллекцию OLEObjects, в которой можно найти кнопки OptionButton.Попробуйте:

 .Fields("id") = oWS.Worksheets("Tabelle1").OLEObjects("OptionButton" & i).Object.Value