在“分割表单”中的“数据表”视图中设置列宽

Question

您好我有一个Access数据库和一个简单的更改记录表。

我还有一个表单，其中我在屏幕的上半部分中有所有字段，在底部有一个数据表视图。见下文。

我正在尝试将列宽均匀分布在整个屏幕宽度上，但到目前为止还没有成功。

我的代码如下：

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到right。 我想我没有使用正确的语法访问。 我认为它应该如下： 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