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

时　间:2013-08-12 08:10:07
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:动态获得表的字段或查询列的名称，用于组合框或列表框的数据来源，注意，行来源方式要选择“值列表”。
正　文:

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

附   件:

点击下载附件