ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с макросом
59 сообщений из 59, показаны все 3 страниц
  все  
Помогите с макросом
    #39317098
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Есть макрос запускающий запросы на удаление, обновление. Есть ли способ выполнить операции запросов в макросе не создавая запросов. Если можно визуально продемонстрируйте.
...
Рейтинг: 0 / 0
28.09.2016, 16:11
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317143
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Не знаю, как называется макрос, но в VBA аналог называется DoCmd.RunSQL. Он выполняет указанное SQL выражение.
И вообще - не теряйте время на макросы, осваивайте VBA.
...
Рейтинг: 0 / 0
28.09.2016, 16:43
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317252
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nikolay_magagin,
Если выложите БД в формате *.mdb и напишите чего Вы хотите (типа:при нажатии кнопки в форме такой-то удалить из таблицы такой-то записи по критерию поле такое-то в таблице = полю такому-то на форме)
Многие на этом форуме используют ACCESS 2003 или максимум 2007,а они 2010 не читают. Имейте ввиду это на будущее
...
Рейтинг: 0 / 0
28.09.2016, 18:47
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317334
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Нужно сократить количество запросов за счет внесения их действий в макрос. Наверно, а может нет.
...
Рейтинг: 0 / 0
28.09.2016, 21:14
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317345
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nikolay_magagin,
Вы не пояснили ЧТО должно произойти при нажатии кнопки
...
Рейтинг: 0 / 0
28.09.2016, 21:47
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317346
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Макрос открывает запросы на удаление и обновление. Можно ли операции выполняемые запросами засунуть в макрос, а не прибегать к открытию запроса.
...
Рейтинг: 0 / 0
28.09.2016, 21:55
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317365
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nikolay_magagin,
Я смутно подозреваю что все,чего Вы хотите,решается 2-3 строчками кода. В запросах я даже не пытался разобраться-просто ответьте ЧТО надо сделать (если Вас интересует только запуск макроса - DoCmd.RunMacro,если хотите все сделать без сохраненных запросов ответьте на мой вопрос)
...
Рейтинг: 0 / 0
28.09.2016, 23:50
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317378
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
nikolay_magagin,
чего вы прицепились к макросам? Во многих случаях макросы - это такие неудобные "контейнеры" для перечня команд. И ни разу не "волшебная палочка". В любом случае - захламляет список объектов базы. Вам надо "выполнить операции запросов в макросе не создавая запросов"? "Запросы на удаление, обновление", так? Правда, вы не уточнили: запрос на удаление таблицы, записи, значения или ещё чего.
Теперь смотрите, вам тут уже "откровенно намекали", как это сделать.
В простейшем случае, делаете на форме кнопочку, и на её событие нажать цепляете нужную вам процедуру.
Например.
' Удалить в текущей базе таблицу ТАгент:
DoCmd.DeleteObject acTable, "ТАгент"
или
' Очистить таблицу
CurrentProject.Connection.Execute "DELETE * FROM [Имя Таблицы]"
Всё, нажимаете кнопочку - получаете результат.

