文章目录
[+]
教
师
节
（图片来自网络侵删）
快
乐
— TEACHERS' DAY —
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
运行测试
末了便是运行测试了
这个代码是不是非常的大略，大家快去试一下吧
