外国s网站建设,管理信息系统,营销软文范例大全100,优化方法hi#xff0c;大家好#xff01;
最近又有一段时间没和大家唠嗑了#xff0c;最近也没有时间给大家开直播#xff0c;天天忙#xff0c;但不知道在忙啥#xff01;那今天我们来讲点啥好玩的呢#xff1f;
今天是老师节#xff0c;那就先祝各位老师节日快乐#xff0…
hi大家好
最近又有一段时间没和大家唠嗑了最近也没有时间给大家开直播天天忙但不知道在忙啥那今天我们来讲点啥好玩的呢
今天是老师节那就先祝各位老师节日快乐
我们在开发过程中很多情况大家都会去使用表当然也有用到链接表的情况那如果用VBA该怎么获取字段名的标题呢我们今天就来看看怎么操作
PART01、创建表
我们先来创建一张表当然如果你有现有的表也是可以的注意要给字段都添加上标题 PART02、创建窗体
我们在窗体上放三个控件一个组合框、一个列表框、一个文本框组合框用于显示表名列表框用于显示这个表中的字段名文本框就用于显示标题名 注意列表框的行来源类型要改成字段列表
PART03、添加代码
组合框的行来源
SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)1)) ORDER BY MSysObjects.Name;
列表框的更新后代码为 On Error Resume NextMe.Text6 Me.Text6 CurrentDb.TableDefs(Me.Combo0)(Me.List4).Properties(Caption)If Me.Text6 Then Me.Text6 无字段标题
PART04、运行测试
最后就是运行测试了 这个代码是不是非常的简单大家快去试一下吧
