Метод или элемент данных не найден при создании новой таблицы в 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, ...