在拆分表单中设置数据表视图中的列宽答案

【问题标题】：Set Column Width in DataSheet View in Split Form在拆分表单中设置数据表视图中的列宽
【发布时间】：2016-08-24 07:49:58
【问题描述】：

您好，我有一个 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 ???

任何指导将不胜感激。提前致谢。

【问题讨论】：

标签： ms-access vba ms-access-2010 multiple-columns column-width

【解决方案1】：

我认为你在正确的轨道上。要从主窗体引用子窗体，您需要这样做：

Me.subFormControlName.Form.Target_Date.ColumnWidth = standardColumnWidth

注意使用控件名而不是子表单的表单名！

在这里查看我的答案：Referring to a Subform from a Query

【讨论】：

如果有子表单可能会起作用。但是 OP 说数据表是通过拆分形式，而不是子形式。