以分割形式設置DataSheet視圖中的列寬

嗨，我有一個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

的列寬度保持不變。我期望在數據表視圖中看到所有列都適合。我想我沒有以正確的語法訪問。我認爲它應該像下面這樣： FormName.SubFormName.Target_Date.ColumnWidth = standardColumnWidth ???

任何指導，將不勝感激。提前致謝。

來源

2016-04-29 mond007

我認爲你在正確的軌道上。從MainForm中是指子窗體你需要做的是這樣的：

Me.subFormControlName.Form.Target_Date.ColumnWidth = standardColumnWidth

注意使用控件名稱不子窗體的表格名稱！

看到我的答案在這裏：Referring to a Subform from a Query

來源

2016-04-29 17:12:16 BitAccesser

以分割形式設置DataSheet視圖中的列寬

回答

相關問題