我正在尝试在 Microsoft Access 中制作出勤跟踪器。有一个名为 cmdClassToRegister 的按钮，用于在表 tblStudentData 中创建一个新字段。但是，我无法实现这一点 - 我收到运行时错误 13：类型不匹配。这是我到目前为止编写的 VBA 代码：
Private Sub cmdClassToRegister_Click()
Dim CurrentDate As String
CurrentDate = Date
DoCmd.OpenTable ("tblStudentData")
Dim NewColName As String
NewColName = ("Attendance" + Str(CurrentDate))
TableDef.CreateField (NewColName)
End Sub
它应该是这样工作的：当按钮被点击时，它获取今天的日期并存储它。然后它打开 tblStudentData 表并尝试写入一个新字段。我看不出这段代码有什么问题，请记住，我是 Access（和 VBA）的新手。请您帮我修复这个错误和我可能犯的任何其他错误。谢谢 ：）
如果你想使用 tabledef 方法，这是正确的方法：
Private Sub cmdClassToRegister_Click()
Dim CurrentDate As Date
CurrentDate = Date
Dim NewColName As String
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb()
Set tdf = db.TableDefs("tblStudentData")
NewColName = ("Attendance" + Str(CurrentDate))
tdf.Fields.Append tdf.CreateField (NewColName, dbText)
End Sub
您仍然需要修复代码中的现有错误（str(CurrentDate) 无效，因为 str 需要一个数字而 CurrentDate 是一个日期）。我假设你想创建一个文本字段，因此 dbText
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句