Главная кнопочная форма

[Надикс]

Здравствуйте! Не подскажите, можно ли в главной кнопочной форме в аксессе создать такую кнопку, чтобы она автоматически создавала новую таблицу в базе данных?

[shanemac51]

многое можно, но что надо конкретно, для чего

[Надикс]

Сообщение от shanemac51

многое можно, но что надо конкретно, для чего

Нужно,чтобы автоматически пустая таблица создавалсь для ввода данных

[Aleksandr H.]

Сформулируйте полностью задание, может там не надо создавать таблицу.

Private Sub Кнопка0_Click()

 
    Dim dbs As Object
    Set dbs = CurrentDb
 
    ' Create a table with three fields and a unique
    ' index made up of all three fields.
    dbs.Execute "CREATE TABLE MyTable " _
        & "(FirstName CHAR, LastName CHAR, " _
        & "DateOfBirth DATETIME, " _
        & "CONSTRAINT MyTableConstraint UNIQUE " _
        & "(FirstName, LastName, DateOfBirth));"
 
    dbs.Close
 
End Sub