如何在Access VBA中查找表格的字段宽度

Dim db As DAO.Database
Dim tblDef As DAO.TableDef
Dim fld As DAO.Field
Dim targetFieldName As String
Dim targetFieldWidth As Integer

Set db = CurrentDb()
targetFieldName = "目标字段名称"

For Each tblDef In db.TableDefs
    If tblDef.Name = "目标表格名称" Then '替换为目标表格的名称
        For Each fld In tblDef.Fields
            If fld.Name = targetFieldName Then
                targetFieldWidth = fld.Size
                Exit For
            End If
        Next fld
        Exit For
    End If
Next tblDef

Set fld = Nothing
Set tblDef = Nothing
Set db = Nothing