[求助][讨论]如何用代码修改表的属性?

kevindeng

如何用代码修改表的属性?

比如,修改表属性当中的说明,还有表字段中的说明,标题等

kevindeng

即用代码改变如下的属性值

wwwwa

表说明：

MsgBox CurrentDb.TableDefs("rrrr").Properties("Description")

wwwwa

字段说明：

CurrentDb.TableDefs("rrrr").Fields(1).Properties("Description")

kevindeng

谢谢wwwwa帮助.

字段标题：



CurrentDb.TableDefs("rrrr").Fields(1).Properties("Caption")

kevindeng

发现问题,如果字段标题未设置,用

CurrentDb.TableDefs("rrrr").Fields(1).Properties("Caption")

将会报错"找不到属性"

wwwwa

以下是引用kevindeng在2006-8-16 17:10:00的发言：


发现问题,如果字段标题未设置,用

CurrentDb.TableDefs("rrrr").Fields(1).Properties("Caption")

将会报错"找不到属性"

try:

On Error GoTo gg
MsgBox CurrentDb.TableDefs("ff").Fields("食品名称").Properties("Caption")
Exit Sub
gg:
MsgBox "no"
Resume Next

kevindeng

那如果表的属性未设置,那么就不能用代码修改它了?

wwwwa

以下是引用kevindeng在2006-8-17 8:41:00的发言：


那如果表的属性未设置,那么就不能用代码修改它了?

no

Dim fld As DAO.Field
Dim cp As DAO.Property
On Error GoTo gg
MsgBox CurrentDb.TableDefs("ff").Fields("食品名称").Properties("Caption")
On Error GoTo gg1
MsgBox CurrentDb.TableDefs("ff").Properties("Description")
On Error GoTo rr
MsgBox CurrentDb.TableDefs("ff").Fields("食品名称").Properties("Description")
Exit Sub
gg:
set cp = CurrentDb.TableDefs("ff").Fields("食品名称").CreateProperty("Caption", 12, "uuu")
CurrentDb.TableDefs("ff").Fields("食品名称").Properties.Append cp
Resume Next
gg1:
Set cp = CurrentDb.TableDefs("ff").CreateProperty("Description", 12, "uuu")
CurrentDb.TableDefs("ff").Properties.Append cp
Resume Next
rr:
Set cp = CurrentDb.TableDefs("ff").Fields("食品名称").CreateProperty("Description", dbText, "uuu1")
CurrentDb.TableDefs("ff").Fields("食品名称").Properties.Append cp
Resume Next

[此贴子已经被作者于2006-8-17 12:40:02编辑过]