Office中国论坛/Access中国论坛

标题: [求助][讨论]如何用代码修改表的属性? [打印本页]

作者: kevindeng 时间: 2006-8-4 18:51
标题: [求助][讨论]如何用代码修改表的属性?
如何用代码修改表的属性?

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

作者: kevindeng 时间: 2006-8-4 22:57
即用代码改变如下的属性值

[attach]19468[/attach]
[attach]19469[/attach]

作者: wwwwa 时间: 2006-8-5 00:17
表说明：

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

作者: wwwwa 时间: 2006-8-5 00:40
字段说明：

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

作者: kevindeng 时间: 2006-8-5 17:32
谢谢wwwwa帮助.

字段标题：

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

作者: kevindeng 时间: 2006-8-17 01:10
发现问题,如果字段标题未设置,用

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

将会报错"找不到属性"

作者: wwwwa 时间: 2006-8-17 16:36

以下是引用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 时间: 2006-8-17 16:41
那如果表的属性未设置,那么就不能用代码修改它了?

作者: wwwwa 时间: 2006-8-17 17:08

以下是引用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编辑过]

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