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

附   件:

点击下载附件