【函数】获得表或查询中的字段名称-张志
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【函数】获得表或查询中的字段名称

发表时间:2013/8/12 8:10:07 评论(6) 浏览(6296)  评论 | 加入收藏 | 复制
   
摘 要:动态获得表的字段或查询列的名称,用于组合框或列表框的数据来源,注意,行来源方式要选择“值列表”
正 文:

Function Acchelp_GetColumnName(tblOrQryName As String) As String
'功能:获得表或查询中的字段名称,用分号隔开,用于组合框或列表框的数据来源,值列表
'tblOrQryName 表或查询名称
Dim rst As DAO.Recordset
    On Error GoTo Err_Acchelp_GetColumnName:
    Set rst = CurrentDb.OpenRecordset(tblOrQryName, dbOpenDynaset)
    For Each fld In rst.Fields
        Acchelp_GetColumnName = Acchelp_GetColumnName & fld.Name & ";"
    Next
Exit_Acchelp_GetColumnName:
    Exit Function
Err_Acchelp_GetColumnName:
    Resume Exit_Acchelp_GetColumnName
End Function

 

点击下载附件


Access软件网交流QQ群(群号:198465573)
 
 相关文章
用ADO来导出所有表的所有字段  【Alex  2010/6/23】
字段(字段值)数据类型值参考  【wsl  2012/5/12】
判断表中是否存在某个字段的函数  【金宇  2012/12/17】
导出SQL Server数据库表中字段的说明/备注  【Adolph Sun  2013/2/18】
【Access小品】通用选择字段导出示例  【煮江品茶  2013/7/19】
 
 访客评论
2014/5/29喝多野兔
好人啊

2014/5/29宏鹏
示例已上传

2014/5/28喝多野兔
求一个示例

2013/8/13殷小宝
收藏了。

2013/8/12小赵
再加个示例

2013/8/12小赵
放到网店上..

总记录:6篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

张志

文章分类

文章存档

友情链接