Если надо выполнить более сложный запрос, не создавая ни запроса, ни макроса, то делаете так:
Создаёте нужный вам запрос в конструкторе. Далее просматриваете его в "режиме SQL".
Например, у вас такое содержимое запроса на обновление:
UPDATE ТТовар SET ТТовар.Штрихкод = "0"
WHERE (((ТТовар.КодТовара)=[Forms]![FTovarEdit]![КодТовара]))
WITH OWNERACCESS OPTION;
Копируете весь этот код, и вставляете его в код события нажатия кнопочки. Но надо правильно его запустить. Потому в самом начале вставленного кода пишете DoCmd.RunSQL ". И так как код слишком длинный и нечитабельный, сразу разбиваем его правильно на строки, с переносом:
DoCmd.RunSQL "UPDATE ТТовар SET ТТовар.Штрихкод = "0" WHERE (((ТТовар.КодТовара)=[Forms]![FTovarEdit]![КодТовара])) " _
& "WITH OWNERACCESS OPTION;"
Обратите внимание: в конце первой "разбитой" строки ставятся кавычки и через пробел - знак символ нижнего подчёркивания.
Начало перенесённой строки начинается на амперсанд и кавычки. Закрывается строка просто символом кавычек. Тут нюанс при переносе не потеряйте пробелы внутри кода.
Как бы и всё.
...
Рейтинг: 0 / 0
29.09.2016, 00:14
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317709
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Я, в силу незнания языков программирования, работаю на Акцес через визуальное восприятие, т.е. через конструкторы, не связываясь с SQL и VBA. Ставлю для себя конечный набор данных, который хочу получить и посредством запросов, поэтапно получаю необходимое. Полученный набор данных, по связям, участвует с другим набором данных и т.д.
Проверив такое, получил торможение системы, из-за увеличивающего количества выполняемых операций. В итоге не придумал ничего лучше, чем добавить итоговую таблицу, в которую, через запрос на добавление с условием, вносятся итоговые данные из запроса. Соответственно появляются запросы на удаления, при изменении данных. Конечно появляется дублирование данных в двух таблицах и лучше вносить изменения в первоначальную таблицу, которая требует более серьезных знаний. Но для меня пока важнее понять дальнейшую связь набора данных и определение необходимых компонентов данных в привычном для меня (неправильном) виде. В любом случае появляются запросы с условием на добавление и удаление, выполняемые в определенной последовательности, и увеличивается список объектов базы данных.
Практически старт к выполнению операции осуществляется через кнопку формы. В условии кнопки можно создать через макрос или VBA (для меня честно темный лес, только начал, что-то видеть в SQL) для выполнения процедур. Но потенциально могут быть другие формы, не только повторяющие операции, но и добавляющие к ним другие. Поэтому производить запись данных операций в форме я думаю нецелесообразно.
Так как набор данных и процедур законченный, на поверхности лежало создание макроса, в котором записано открыть запросы на добавление, удаление и запускать из формы этот макрос. Увеличение списка объектов плюс 1.
Наличие макроса для меня необходимость, поэтому возможно ли, для уменьшения списка объектов, засунуть всю процедуру запросов на добавление, удаления в макрос.
Если я правильно понял из комментариев в отношении макросов, другой вариант это создание модулей и запуск их из формы.
...
Рейтинг: 0 / 0
29.09.2016, 12:16
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39317716
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
nikolay_magaginЕсли я правильно понял из комментариев в отношении макросов, другой вариант это создание модулей и запуск их из формы.
Вы совершенно правильно поняли.
Изучайте VBA и вперед, вам правильно советуют.
С уважением.
...
Рейтинг: 0 / 0
29.09.2016, 12:20
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318007
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
nikolay_magagin,
Без обид, но из ваших слов можно сделать вывод о вашем подходе: как бы мне дотянуться до той вот ветки, не слазя со своей. То есть выставив флажок "я мало чего умею", вы хотите и вопрос решить, и остаться на своём текущем уровне знаний.
Опять же, не попробовав применить разные методы, вы много слов пишете в защиту своих пока только предположений (!) о том, что "Поэтому производить запись данных операций в форме я думаю нецелесообразно.".
Отсюда предложение:
Закругляйтесь с "теоретическим словоблудием", пробуйте новую для вас методику работы - и тогда уже с позиций хоть какого то практического опыта выносите свои суждения.
А если вы этого не можете/не хотите - то просто закрывайте топик. Трудно помогать тому, кто ничего не хочет менять и что то делать.
Удачи.
...
Рейтинг: 0 / 0
29.09.2016, 16:30
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318109
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nikolay_magagin....посредством запросов, поэтапно получаю необходимое...ROI....Изучайте VBA и вперед, вам правильно советуют...
А теперь сравните VBA и "визуальное восприятие"
Может это натолкнет Вас на путь истинный-изучение VBA
...
Рейтинг: 0 / 0
29.09.2016, 19:05
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318198
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Я знаю что нужно изучать VBA, и пытаюсь. Перестроиться трудно. Поэтому отправляю как выглядит поэтапно через запросы.
...
Рейтинг: 0 / 0
29.09.2016, 22:19
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318202
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Tarasios
Попробовал копированием SQL запроса с условием на добавление в модуль. Кажется то, что мне надо на данном этапе изучения. Но мелочей не понимаю. Создалась функция, которую я мог задействовать. Что-то сделал ее видно но она не задействуется. Номер на копирование не проходит. Может есть какие-то естественные приколы. Если не трудно напишите. А так спасибо.
...
Рейтинг: 0 / 0
29.09.2016, 22:27
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318205
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
nikolay_magagin,
ну так давайте попробуем вместе разобраться.
Сформируйте правильное техзадание (кста, это поможет вам самому всё разложить по полочкам):
вот пример вашей базы.
Вот таблицы такие то.
Вот запрос, который надо "перевести" в VBA. Или хотя бы точное описание, что он должен делать: что откуда берёт и во что превращает. И что должно отображаться в такой то форме в таких то полях (если должно).
Чуть выше я видел вашу базу, но из неё непонятно, что и как. В общем - жду.
...
Рейтинг: 0 / 0
29.09.2016, 22:35
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318210
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Сегодня уже сил нет думать что писать. Завтра попытаюсь выложить.
...
Рейтинг: 0 / 0
29.09.2016, 22:43
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318528
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
То, что я выложил это лишь относительно завершенный кусок БД. Не буду нагромождать экран своим подходом к созданию структуры хранения и обработки данных. Просто дозрел до вопроса, задал и получил ответ.
А так, создал модуль в котором выполняются действия запросов на удаление и добавление. Количество списков объектов уменьшился с четырех на один. Но так и не разобрался, что надо дописать, чтобы модуль заработал при нажатии кнопки формы.
...
Рейтинг: 0 / 0
30.09.2016, 12:26
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318792
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Все прочитал поставил function. Спасибо.
...
Рейтинг: 0 / 0
30.09.2016, 15:57
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318923
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
nikolay_magagin, а зачем вообще тут нужен модуль? Вот всё содержимое вашего модуля повесьте на кнопку, а сам модуль удалите за ненадобностью. Таким образом, у вас вообще ни одного лишнего объекта не останется в базе.
...
Рейтинг: 0 / 0
30.09.2016, 19:12
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318931
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Наверное потому, что думаю по аналогии с макросом. Теоритически это законченный набор действий с данными. Но вызываться он может из нескольких разных форм, а возможно в различных сочетаниях с другими. Как в этом случае.
...
Рейтинг: 0 / 0
30.09.2016, 19:42
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318937
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
nikolay_magagin,
А это зависит от задачи. Если задача - убрать объекты по максимуму, то в каждой из форм просто дублируется код VBA. И уже по факту корректируется.
...
Рейтинг: 0 / 0
30.09.2016, 20:00
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39318951
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Да наверное.
...
Рейтинг: 0 / 0
30.09.2016, 20:26
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39319249
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Все таки решил попробовать применять модуль. Теоретически должно быть несколько таблиц, для которых выполняются одинаковые операции. Например:

