В общем мне надо из одного файла допустим К1.mdb перекинуть все Таблицы в файл К.mdb, пробовал Импортировать таблицы, но они не отображаются после импортирования в файле К.mdb. Хотя если проверить код К.mdb, а именно в таблицах то показывает что таблицы там есть т.е. код с таблиц присутствует...
Вот код
Option Compare Database
Private Sub Form_Activate()
Me.AllowEdits = True
Me.AllowAdditions = False
Me![Выбор Категории Товара].Enabled = True
Me![Выбор Категории Товара].SetFocus
Me![Выбор Товара].Enabled = False
Me![Код товара].Enabled = False
Me![Категория].Enabled = False
Me![Наименование].Enabled = False
Me![Цена].Enabled = False
End Sub
Private Sub Form_AfterUpdate()
Me![Выбор Товара].Requery
End Sub
Private Sub Выбор_Категории_Товара_AfterUpdate()
Dim ctl As Control
Set ctl = Me![Выбор Товара]
ctl.Enabled = True
ctl.Requery
ctl.SetFocus
End Sub
Private Sub Выбор_Товара_AfterUpdate()
DoCmd.ApplyFilter , "[Код товара] = Forms!Товары![Выбор Товара]"
Me![Код товара].Enabled = False
Me![Категория].Enabled = True
Me![Категория].SetFocus
Me![Наименование].Enabled = True
Me![Цена].Enabled = True
End Sub
Private Sub Режим_AfterUpdate()
If Forms!Товары!Режим.Value = 2 Then
Me.AllowEdits = True
Me![Выбор Категории Товара].Enabled = True
Me![Выбор Категории Товара].SetFocus
Me![Выбор Товара].Enabled = False
Me![Категория].Enabled = False
Me![Наименование].Enabled = False
Me![Цена].Enabled = False
Else
Me.AllowEdits = True
Me.AllowAdditions = True
Me![Код товара].Enabled = True
Me![Категория].Enabled = True
Me![Наименование].Enabled = True
Me![Цена].Enabled = True
DoCmd.GoToRecord , , acNewRec
Me![Код товара].SetFocus
Me![Выбор Категории Товара].Enabled = False
Me![Выбор Товара].Enabled = False
End If
End Sub
Private Sub Form_Activate()
Me.AllowEdits = True
Me.AllowAdditions = False
Me![Выбор Категории Товара].Enabled = True
Me![Выбор Категории Товара].SetFocus
Me![Выбор Товара].Enabled = False
Me![Код товара].Enabled = False
Me![Категория].Enabled = False
Me![Наименование].Enabled = False
Me![Цена].Enabled = False
End Sub
Private Sub Form_AfterUpdate()
Me![Выбор Товара].Requery
End Sub
Private Sub Выбор_Категории_Товара_AfterUpdate()
Dim ctl As Control
Set ctl = Me![Выбор Товара]
ctl.Enabled = True
ctl.Requery
ctl.SetFocus
End Sub
Private Sub Выбор_Товара_AfterUpdate()
DoCmd.ApplyFilter , "[Код товара] = Forms!Товары![Выбор Товара]"
Me![Код товара].Enabled = False
Me![Категория].Enabled = True
Me![Категория].SetFocus
Me![Наименование].Enabled = True
Me![Цена].Enabled = True
End Sub
Private Sub Режим_AfterUpdate()
If Forms!Товары!Режим.Value = 2 Then
Me.AllowEdits = True
Me![Выбор Категории Товара].Enabled = True
Me![Выбор Категории Товара].SetFocus
Me![Выбор Товара].Enabled = False
Me![Категория].Enabled = False
Me![Наименование].Enabled = False
Me![Цена].Enabled = False
Else
Me.AllowEdits = True
Me.AllowAdditions = True
Me![Код товара].Enabled = True
Me![Категория].Enabled = True
Me![Наименование].Enabled = True
Me![Цена].Enabled = True
DoCmd.GoToRecord , , acNewRec
Me![Код товара].SetFocus
Me![Выбор Категории Товара].Enabled = False
Me![Выбор Товара].Enabled = False
End If
End Sub
Если пытаюсь опять Импортировать из К1.mdb в К.mdb, то пишет что данная таблица уже есть хотите заменить?
Так вот как мне сделать чтобы отображались мои импортированные таблицы?
Буду очень благодарен за помощь...
P.S. извините что тему не подходящую сделал на вашем сайте