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、运行测试
最后就是运行测试了
这个代码是不是非常的简单,大家快去试一下吧
标签:Me,VBA,代码,MSysObjects,搞定,列表框,标题,Text6 From: https://blog.51cto.com/willmiao/12046507