access vba表字段_Access用VBA循环获取表的所有字段名称

时　间:2017-06-08 07:46:08

作　者:摘　要:用DAO获取所有字段名称

正　文:

表1截图：

获取表1所有字段名称：

命令按钮代码：

Private Sub Command1_Click()

Dim rst As DAO.Recordset

Dim fldName As String

Dim str As String

Dim i As Integer

str = "": i = 0

Set rst = CurrentDb.OpenRecordset("表1", dbOpenDynaset)

For i = 0 To rst.Fields.Count - 1

fldName = rst.Fields(i).Name

str = str & fldName

Next

rst.Close

Set rst = Nothing

Me.Text2 = str

End Sub

Access软件网官方交流QQ群(群号:39785885)

Access源码网店