如果统计查询中字段名的个数

zshyaw

请老师看看在access中如何自定义函数来统计某一个查询,查询中字段名的个数
例如:

查询名称:qry班级成绩表
查询语句:
select 班级,姓名,成绩 from qry班级成绩表

字段名个数: 3

rendiule01

Function FieldCount(queryName As String) As Integer
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset(queryName)
    FieldCount = rs.Fields.Count
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Function

' 使用
FieldCount("qry班级成绩表")

zshyaw

rendiule01老师谢谢您的帮助