请问怎样统计access表的列数

zxh5044

统计access表的行数可以用count函数，请问统计列数要用什么函数，谢谢！

zpy2

Public Sub GetFieldsName()
   
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 表1")   
debug.print rs.Fields.Count
    For i = 0 To rs.Fields.Count - 1
        
        Debug.Print rs.Fields(i).Name
    Next
   
End Sub

rs.Fields.Count

zxh5044

zpy2 发表于 2021-10-25 15:23
Public Sub GetFieldsName()
   
    Dim rs As Recordset

虽然没看懂，但还是要谢谢您，要是能解释一下就好了。