таблица [1-AAK-2]
Function XXX1()
DoCmd.RunSQL "DELETE [1-AAK-2].*" _
& "FROM [1-AAK-2] LEFT JOIN [AAK-2] ON [1-AAK-2].[AAK-KS] = [AAK-2].[AAK-K]" _
& "WHERE (((IIf([AAK-SDS] Like [AAK-SDSS],2,1))=1));"
End Function

таблица [1-AAL-2]
Function XXX2()
DoCmd.RunSQL "DELETE [1-AAL-2].*" _
& "FROM [1-AAL-2] LEFT JOIN [AAL-2] ON [1-AAL-2].[AAL-KS] = [AAL-2].[AAL-K]" _
& "WHERE (((IIf([AAL-SDS] Like [AAL-SDSS],2,1))=1));"
End Function

Разница между двумя записями в буквенных обозначениях "AAK" и "AAL". Можно ли создать модуль при вызове которого вводились соответствующие буквы ХХХ(AAL), которые проставлялись в выражении и выполнялась операция в отношении выбранной таблицы.
...
Рейтинг: 0 / 0
02.10.2016, 16:42
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39319252
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nikolay_magagin,
Имена таблиц можно использовать в качестве аргументов вашей функции,но здесь,скорей всего VBA "споткнется".
Вот выдержка из HELPa:

"При присвоении имен процедурам, константам, переменным, и аргументам в модуле Visual Basic используются следующие правила:
· Имена должны начинаться с буквы....."
...
Рейтинг: 0 / 0
02.10.2016, 17:07
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39319256
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
А если чисто теоретически.
...
Рейтинг: 0 / 0
02.10.2016, 17:44
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39319271
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Любая функция имеет аргументы. В Вашем случае аргументами будут имена таблиц и в дальнейшем используя амперсанд (&) собирайте строку SQL. Типа:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Function XXX1(arg1 as string,arg2 as string) 
Dim StrSQL AS String
StrSQL= "DELETE " & arg1 & ".*" _
& "FROM " & arg2 & " LEFT JOIN......"
DoCmd.RunSQL StrSQL
End Function
'Вызов функции:
call XXX1("NameTbl1","NameTbl2")

