VBA 获取字段标题代码轻松搞定

hi，大家好！

最近又有一段时间没和大家唠嗑了，最近也没有时间给大家开直播，天天忙，但不知道在忙啥！那今天我们来讲点啥好玩的呢？

今天是老师节，那就先祝各位老师节日快乐！

我们在开发过程中，很多情况，大家都会去使用表，当然也有用到链接表的情况，那如果用VBA该怎么获取字段名的标题呢？我们今天就来看看怎么操作！

PART01、创建表

我们先来创建一张表，当然如果你有现有的表，也是可以的，注意要给字段都添加上标题

PART02、创建窗体

我们在窗体上放三个控件，一个组合框、一个列表框、一个文本框，组合框用于显示表名，列表框用于显示这个表中的字段名，文本框就用于显示标题名

注意：列表框的行来源类型要改成字段列表

PART03、添加代码

组合框的行来源：

SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=1)) ORDER BY MSysObjects.Name; 

列表框的更新后代码为：

    On Error Resume Next

    Me.Text6 = ""

    Me.Text6 = CurrentDb.TableDefs(Me.Combo0)(Me.List4).Properties("Caption")

    If Me.Text6 = "" Then Me.Text6 = "无字段标题"

PART04、运行测试

最后就是运行测试了

这个代码是不是非常的简单，大家快去试一下吧