在Access中创建新表时找不到方法或数据成员

Question

此部分代码中显示错误：

dbs.Execute "CREATE TABLE " & Accounts.Label8 & "" & "(Date_today 
TEXT,Time_In TEXT, Lunch_Out TEXT, Lunch_In TEXT, Time_Out TEXT, Status 
TEXT, Notes TEXT, PRIMARY KEY (Date_today));"

这是我的完整代码：

Dim dbs As Database

Set dbs = OpenDatabase("Y:\Tempus Beta\Dbase.mdb", False, False, 
";pwd=akgtrxx21")

dbs.Execute "CREATE TABLE " & Accounts.Label8 & "" & "(Date_today TEXT, 
Time_In TEXT, Lunch_Out TEXT, Lunch_In TEXT, Time_Out TEXT, Status TEXT, 
Notes TEXT, PRIMARY KEY (Date_today));"

dbs.Close

是因为它位于映射的驱动器Y:中吗？ （尽管我的PC可以完全访问该驱动器）

Answer 1

假设Accounts是表单的名称，而Label8是此类表单上的标签的名称，则应使用标题访问标签的内容>属性，因为标签没有 Value 属性。

假设此代码位于表单上另一个控件的事件处理程序中，则代码可能变为：

dbs.Execute "CREATE TABLE " & Me.Label8.Caption & " (Date_today TEXT, ...

或者，要明确引用以下表格：

dbs.Execute "CREATE TABLE " & Forms("Accounts").Controls("Label8").Caption & " (Date_today TEXT, ...