在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:？ （虽然我的电脑可以完全访问该驱动器）

Answer 1

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

假设此代码驻留在表单上另一个控件的事件处理程序中，您的代码可能变为：

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

或者，明确引用表单：

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