DAO 改为变量

c101　发表于：2016-10-12 14:09:02 　

http://www.accessoft.com/article-show.asp?id=882
Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim prp As DAO.Property
Const conErrPropertyNotFound = 3270
' Turn off error trapping.
On Error Resume Next
Set dbs = CurrentDb
' Set field property.
Set fld = dbs .TableDefs!Products.Fields!ProductID
fld.Properties("ColumnHidden") = True

请教 Products 及 ProductID 如果是变量

Set fld = dbs .TableDefs!Products.Fields!ProductID

如何修改 ?
谢谢

Top

yuhong 发表于：2016-10-12 16:31:12

Set fld = dbs .TableDefs!Products.Fields!ProductID 改为

Set fld = dbs.TableDefs!Products.Fields("& 变量 &")！试试

Top

zhaoyoulong 发表于：2016-10-12 17:11:04

Set fld = dbs .TableDefs(变量1).Fields(变量2) 试试

Top

yuhong 发表于：2016-10-12 17:30:00

同意楼上

Set fld = dbs.TableDefs("& 变量1 &").Fields("& 变量2 &")！试试

Top

c101 发表于：2016-10-13 07:45:03

先谢谢楼上
以下有 3265 报错
再度请教我是哪里弄错了

Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim prp As DAO.Property

Dim xFile As String
Dim xTable As String
Dim xField As String

xTable = "表1"
xField = "Test1"

Set dbs = CurrentDb

Set fld = dbs. TableDefs("& xTable &")!Fields("& xField &")

執行階段錯誤3265

在此集合找不到此項目

fld.Properties("ColumnHidden") = True

Top

c101 发表于：2016-10-13 07:46:33

先謝謝樓上
以下有3265報錯
再度請教我是哪裡弄錯了

Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim prp As DAO.Property

Dim xFile As String
Dim xTable As String
Dim xField As String

xTable = "表1"
xField = "Test1"

Set dbs = CurrentDb

Set fld = dbs. TableDefs("& xTable &")!Fields("& xField &")

執行階段錯誤3265

在此集合找不到此項目

fld.Properties("ColumnHidden") = True

Top

zhaoyoulong 发表于：2016-10-13 09:19:47

Set fld = dbs. TableDefs( xTable ).Fields( xField )

Top

c101 发表于：2016-10-13 13:06:18

老師已OK
非常感謝

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

[5分]DAO 改为变量