Access) (Form.FrozenColumns 屬性

使用 FrozenColumns 屬性來判斷資料工作表中凍結的資料行數目。 可讀寫的 Integer。

語法

運算式。FrozenColumns

expression 代表 Form 物件的變數。

註解

凍結的資料行顯示於資料工作表的左邊，且當您水平捲動資料工作表時，它們都不會移動。

注意事項

[!注意事項] FrozenColumns 屬性只適用於資料表、 表單及資料工作表檢視中的查詢。

在Visual Basic中，此屬性設定為 整數 值，指出在資料工作表中已被凍結使用 凍結的資料行 ] 命令的欄數。 永遠凍結記錄選取器] 欄，因此預設值為 1。 因此，如果您凍結一個資料行， FrozenColumns 屬性會設定為 2;如果您凍結兩個數據行，則會將其設定為 3，依此類推。

範例

下列範例會使用 FrozenColumns 屬性來判斷多少個資料行凍結中資料工作表檢視中的資料表。 如果凍結三個以上的資料行，資料表大小會最大化，讓您可以盡可能看到任意數量的未凍結資料行。

Sub CheckFrozen(strTableName As String) 
 Dim dbs As Object 
 Dim tdf As Object 
 Dim prp As Variant 
 Const DB_Integer As Integer = 3 
 Const conPropertyNotFound = 3270 ' Property not found error. 
 Set dbs = CurrentDb ' Get current database. 
 Set tdf = dbs.TableDefs(strTableName) ' Get object for table. 
 DoCmd.OpenTable strTableName, acNormal ' Open table. 
 tdf.Properties.Refresh 
 On Error GoTo Frozen_Err 
 If tdf.Properties("FrozenColumns") > 3 Then ' Check property. 
 DoCmd.Maximize 
 End If 
Frozen_Bye: 
 Exit Sub 
Frozen_Err: 
 If Err = conPropertyNotFound Then ' Property not in collection. 
 Set prp = tdf.CreateProperty("FrozenColumns", DB_Integer, 1) 
 tdf.Properties.Append prp 
 Resume Frozen_Bye 
 End If 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。