Всем привет!

Акксес 2000

текст запроса:
INSERT INTO Tmp_priority_sort ( sevev, group_num, snif_id, priority )
SELECT [priority_sort].[sevev], [priority_sort].[group_num], [priority_sort].[snif_id], [priority_sort].[priority]
FROM priority_sort;

если я запускаю ручками из построителя - отрабатывает
а если из кода:

Dim StrIns As String
DoCmd.RunSQL " DELETE Tmp_Priority_sort.* FROM Tmp_Priority_sort;"
отрабатывает , а INSERT нет:

StrIns = " INSERT INTO Tmp_priority_sort ( sevev, group_num, snif_id, priority )" & _
" SELECT [priority_sort].[sevev], [priority_sort].[group_num], [priority_sort].[snif_id], [priority_sort].[priority]" & _
" FROM priority_sort;"
CurrentDb.Execute StrIns, dbFailOnError

DoCmd.RunSQL StrIns
сохранить как запрос и так:
docmd.openQuery "Q6"
тоже пробовала, результат тот же - пелевать на меня хотел
если не отменять сообщения то говорит что будут добавлены столько-то записей, а на самом деле ничего не добавляет

в этом же модуле аналогичные инсерты DoCmd.RunSQL StrIns
но в другие таблицы прекрасно отрабатывают
в чём дело-то?

в общем как всегда -спасите, помогите пож-та

танцы с бубном выполняла-безрезультатно
Люди , что делать-то?

я не создаю новую таблицу
из таблицы priority_sort пишу в таблицу Tmp_priority_sort

2 идентичные по строению и названию полей таблицы

всем спасибо
бубен не спас, но победила это безобразие
но осталось оооочень большое подозрение что скоро сново бубен понадобится

до сих пор осталось подозрение что что-то не так
5 табличек на SQL Servere 5 табличек на Access, все прилинкованы
у меня в модуле 5 аналогичных инсертов
которые должны работать так

DoCmd.RunSQL "из таблицы А пишу в таблицу Tmp_А" , А и Tmp_А идентичные по строению и названию полей таблицы
4 прекрасно отрабатывали , а 5й см первый пост
и что самое непонятное- пыталась
1)CurrentDb.Execute StrIns, dbFailOnError
2)DoCmd.RunSQL StrIns
3)сохранить как запрос и так:
docmd.openQuery "Q6" это вообще не понятно ручками из окна базы запускаю- отрабатывет, из кода docmd.openQuery запрос- нет
и ошибок не выдаёт и обработчик закоментирован
всё пробовала, результат тот же - пелевать на меня хотел ,сжимала, импорт, перелинковывала - безрезультатно
как последнее средство взяла и попробовала
Dim DB As DAO.Database
Set DB = CurrentDb()
StrIns = " INSERT INTO Tmp_priority_sort ( sevev, group_num, snif_id, priority )" & _
" SELECT [priority_sort].[sevev], [priority_sort].[group_num], [priority_sort].[snif_id], [priority_sort].[priority]" & _
" FROM priority_sort;"
DB.Execute StrIns, dbFailOnError
DB.CLOSE
Set DB = Nothing
вот так работает
но ведь у CurrentDb есть Execute
и 4 инсерта великолепно отрабатывают через DoCmd.RunSQL
странно, странно и обидно ,потеряла много времени на эту фигню

а dbFailOnError и указывала и снимала- всё едино
вот сижу как оплёванная, гораздо больше вопросов чем ответов

>А по остальному твоему тексту - я понял что мы говорим об одном и том же, но как-то иначе. :)

А по моей проблемке что можно сказать?

кажется только одно- держать бубен наготове и танцы, танцы, танцы....