Вобщем читайте HELP про функции
...
Рейтинг: 0 / 0
02.10.2016, 19:21
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39319272
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Вдогонку: не потеряйте пробелы внутри строки-самое лучшее распечатать её в окно отладки и проверить
...
Рейтинг: 0 / 0
02.10.2016, 19:23
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39327176
SunGirl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SunGirl
Гость
Здравствуйте.Как можно создать запрос или макрокоманду в базе данных Асcess на удаление внешнего файла.К примеру,xls-файла,расположенного на диске с.
...
Рейтинг: 0 / 0
14.10.2016, 15:21
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39327198
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
SunGirl, вот тебе выборка, смотри там kill
...
Рейтинг: 0 / 0
14.10.2016, 15:46
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39367931
Андрей Гродно
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Гродно
Участник
nikolay_magagin,

Ребята правильно пишут, что пора переходить на VBA.
Но, отвечая на Ваш вопрос, сообщаю, что поможет макрокоманда "ЗапускЗапросаSQL".
Эта макрокоманда считается потенциально опасной, поэтому не забудьте активировать команду на ленте "Показать все действия".
...
Рейтинг: 0 / 0
15.12.2016, 16:21
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39393987
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Здравствуйте. Не могли бы подсказать, как сделать , чтобы при запуске "Wyrazeniye_1", в строковом выражении "Wyrazeniye_1" поочередно менялись и запускались значения "В", "С".


Function G_AAC_B_mod()

Dim Wyrazeniye_1 As String

X = "A_AAA"
Z = "G_AAC"

B = Z & "_B"
C = Z & "_C"

Y = C
Y = B

Wyrazeniye_1 = "INSERT INTO [" & X & "_B-1] ( [" & X & "_B-KO] )" _
& "SELECT [1_" & Y & "].[" & Y & "-KO]" _
& "FROM [" & Z & "^1] RIGHT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^KRx4] = [1_" & Y & "].[" & Y & "-KRx4]" _
& "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4],2,1))=1));"

DoCmd.RunSQL Wyrazeniye_1


End Function
...
Рейтинг: 0 / 0
29.01.2017, 13:16
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394009
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
nikolay_magagin,

при таком накрученном исполнении -- обязательно вставила бы debug.print

Код: sql
1.
2.
3.
4.
5.
6.
INSERT INTO [A_AAA_B-1] ( [A_AAA_B-KO] )
SELECT [1_G_AAC_B].[G_AAC_B-KO]
 FROM [G_AAC^1]
 RIGHT JOIN 1_G_AAC_B
  ON [G_AAC^1].[G_AAC_B^KRx4] = [1_G_AAC_B].[G_AAC_B-KRx4]
 WHERE (((IIf([G_AAC_B^SDSx4S] Like [G_AAC_B-SDSx4],2,1))=1))
...
Рейтинг: 0 / 0
29.01.2017, 14:32
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394019
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Function G_AAC_B_mod()

 Dim Wyrazeniye_1 As String, _
     i As Byte

 X = "A_AAA"
 Z = "G_AAC"

 For i = 1 To 2
  Y = Z & Choose(i, "_B", "_C")
  Wyrazeniye_1 = "INSERT INTO [" & X & "_B-1] ( [" & X & "_B-KO] )" & _
                 "SELECT [1_" & Y & "].[" & Y & "-KO]" & _
                 "FROM [" & Z & "^1] RIGHT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^KRx4] = [1_" & Y & "].[" & Y & "-KRx4]" & _
                 "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4],2,1))=1));"
  DoCmd.RunSQL Wyrazeniye_1
 Next

End Function
...
Рейтинг: 0 / 0
29.01.2017, 14:57
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394040
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Спасибо работает. Хотел бы спросить почему заработало когда удалил "i As Byte".
...
Рейтинг: 0 / 0
29.01.2017, 15:58
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394055
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin,

