Как объединить два макроса в одном поле?

@ETLena · Регистрация: 07.05.2013

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

Помогите, пожалуйста, а-то я уже голову сломала.
Есть форма с поиском по датам - при выборе соответствующей даты выводятся данные таблицы по этой дате.
Вопрос: как сделать так, чтоб, если в таблице этой даты нет, автоматически создавалась новая запись к дате, заданной в поиске?
тобишь объединить 2 макроса в один: ВыполнитьКоманду "Найти" и если IsNull ([Дата]) НаЗапись "; ; Новая; "

@evgenii3000 · 07.05.2013, 15:41

Создание поиска в дазе данных

Поиск по вхождению в поле формы

@ETLena · 07.05.2013, 15:52 **[ТС]**

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

Создание поиска в дазе данных

Поиск по вхождению в поле формы

Это я читала, у меня поиск нормально работает. Надо, чтоб если искомой записи не существует, автоматически создавалась новая запись, а не вылезало сообщение "Поиск записи завершен. Образец не найден".

@evgenii3000 · 07.05.2013, 16:52

лучше создать кнопку отдельно, когда ничего не найдено "добавить запись"

@ETLena · 07.05.2013, 17:12 **[ТС]**

У меня сейчас так и реализовано, просто очень хочется автоматизировать сей процесс. Это совсем не реально?

mobile · 07.05.2013, 17:22

Как с макросами не скажу, не пользуюсь. А используя процедуры событий можно так: код на событии После обновления (AfterUpdate) поискового поля

