Office中国论坛/Access中国论坛

标题: [技巧]检查字段有否冻结 [打印本页]

作者: tmtony 时间: 2014-10-16 11:36
标题: [技巧]检查字段有否冻结
以下代码可检查指定表的数据表视图有否字段冻结,如果冻结,则将视图最大化需要特别注意的是, Properties("FrozenColumns") 永远都是大于0,而不是我们误以为只有冻结字段时才会大于0
因为数据表视图有一个记录选择器 ,它是默认冻结的,所以占了一列

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 ' 属性没有找到的错.
Set dbs = CurrentDb ' 获得当前数据库对象
Set tdf = dbs.TableDefs(strTableName) ' 获得表对象
DoCmd.OpenTable strTableName, acNormal ' 打开表
tdf.Properties.Refresh
On Error GoTo Frozen_Err
If tdf.Properties("FrozenColumns") > 3 Then ' 检查FrozenColumns 冻结列数的值
DoCmd.Maximize
End If
Frozen_Bye:
Exit Sub
Frozen_Err:
If Err = conPropertyNotFound Then ' 没有这个属性则添加这个属性.
Set prp = tdf.CreateProperty("FrozenColumns", DB_Integer, 1)
tdf.Properties.Append prp
Resume Frozen_Bye
End If
End Sub

作者: Wanli_Li 时间: 2014-10-16 11:55
站长发贴，必属精品，先顶后看！

作者: 轻风 时间: 2014-10-16 12:32
收下了

作者: tmtony 时间: 2014-10-16 12:46
窗体的字段冻结也可类似

作者: t小宝 时间: 2014-10-20 11:00
谢谢分享，王站有很多精彩的技巧！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)