获得表或查询的字段名称

时　间:2007-11-02 19:04:41
作　者:victorduane   ID：70  城市：闵行
摘　要:获得表或查询的字段名称
正　文:

获得表或查询的字段名称

写这段代码是出于我的一个想法，是应用于ACCESS开发平台的查询字段能否不用自己一个一个字段的输入呢，那些字段的双击打开事件，能不能一下子用代码直接生成了，想了一想，觉得这个方案是可行的，于是就写了下面这段代码，
在应用中，我们可以用这个函数生成查询表中所有的字段名，然后取自己需要的；
uf_GetfldName（查询的名称），可以得到这个查询的所有字段名：报销编号，报销物品，报销人员，报销时间，……
也可以应用于双击事件中，修改函数中的第七行为：'fldName = fldName & "Private Sub " & rst.Fields(i).Name & "_DblClick(Cancel As Integer)" & vbCrLf & "    viewData" & vbCrLf & "End Sub" & vbCrLf
那么函数就会生成
Private Sub 报销编号_DblClick(Cancel As Integer)
    viewData
End Sub
Private Sub 报销物品_DblClick(Cancel As Integer)
    viewData
End Sub
……
……
……

Public Function uf_GetfldName(strSourceTable As String) As String
Dim rst As DAO.Recordset
Dim fldName As String

Set rst = CurrentDb.OpenRecordset(strSourceTable)

Dim i As Integer
For i = 0 To rst.Fields.Count - 1
fldName = fldName & rst.Fields(i).Name & ";"
Next
uf_GetfldName = Left(fldName, Len(fldName) - 1)
End Function