ник: alecks_lp
Попробую уточнить проблему. Если для импорта таблиц использовать объект DoCmd,
то таблицы мгновенно появляются в окне базы данных и доступны для форм и проблем с работой не возникает.
Теперь, если для обращения к серверу и импорта данных я пользую объект ADODB.Connection, например
Type sql
TableName As String’имя таблицы
CreateTableSQL As String’инструкция SQL на создание таблицы
End Type
Dim sql() as sql’массив с именами таблиц и инструкциями sql
Dim j As Integer
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\Operator\Base\ Base_New.mdb”
cn.Open
For j = LBound(sql) To UBound(sql)
cn.Execute sql(j).CreateTableSQL
Next j
то созданные таблицы не отображаются сразу в окне базы данных и недоступны для форм. Чтобы таблицы стали доступны, мне приходится их «дернуть», например, в окне базы данных из меню «таблицы» переключиться в меню «запросы» и обратно, или же повторно открыть форму. Пользователю такое «дергание» наверное не понравится. Вопрос: Как активировать созданные таблицы средствами VBA? Или: где может прятаться ошибка?
К сожалению, Application.CurrentDb.TableDefs.Refresh, не помогает.