Установить ширину столбца в представлении DataSheet в форме Split

Question

Привет У меня есть база данных Access и простая таблица записей изменений.

У меня также есть форма, где у меня есть все поля в верхней половине экрана и представление Datasheet в нижней части. Смотри ниже.

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

Мой код выглядит следующим образом:

Private Sub Form_Load() 
 

 
Dim currentFormWidth As Integer 
 

 
currentFormWidth = Me.Width 
 

 
MsgBox ("Current width of my form is : " & currentFormWidth) 
 

 
Dim standardColumnWidth As Integer 
 
standardColumnWidth = currentFormWidth/13 ' Columns of Data to display 
 

 
Me.Target_Date.ColumnWidth = standardColumnWidth 
 
Me.Change_Type.ColumnWidth = standardColumnWidth 
 
Me.FullName.ColumnWidth = standardColumnWidth 
 
Me.CDSID.ColumnWidth = standardColumnWidth 
 
Me.Grade.ColumnWidth = standardColumnWidth 
 
etc... 
 

 
End Sub

Ширина столбцов остаются неизменными. Я бы ожидал увидеть столбцы, которые подходят от let to right в представлении Datasheet. Я думаю, что я не получаю доступ к правильному синтаксису. Я думаю, что это было похоже на следующее: FormName.SubFormName.Target_Date.ColumnWidth = standardColumnWidth ???

Любое руководство будет оценено по достоинству. Заранее спасибо.

Answer 1

Я думаю, что вы на правильном пути. Чтобы обратиться к подчиненной из MainForm вам нужно сделать это следующим образом:

Me.subFormControlName.Form.Target_Date.ColumnWidth = standardColumnWidth 

Имейте в виду использовать CONTROLNAME а не FORMNAME субформ!

См. Мой ответ здесь: Referring to a Subform from a Query