在拆分窗体中设置DataSheet视图中的列宽

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

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

Me.subFormControlName.Form.Target_Date.ColumnWidth = standardColumnWidth

注意使用子窗体的控件名而不是窗体名！

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