Office中国论坛/Access中国论坛

标题: 隐藏子窗体中的字段？ [打印本页]

作者: ttxx 时间: 2002-9-29 09:19
标题: 隐藏子窗体中的字段？
forms![资产].[资产列表]![资产ID].ColumnHidden
= false 可以隐藏[资产ID]，我想用个过程来设置
[资产列表]子窗体中任意字段的ColumnHidden属性，可是在上面的语句不能是变量。谁有办法能用过程设定子窗体中任意字段的ColumnHidden属性？

作者: tmtony 时间: 2002-9-29 16:36
dim strFld as field
strFld="address"
forms![资产].[资产列表].controls(strFld).ColumnHidden=false

作者: ttxx 时间: 2002-9-29 17:35
标题: 谢谢站长
谢谢你站长，我是了你的代码，是这样写的:
DIM dbs As Database ,strFID As Fiels
strFID="资产ID"
但错误提示对象变量未设置，是不是还需要引用什么？请你在帮我！

作者: tmtony 时间: 2002-9-29 17:38
你用的是2000还是97,
你把整个这段代码贴上来

作者: ttxx 时间: 2002-9-29 17:58
标题: 谢谢站长
我用的是2000

Sub 字段Column(管理部门 As Integer)
'隐藏字段
' 设置 ColumnHidden 属性。
bbl = "[财务ID]"

Dim DBS As Database, STRFID As Field
STRFID = "资产ID"
Select Case 管理部门
Case 1
   Forms![资产].[资产列表]!Controls(STRFID).ColumnHidden = False
Case 2
   Forms![资产].[资产列表]![资产ID].ColumnHidden = False
Case 3
   Forms![资产].[资产列表]!Controls(STRFID).ColumnHidden = True
End Select
End Sub

作者: tmtony 时间: 2002-9-29 18:00
Dim DBS As Database, STRFID As Field改成
STRFID As string
Forms![资产].[资产列表]![资产ID].ColumnHidden = False改成
Forms![资产].[资产列表]!Controls(STRFID).ColumnHidden = True
你不同的权限只要控制strfld的值即可

作者: tmtony 时间: 2002-9-29 18:03
我习惯用[资产列表].form.controls(strFld).ColumnHidden = False这样的语法

作者: ttxx 时间: 2002-9-29 18:22
标题: 谢谢站长
运行时错误 ’2465‘：
不能找到表达式中引用的字段“Controls"
程序停在 FORMS![资产].[资产列表]!Controls(strFid).ColumnHidden =true 处。
我是不是太差劲了，还得请教。

作者: ttxx 时间: 2002-9-29 18:27
标题: 谢谢站长
[资产]是主窗体，[资产列表]是子窗体。

作者: teddibear 时间: 2002-10-2 06:22
子窗体这么引用
forms![资产]![资产列表].form.controls(strFld).columnHidden=true

作者: 120HZQ 时间: 2008-3-21 23:58
不错不错不错不错

作者: p51218 时间: 2016-9-11 20:36
学习一下

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