Небось ни запятой, ни символа продолжения не было.
Вы, я смотрю, убежденный противник всяких архитектурных излишеств, типа Option Explicit.
...
Рейтинг: 0 / 0
29.01.2017, 16:19
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394056
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Да я бы и рад. Скопировал, то, что вы дали. Заработало только после удаления. Вот и спросил - почему.
...
Рейтинг: 0 / 0
29.01.2017, 16:25
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394064
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Если можно, ответьте еще на один вопрос. Добавил "Wyrazeniye_2". Правильно ли я понял, что вначале выполняться "Wyrazeniye_1" и "Wyrazeniye_2" с Y = Z & "_B", а затем Y = Z & "_С".

Function G_AAC_B_mod()

Dim Wyrazeniye_1 As String

X = "A_AAA"
Z = "G_AAC"

For i = 1 To 2

Y = Z & Choose(i, "_B", "_C")


Wyrazeniye_1 = "INSERT INTO [" & X & "_B-1] ( [" & X & "_B-KO] )" _
& "SELECT [1_" & Y & "].[" & Y & "-KO]" _
& "FROM [" & Z & "^1] RIGHT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^KRx4] = [1_" & Y & "].[" & Y & "-KRx4]" _
& "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4],2,1))=1));"

Wyrazeniye_2 = "DELETE [A_AAA_B-1].*" _
& "FROM [A_AAA_B-1];"


DoCmd.RunSQL Wyrazeniye_1

DoCmd.RunSQL Wyrazeniye_2

Next

End Function
...
Рейтинг: 0 / 0
29.01.2017, 16:50
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394066
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin,

Тегами пользуйтесь, пожалуйста.
...
Рейтинг: 0 / 0
29.01.2017, 16:52
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394068
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Что это?
...
Рейтинг: 0 / 0
29.01.2017, 16:55
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394069
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Средства оформления сообщения.
Чтобы каши не было.
...
Рейтинг: 0 / 0
29.01.2017, 16:56
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394075
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Извини. Что, это?
...
Рейтинг: 0 / 0
29.01.2017, 17:09
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394080
_Доброжелатель_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Доброжелатель_
Гость
nikolay_magaginИзвини. Что, это?Форумный отвечатель - это как шофер. Очень скоро вера в собственный опыт перерастает в уверенность в непогрешимости и превосходство над соседями и обстоятельствами, и он решает, что все вокруг него круглые идиоты. На дороге это обычно кончается аварией, а на форуме можно безнаказанно отвечать с вершин своего безграничного опыта, вплоть до хамства. Это обыденность.
"архитектурные излишества, типа Option Explicit" - означают соответствующую запись в начале каждого модуля. А еще лучше - в редакторе модуля отркываешь меню Tools-Options (Сервис-Параметры) и ставишь галку Requere Variable Declaration (Требовать объявления переменных). Спасет от многих подобных ошибок.
"Средства оформления сообщения. Чтобы каши не было." Вот здесь http://www.sql.ru/faq/faq_topic.aspx?fid=202 подробности
...
Рейтинг: 0 / 0
29.01.2017, 17:25
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394081
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Пожалуйста.
Вот здесь все подробно описано.
...
Рейтинг: 0 / 0
29.01.2017, 17:26
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394087
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Проверка
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Function G_AAC_B_mod()

Dim Formula_1 As String
    
    X = "A_AAA"
    Z = "G_AAC"
    
 For i = 1 To 2
 
 Y = Z & Choose(i, "_B", "_C")
 
  
     Formula_1 = "INSERT INTO [" & X & "_B-1] ( [" & X & "_B-KO] )" _
   & "SELECT [1_" & Y & "].[" & Y & "-KO]" _
& "FROM [" & Z & "^1] RIGHT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^KRx4] = [1_" & Y & "].[" & Y & "-KRx4]" _
& "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4],2,1))=1));"
      
     Formula_2 = "DELETE [" & X & "_B-1].*" _
& "FROM [" & X & "_B-1];"
  
  Formula_3 = "INSERT INTO 1_" & Y & "( [" & Y & "-S1], [" & Y & "-S2], [" & Y & "-S3], [" & Y & "-S4] )" _