Visual Basic
1
2
3
4
5
6
7
8
With Me.Recordset
  .Findfirst "[ИмяПоляДатывтаблице]=" & format([ИмяПоисковогоПоляДатывформе], "\#mm\/dd\/yyyy\#)
  if .nomatch then
     .addnew
     ![ИмяПоляДатывтаблице]=date
     .update
  end if
end with

@ETLena · 07.05.2013, 18:27 **[ТС]**

Спасибо, конечно

Для меня VB, как иероглифы в гробницах фараонов - выглядит красиво - не понятно нифига... Вроде сделала все по инструкции, выдает ошибку синтаксиса...
Может ему не нравится, что у меня [ИмяПоляДатывтаблице] идентично [ИмяПоисковогоПоляДатывформе]?
Таблица по которой осуществляется поиск - "Календарь", поле - "Дата_тренировки", форма - "Календарь", поисковое поле - "Дата тренировки". Че делать?

mobile · 07.05.2013, 18:36

А вот выложите сюда свою бдшку и какая-нибудь добрая форумная душа непременно выправит код

@ETLena · 07.05.2013, 18:56 **[ТС]**

Вот набросок бд.
Спасибо за помощь

@alvk · 08.05.2013, 02:36

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

Для меня VB, как иероглифы в гробницах фараонов - выглядит красиво - не понятно нифига...

Вот точно также для меня макросы

Но судя по заданию, для вас и БД как иероглифы, ибо ввод данных первичен, а поиск вторичен, а у вас наоборот.

mobile · 08.05.2013, 03:22

Что-то никакая добрая душа не заглянула. А я так надеялся... Пришлось самому мобилизовать остатки альтруизма и что-то сотворить.

1. Имеющаяся структура БД не адекватна. Сделаны новые таблицы, у них префикс "_".
2. Таблицы _Спортсмены и _ВремяТренировки справочники. В таблице _Тренировки записываются фактические данные тренировок
3. Форма _ТренировкиMain свободная. Табличная форма _Тренировки это подформа на главной _ТренировкиMain.
4. Поля со списком Спортсмен и Дата на главной позволяют фильтровать форму и одновременно задают значение по умолчанию для соответствующих полей в подформе
5. Кнопки со стрелками очищают поля со списком Спортсмен и Дата
6. Поля со списком Спортсмен (idMan) и Время начала (idTimeStart) в подформе позволяют также вводить данные. В скобках приведены истинные имена полей.
7. Повторящиеся данные в таблице _Тренировки невозможны, поскольку сделан уникальный индекс на три поля idMan, idTimeStart, Дата.

Пробуйте

mobile · 08.05.2013, 03:23

Забыл вложение. Вот

@alvk · 08.05.2013, 04:08

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

Забыл вложение.

... и блюдечко.

@ETLena · 08.05.2013, 09:44 **[ТС]**

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

Что-то никакая добрая душа не заглянула. А я так надеялся... Пришлось самому мобилизовать остатки альтруизма и что-то сотворить.

Спасибо огроменное за общую мобилизацию альтруизма, отзывчивости и прекрасных душевных качеств!

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

Поиск по дате с кнопочкой очистки - именно то, что было мне надо!
Дальше я само.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@ETLena 53 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 7

	Как объединить два макроса в одном поле? 07.05.2013, 15:20. Показов 1376. Ответов 13 Метки нет (Все метки) Помогите, пожалуйста, а-то я уже голову сломала. Есть форма с поиском по датам - при выборе соответствующей даты выводятся данные таблицы по этой дате. Вопрос: как сделать так, чтоб, если в таблице этой даты нет, автоматически создавалась новая запись к дате, заданной в поиске? тобишь объединить 2 макроса в один: ВыполнитьКоманду "Найти" и если IsNull ([Дата]) НаЗапись "; ; Новая; " 0

@evgenii3000 1320 / 539 / 67 Регистрация: 16.01.2013 Сообщений: 4,106
	07.05.2013, 15:41
	Создание поиска в дазе данных Поиск по вхождению в поле формы 1

@evgenii3000 1320 / 539 / 67 Регистрация: 16.01.2013 Сообщений: 4,106
	07.05.2013, 16:52
	лучше создать кнопку отдельно, когда ничего не найдено "добавить запись" 0

@ETLena 53 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 7
	07.05.2013, 17:12 [ТС]
	У меня сейчас так и реализовано, просто очень хочется автоматизировать сей процесс. Это совсем не реально? 0

@ETLena 53 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 7
	07.05.2013, 18:27 [ТС]
	Спасибо, конечно Для меня VB, как иероглифы в гробницах фараонов - выглядит красиво - не понятно нифига... Вроде сделала все по инструкции, выдает ошибку синтаксиса... Может ему не нравится, что у меня [ИмяПоляДатывтаблице] идентично [ИмяПоисковогоПоляДатывформе]? Таблица по которой осуществляется поиск - "Календарь", поле - "Дата_тренировки", форма - "Календарь", поисковое поле - "Дата тренировки". Че делать? 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	07.05.2013, 18:36
	А вот выложите сюда свою бдшку и какая-нибудь добрая форумная душа непременно выправит код 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	08.05.2013, 03:22
	Что-то никакая добрая душа не заглянула. А я так надеялся... Пришлось самому мобилизовать остатки альтруизма и что-то сотворить. 1. Имеющаяся структура БД не адекватна. Сделаны новые таблицы, у них префикс "_". 2. Таблицы _Спортсмены и _ВремяТренировки справочники. В таблице _Тренировки записываются фактические данные тренировок 3. Форма _ТренировкиMain свободная. Табличная форма _Тренировки это подформа на главной _ТренировкиMain. 4. Поля со списком Спортсмен и Дата на главной позволяют фильтровать форму и одновременно задают значение по умолчанию для соответствующих полей в подформе 5. Кнопки со стрелками очищают поля со списком Спортсмен и Дата 6. Поля со списком Спортсмен (idMan) и Время начала (idTimeStart) в подформе позволяют также вводить данные. В скобках приведены истинные имена полей. 7. Повторящиеся данные в таблице _Тренировки невозможны, поскольку сделан уникальный индекс на три поля idMan, idTimeStart, Дата. Пробуйте 1

Как объединить два макроса в одном поле?

Решение