检测数据库表格中是否存在相应的字段

最新推荐文章于 2025-06-03 17:42:14 发布

转载最新推荐文章于 2025-06-03 17:42:14 发布 · 1.2k 阅读

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一种在Access数据库中检查指定表是否包含特定字段的方法。通过使用DAO对象模型，该示例VBA代码展示了如何遍历记录集的所有字段，并判断所需字段是否存在。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function IsExistField(ByVal sTableName As String, _
ByVal sFieldName As String) As Boolean

'使用示例： IsExistField("订单表","订单日期") '检测订单表中是否有订单日期字段
Dim fld As DAO.Field'注意这个地方要改成DAO.Field,否则会出现类型不匹配的错误.
Dim rs As DAO.Recordset
IsExistField = False
Set rs = CurrentDb.OpenRecordset(sTableName)
Debug.Print rs.Fields.Count
For Each fld In rs.Fields
If fld.Name = sFieldName Then
IsExistField = True
Exit For
End If
Next
rs.Close
Set rs = Nothing
Set fld = Nothing

ExitHere:
Set rs = Nothing
Set fld = Nothing
Exit Function

ErrorHandler:
MsgBox Err.Description, vbInformation, "提示"
Resume ExitHere
End Function