展開全部

這里提供下列ACCESS 窗體VBA示例代碼供參考

假設數據庫里有一張“定價表”，為e69da5e887aa62616964757a686964616f31333335343430ACCESS 窗體命令按鈕編寫單擊事件過程，單擊該按鈕后即可彈出消息框，告知該表共有多少個字段和它們的名稱Private?Sub?Command0_Click()

Dim?rs?As?New?ADODB.Recordset

Dim?strSql?As?String

Dim?i?As?Integer

Dim?colNames?As?String

strSql?=?"select?*?from?定價表?where?false"??'“where?false”的作用是只提取字段信息不要數據

rs.CursorLocation?=?adUseClient

rs.Open?strSql,?CurrentProject.Connection,?adOpenStatic,?adLockReadOnly

'循環讀取字段名

For?i?=?0?To?rs.Fields.Count?-?1

colNames?=?colNames?&?","?&?rs(i).Name

Next?i

colNames?=?Mid(colNames,?2)

'彈出消息框

MsgBox?"定價表共有"?&?rs.Fields.Count?&?"個字段，字段名分別是："?&?colNames

rs.Close

Set?rs?=?Nothing

End?Sub

注意上述代碼需要引用ADO。引用方法，于窗體代碼窗口，菜單——工具——引用

在彈出的“引用”對話框，勾選“Microsoft ActiveX Data Object 2.1” 或更高版本。

總結

以上是生活随笔為你收集整理的access vba表字段_vba中如何在access的一张表中得到所有的列名？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。