Доступ к VBA: выбрать столбец по индексу заказа - PullRequest
0 голосов
/ 11 октября 2018

В моей подчиненной форме я хотел бы изменить ширину столбца, определяемого порядком.В этом случае я пытаюсь изменить размер второго столбца.

Me.[Table subform].Form.Columns(2).ColumnWidth = "1500"

Синтаксис неверен, и я уверен, что неправильный сегмент - Columns(2).Как это сделать?

1 Ответ

0 голосов
/ 12 октября 2018

Полагаю, вам придется зациклить элементы управления подчиненной формы - что-то вроде этого (aircode):

For Each Control In Me.[Table subform].Form.Controls
    If Control.ControlType = acTextBox Then
        If Control.ColumnOrder = 2 Then
            ' Control/column located.
            Exit For
        End If
    End If
Next
If Not Control Is Nothing Then
    Control.ColumnWidth = 1500
End If
...