获得表或查询的字段名称
写这段代码是出于我的一个想法,是应用于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