如何用VBA修改表中字段的显示标题？

luqianer

表中字段的显示标题在设计表的结构时很好进行修改，可是如何在VBA中进行修改呢？

例如：有一个表Worker,其中有一个字段Name,原来的显示标题是Name，现在想修改成"名字"作为标题，在VBA中应该如何写代码?

中国深圳

你是想修改表的显示标题，还中窗体上的标题，修改表的标题要用到ADO，修改窗体上控件的显示标题，就简单了。

luqianer

可能是我没有说清楚，不是修改控件上的标题，而是在表的结构设计视图中，每个字段都有字段大小、格式、输入掩码和标题及其它的属性，我要修改的是这个中的标题

中国深圳

你的表述很清楚，是我感觉没有一定的基础不必要采取这样的方法，其代码如下：

Dim cat As New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection cat.Tables("tblCustomer").Columns("CustomerID").Name = "test"

可以把当前数据库中tblCustomer表的CustomerID字段名改成test.

需要引用Microsoft ADO Ext. for DDL and Security.

luqianer

我试过您的方法，这种方法把字段名改了，我的意思是不改字段名，仅修改显示的标题。

在表的设计视图中，标题通常是空白的，这样在显示字段的标题就会直接用字段的名称，就如Name字段显示出来的标题就是"Name",我们可以修改标题，使得字段名仍然是Name,但是显示的标题是"名字"。

在手工进行修改时，只需要在表的设计视图下半部分的属性中数下来的第四栏标题中直接写就行了（设计视图的上半部分是表中的字段列表），但是我想在VBA中实现，主要的考虑是字段名称为保持通用性只用英文字母，而标题可以用中文或需要的其他的语种来显示。

中国深圳

Dim cat As New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection cat.Tables("tblCustomer").Columns("CustomerID").Caption = "test"

可以把当前数据库中tblCustomer表的CustomerID字段标题改成test.

需要引用Microsoft ADO Ext. for DDL and Security

中国深圳

刚才又想了一下，还是感觉到你的目地让人有点凝问，你不会是让用户操数据表吧，如果不是，改窗体上控件或字段的标题才是正确的呀。

luqianer

这个我也试过了,Columns("CustomerID")的对象中就没有Caption这个属性，而且用Properties("Caption")也不行。

我并不想让用户操作数据表，只是我需要用这个表动态生成其它的查询和报表，当然同时也想搞清楚表里的这个标题到底怎么样来修改?!

cg1

关于此主题请参考： 如何设置表的Caption和Description属性，即“标题”和“说明”属性... http://access911.net/index.asp?u1=a&u2=76FAB41E17DC

cg1

记住 MDB 中一些属性不是天生就有的，需要创建的，这个是ACCESS 软件赋予 MDB 文件的特色，也就是说 JET DB 默认不支持这些属性的