通过

Form.FrozenColumns 属性 (Access)

  • 项目

使用 FrozenColumns 属性可确定数据表中有多少列被冻结。 Integer 型，可读/写。

语法

表达式。FrozenColumns

expression：表示 Form 对象的变量。

备注

冻结的列显示在数据表的左侧，并且在水平滚动数据表时，它们不会移动。

注意

[!注释] FrozenColumns 属性仅适用于表、 窗体和查询在数据表视图中。

在 Visual Basic 中，此属性设置是一个 Integer 值，该值指示数据表中已使用“ 冻结列” 命令冻结的列数。 记录选择器列始终是被冻结的，所以默认值是 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。