& "SELECT [" & Z & "^1].[" & Y & "^SDS1], [" & Z & "^1].[" & Y & "^SDS2], [" & Z & "^1].[" & Y & "^SDS3], [" & Z & "^1].[" & Y & "^SDS4]" _
& "FROM [" & Z & "^1] LEFT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^SDSx4S] = [1_" & Y & "].[" & Y & "-SDSx4]" _
& "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4], 2, 1)) = 1))" _
& "GROUP BY [" & Z & "^1].[" & Y & "^SDS1], [" & Z & "^1].[" & Y & "^SDS2], [" & Z & "^1].[" & Y & "^SDS3], [" & Z & "^1].[" & Y & "^SDS4];"
  
 
  DoCmd.RunSQL Formula_1
  
  DoCmd.RunSQL Formula_2
  
  DoCmd.RunSQL Formula_3
  
  
 Next

End Function
...
Рейтинг: 0 / 0
29.01.2017, 17:36
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394088
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Спасибо, понял. Больше не повторится.
...
Рейтинг: 0 / 0
29.01.2017, 17:37
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394091
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin....Скопировал, то, что вы дали. Заработало только после удаления...Этого быть не может, абсолютно точно.
Значит, исказили то, что скопировали.
Сейчас специально проверила - все работает.
Только вместо выполнения запроса выполняется MsgBox Wyrazeniye_1.
Ведь запросов-то этих у меня нет.
Все блестяще выполняется.
Где-то Вы напортачили при переносе.)))
...
Рейтинг: 0 / 0
29.01.2017, 17:40
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394093
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin,

Проверим искусство копирования.)))
Скопируйте снова, как делали, и покажите сообщение об ошибке.
...
Рейтинг: 0 / 0
29.01.2017, 17:42
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394100
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magaginПроверка
Код: sql
1.
2.

И еще совет.
Проверки лучше выполнять в специальном форуме Тест.
...
Рейтинг: 0 / 0
29.01.2017, 17:53
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394119
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Сообщение - "Compile error: Statement invalid outside Type block".
Удаляю "i As Byte" - нормально.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
[color=yellow]Function G_AAC_B_mod()[/color]

Dim Formula_1 As String
  [color=blue] i As Byte[/color]
    X = "A_AAA_B"
    Z = "G_AAC"
     For i = 1 To 2
  Y = Z & Choose(i, "_B", "_C")
      Formula_1 = "INSERT INTO [" & X & "-1] ( [" & X & "-KO] )" _
   & "SELECT [1_" & Y & "].[" & Y & "-KO]" _
& "FROM [" & Z & "^1] RIGHT JOIN 1_" & Y & " ON [" & Z & "^1].[" & Y & "^KRx4] = [1_" & Y & "].[" & Y & "-KRx4]" _
& "WHERE (((IIf([" & Y & "^SDSx4S] Like [" & Y & "-SDSx4],2,1))=1));"
            Formula_2 = "DELETE [1_" & Y & "].*" _
& "FROM 1_" & Y & " INNER JOIN [" & X & "-1] ON [1_" & Y & "].[" & Y & "-KO] = [" & X & "-1].[" & X & "-KO];"
           Formula_3 = "DELETE [" & X & "-1].*" _
& "FROM [" & X & "-1];"
 
  DoCmd.RunSQL Formula_1
    DoCmd.RunSQL Formula_2
    DoCmd.RunSQL Formula_3
  
  
 Next

End Function
    
   
  Sub AAS1()

End Sub
...
Рейтинг: 0 / 0
29.01.2017, 18:24
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394124
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nikolay_magagin,

Как я и написала сразу 20158694 - ни запятой, ни символа продолжения.
А говорите, "скопировали"...
...
Рейтинг: 0 / 0
29.01.2017, 18:29
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39394133
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Понял. Работает. Спасибо.
...
Рейтинг: 0 / 0
29.01.2017, 18:37
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402570
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Подскажите кто может. Происходит удаление данных из таблицы. При последующей вставке данных в таблицу, ключевое поле-счетчик, автоматически продолжает вести нумерацию от последнего удаленного значения. При нажатии "сжать и восстановить базу данных" счетчик начинает отсчет уже нормально от последнего существующего значения. Есть ли команда в отношении конкретной таблицы, а не всей базы данных, для того, чтобы счетчик считал от последнего существующего значения.
...
Рейтинг: 0 / 0
11.02.2017, 09:09
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402607
ы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ы
Гость
nikolay_magaginПодскажите кто может. Происходит удаление данных из таблицы. При последующей вставке данных в таблицу, ключевое поле-счетчик, автоматически продолжает вести нумерацию от последнего удаленного значения. При нажатии "сжать и восстановить базу данных" счетчик начинает отсчет уже нормально от последнего существующего значения. Есть ли команда в отношении конкретной таблицы, а не всей базы данных, для того, чтобы счетчик считал от последнего существующего значения.
http://www.sql.ru/faq/faq_topic.aspx?fid=214
...
Рейтинг: 0 / 0
11.02.2017, 12:05
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402626
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
nikolay_magaginПри последующей вставке данных в таблицу, ключевое поле-счетчик, автоматически продолжает вести нумерацию от последнего удаленного значения

