Приветствую,
сделал бд, хочу добавить таблицу. Нажимаю кнопку, ошибок нет, как и самой таблицы которая должна появиться)
хелп плиз)

Private Sub create_table_Click()
Dim Desiro1 As Database
Dim Avag As TableDef
Dim IDAktion As Field
'Dim Vagon As Field
Dim Indx As Index
Dim IndxField As Field
Set Desiro1 = CurrentDb
Set Avag = CurrentDb.CreateTableDef("Avag")

Set IDAktion = Avag.CreateField("IDAktion", 1, 150)
Avag.Fields.Append IDAktion

'CurrentDb.TableDefs.Append Avag

CurrentDb.TableDefs.Refresh


Set Desiro1 = Nothing
End Sub

http://www.sql.ru/forum/1224222/sozdat-tablicu-v-access