Sub DefineNewField()
Dim db As DAO.Database
Set db = DBEngine(0).OpenDatabase("C:\Path\To\Your\Database.accdb")
Dim tdf As DAO.TableDef
Set tdf = db.TableDefs("YourTableName")
Dim fld As DAO.Field
Set fld = tdf.CreateField("NewFieldName", dbText, 255)
' 添加其他属性设置
fld.AllowZeroLength = True
fld.Required = False
' 将新字段添加到表格中
tdf.Fields.Append fld
End Sub
Sub AddFieldToTable()
Dim db As DAO.Database
Set db = DBEngine(0).OpenDatabase("C:\Path\To\Your\Database.accdb")
Dim tdf As DAO.TableDef
Set tdf = db.TableDefs("YourTableName")
If Not FieldExists(tdf, "NewFieldName") Then
Dim fld As DAO.Field
Set fld = tdf.CreateField("NewFieldName", dbText, 255)
' 添加其他属性设置
fld.AllowZeroLength = True
fld.Required = False
' 将新字段添加到表格中
tdf.Fields.Append fld
Else
MsgBox "字段已存在!"
End If
End Sub
Function FieldExists(tdf As DAO.TableDef, fieldName As String) As Boolean
Dim fld As DAO.Field
For Each fld In tdf.Fields
If fld.Name = fieldName Then
FieldExists = True
Exit Function
End If
Next fld
FieldExists = False
End Function