Код для кнопки "сохранить запись" на VBA

@Maks1m · Регистрация: 02.06.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Есть форма ввода. Нужно сделать на ней кнопку "сохранить".
Форма по-умолчанию открывается на "новой записи".
Одна кнопка закрывает форму и отменяет запись.
А другая сохраняет.

Функции сделаны макросами и, в принципе, работают, НО возникла необходимость запустить кнопкой "сохранить" еще код VBA на запуск запросов на изменение без сообщений и предупреждений, так что поменял "макрокоманды" на "процедуры обработки" и теперь нужно реализовать стандартную макрокоманду "СохранитьЗапись" в коде VBA.

Задача типовая, НО решения из интернета не привели к результату.
Не мог бы кто-нибудь предложить вариант кода?
Сейчас кнопка работает отлично и после создания записи еще и переход на новую запись происходит сразу (т.е. форма очищается)

@sana555 · 19.09.2017, 17:34

Неа, тоже не ищет. Т.е. как бы он проходит эту строчку, без ругани.., но берет данные из первой попавшейся записи. Если даже такого значения нет в таблице, то все равно берет данные из первой записи...)

@Eugene-LS · 19.09.2017, 17:36

Сообщение от sana555

Неа, тоже не ищет.

Формат поля?
Если текстовый - посмотрите что бы там "мусора" не было
Если числовой - уберите одинарные кавычки.

@sana555 · 19.09.2017, 17:40

Текстовый. Мусор в смысле пробела?

Добавлено через 3 минуты
Я просто ввожу не существующее значение, по идее он же должен ругаться, что такого значения в записях таблицы нет, а он тупо проглатывает.

mobile · 19.09.2017, 17:43

Об успешности поиска говорит свойство NoMatch. Если истина - поиск не увенчался, если ложь значение найдено

Visual Basic
1
2
3
4
5
6
rst.FindFirst "[ИмяПоля] = '" & me.Поле & "'"
If rst.NoMatch Then
  msgbox "Значение НЕ найдено"
Else
  msgbox "Значение найдено"
End If

@Eugene-LS · 19.09.2017, 17:44

Сообщение от sana555

Текстовый. Мусор в смысле пробела?

И не только .... бывает разный (и скрытые символы в т.ч.) ...
Часто наблюдаю при использовании Копи-Пастинга из WEB страниц.

@sana555 · 19.09.2017, 17:52

Visual Basic
1
rst.FindFirst "[ИмяПоля] = '" & me.Поле & "'"

Вот как раз если задавать имя поля формы то работает, но мне нужно задать именно просто текстом..

Добавлено через 6 минут
Но, NoMatch работает, его по ходу не проведешь...)) Спасибо.
п.с. можете дать ссылку на синтаксис условий поиска в таблице, а то каждый раз по началу как на инопланетный язык смотрю, ну ничего не понимаю..)

mobile · 19.09.2017, 18:03

Найдите в сети хелп Access 97. Самый лучший, к тому же русскоязычный. Для полноценного изучения конечно не подойдет, но для справок лучше не сделано. Несмотря на то, что прошло 20 лет, он во многом еще актуален.

@Eugene-LS · 19.09.2017, 18:10

Сообщение от sana555

можете дать ссылку на синтаксис условий поиска в таблице, а то каждый раз по началу как на инопланетный язык смотрю

Где-то тут ...

Добавлено через 6 минут

Сообщение от mobile

Найдите в сети хелп Access 97. Самый лучший, к тому же русскоязычный.

Полностью согласен!
Но там есть нюансы - старый файл HLP не запуститься под последними версиями Windows - нужно будет драйверочек (адаптер) небольшой от MS установить.
Всё.

@Eugene-LS · 19.09.2017, 18:16

Вот!

@Eugene-LS · 19.09.2017, 18:21

Добавочка, для справки.
Запускать (делать ярлык) - рекомендую на файл: acmain80.hlp

@sana555 · 19.09.2017, 18:24

сначала дровишки нужно найти..)