счетчикстатусзначение122222уд333366664уд5уд
до сжатия будет вставлена запись с кодом 6

если сжать, то получим
счетчикстатусзначение122222уд33336666

будет вставлена запись с кодом 4
поэтому, если важен номер , то применяю еще одно поле, которое ищу как max(номер)+1 и присваиваю в форме, в коде на событии текущая запись

счетчик же --это просто порядок ввода строк в таблицу
...
Рейтинг: 0 / 0
11.02.2017, 12:48
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402628
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
nikolay_magagin,

часто применяю номер, если важен порядок строк, а вставить в середину справочника невозможно
счетчикномерзначение110оооо220лллл330дддд

надо после строки 2 добавить еще две
счетчикномерзначение110оооо220лллл330дддд422лллл2524ллл3

в запросе же задаю сортировку по номер
...
Рейтинг: 0 / 0
11.02.2017, 12:55
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402630
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
nikolay_magagin,

получаем

счетчик номер значение1 10 оооо2 20 лллл4 22 лллл25 24 ллл33 30 дддд
...
Рейтинг: 0 / 0
11.02.2017, 12:56
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402657
хм-м-м
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
хм-м-м
Гость
nikolay_magagin...Есть ли команда в отношении конкретной таблицы, а не всей базы данных, чтобы счетчик считал от последнего существующего значения.
Код: vbnet
1.
2.
3.
Dim k As Long
k = DMax("<имя счетчика>", "<имя таблицы>") + 1
CurrentDb.Execute("alter table <имя таблицы> alter column <имя счетчика> counter(" & k & ",1)")


И изучите материал по ссылке, данной ы.
...
Рейтинг: 0 / 0
11.02.2017, 14:00
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39402659
ы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ы
Гость
ы
ПЕНСИОНЕРКАсчетчикстатусзначение122222уд333366664уд5уд
до сжатия будет вставлена запись с кодом 6

если сжать, то получим
счетчикстатусзначение122222уд33336666
Собственно, это и было в вопросе. К тому же, строго говоря, это пример не совсем корректный. После сжатия может быть и так:
счетчикстатусзначение1222236666

ПЕНСИОНЕРКАпоэтому, если важен номер , то применяю еще одно поле, которое ищу как max(номер)+1 и присваиваю в форме, в коде на событии текущая запись
Опять же, для многопользовательских БД это плохое, если не сказать дурацкое решение.

ПЕНСИОНЕРКА счетчик же --это просто порядок ввода строк в таблицу Неверно. Это просто поле, которое заполняется само по себе . Как написано в ссылке, и повторено выше, несложно добиться состояния, когда значения или серии значений счетчика будут идти в произвольном порядке.

Собственно для nikolay_magagin достаточно ответа на вопрос Q4 по ссылке. Отлично сформулированного ответа.
...
Рейтинг: 0 / 0
11.02.2017, 14:16
| Ответить | Цитировать | Написать  
Помогите с макросом
    #39435473
nikolay_magagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolay_magagin
Гость
Может кто нибудь подскажет. Есть макрос запускаемый после нажатия кнопки в форме. Нужно дописать:
1) Сохранить внесенные изменения в форме.
2) Закрыть форму и открыть отчет с условием ="[1_F_AAB^KO]=" & [1_F_AAB^KO]
...
Рейтинг: 0 / 0
09.04.2017, 17:32
| Ответить | Цитировать | Написать  
59 сообщений из 59, показаны все 3 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1612568]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 10ms
total:  163ms
созд. / загр.: 163ms
x
x
Закрыть


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