Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать правильно? / 3 сообщений из 3, страница 1 из 1
09.06.2004, 09:51:10
    #32553522
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать правильно?
У меня примерно такой код:
...

Set rs1 = CurrentDb.OpenRecordset("Data_budget_diff")
If rs1.RecordCount = 0 Then
MsgBox "ччч"
rs1.Close
Else
DoCmd.OpenForm "Data_budget_diff1", , , , , acDialog
rs1.Close

End If
'как тут сделать команду типа WAIT


DoCmd.DeleteObject acTable, "Budget_D"
DoCmd.CopyObject , "Budget_D", acTable, "Budget_D1"
DoCmd.DeleteObject acTable, "Budget_D1"
У меня после того,как открывается форма-выполняется определённая операция,как сделать так,чтобы когда удаляется таблица-не писалось,что она используется другим процессом.Т.е. она как-бы не успевает закрыться
...
Рейтинг: 0 / 0
09.06.2004, 09:55:51
    #32553530
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать правильно?
поставил doevents и всё заработало
...
Рейтинг: 0 / 0
09.06.2004, 09:59:39
    #32553540
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать правильно?
WAIT начинается сразу за
DoCmd.OpenForm "Data_budget_diff1", , , , , acDialog
т.к управление передается на форму Data_budget_diff1 и пока она не закроется, процедура продолжена не будет, т.е.
весь этот код:
rs1.Close

End If
'как тут сделать команду типа WAIT


DoCmd.DeleteObject acTable, "Budget_D"
DoCmd.CopyObject , "Budget_D", acTable, "Budget_D1"
DoCmd.DeleteObject acTable, "Budget_D1"
не исполняется! Его нужно делать на загрузке формы Data_budget_diff1

А вообще - это плохой тон в Акцесе удалять и по новой создавать таблицы. Пользуйся запросами, это солиднее :) и надежнее. Частое удаление и создание таблиц засоряет mdb
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать правильно? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]