@Capi · 19.09.2017, 18:28

Пусть я буду занудой, но хочу заметить.

В теме уже третья или четвертая тема пошла,
при этом от совсем других участников, а не от ТС.

Почему бы свои темы не создавать, со своими вопросами?

@sana555 · 19.09.2017, 18:35

Это просто место сходки всем нравится, а темы разные для разговоров..))

@Eugene-LS · 19.09.2017, 19:20

И ещё, для комплекта:
Программа "Справка Windows" (WinHlp32.exe)
Программа WinHlp32.exe необходима для просмотра 32-разрядных файлов справки с расширением HLP.

@alvk · 26.09.2017, 06:25

вот это дело

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Maks1m 1 / 1 / 0 Регистрация: 02.06.2015 Сообщений: 8

	Код для кнопки "сохранить запись" на VBA 17.06.2015, 00:55. Показов 26513. Ответов 94 Метки нет (Все метки) Здравствуйте. Есть форма ввода. Нужно сделать на ней кнопку "сохранить". Форма по-умолчанию открывается на "новой записи". Одна кнопка закрывает форму и отменяет запись. А другая сохраняет. Функции сделаны макросами и, в принципе, работают, НО возникла необходимость запустить кнопкой "сохранить" еще код VBA на запуск запросов на изменение без сообщений и предупреждений, так что поменял "макрокоманды" на "процедуры обработки" и теперь нужно реализовать стандартную макрокоманду "СохранитьЗапись" в коде VBA. Задача типовая, НО решения из интернета не привели к результату. Не мог бы кто-нибудь предложить вариант кода? Сейчас кнопка работает отлично и после создания записи еще и переход на новую запись происходит сразу (т.е. форма очищается) 0

@sana555 431 / 39 / 1 Регистрация: 02.03.2016 Сообщений: 453
	19.09.2017, 17:34
	Неа, тоже не ищет. Т.е. как бы он проходит эту строчку, без ругани.., но берет данные из первой попавшейся записи. Если даже такого значения нет в таблице, то все равно берет данные из первой записи...) 0

@sana555 431 / 39 / 1 Регистрация: 02.03.2016 Сообщений: 453
	19.09.2017, 17:40
	Текстовый. Мусор в смысле пробела? Добавлено через 3 минуты Я просто ввожу не существующее значение, по идее он же должен ругаться, что такого значения в записях таблицы нет, а он тупо проглатывает. 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	19.09.2017, 18:03
	Найдите в сети хелп Access 97. Самый лучший, к тому же русскоязычный. Для полноценного изучения конечно не подойдет, но для справок лучше не сделано. Несмотря на то, что прошло 20 лет, он во многом еще актуален. 2

@Eugene-LS 13269 / 5946 / 1529 Регистрация: 05.10.2016 Сообщений: 16,639
	19.09.2017, 18:21
	Добавочка, для справки. Запускать (делать ярлык) - рекомендую на файл: acmain80.hlp 1

@sana555 431 / 39 / 1 Регистрация: 02.03.2016 Сообщений: 453
	19.09.2017, 18:24
	сначала дровишки нужно найти..) 0

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	19.09.2017, 18:28
	Пусть я буду занудой, но хочу заметить. В теме уже третья или четвертая тема пошла, при этом от совсем других участников, а не от ТС. Почему бы свои темы не создавать, со своими вопросами? 2

@sana555 431 / 39 / 1 Регистрация: 02.03.2016 Сообщений: 453
	19.09.2017, 18:35
	Это просто место сходки всем нравится, а темы разные для разговоров..)) 0

@Eugene-LS 13269 / 5946 / 1529 Регистрация: 05.10.2016 Сообщений: 16,639
	19.09.2017, 19:20
	И ещё, для комплекта: Программа "Справка Windows" (WinHlp32.exe) Программа WinHlp32.exe необходима для просмотра 32-разрядных файлов справки с расширением HLP. 3

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	26.09.2017, 06:25
	вот это дело 0