Связь таблицы и формы

@Kiriver · Регистрация: 09.04.2018

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

я отфильтровал данные на основной форме. Осталось одно значение, я щелкаю по нему два раза и открывается форма "Карточка". Как заполнить поля, которые есть в "Карточке" и основной форме "ФИО" понятно, а вот как связать поля, которых нет на форме, например "Прописка"? И еще мне надо, чтобы по каждому человеку выводились данные из таблицы "Пропуск", как лучше это сделать средствами запросов или подчиненной формой? Сейчас там подчиненная форма, но она статична, не меняется в зависимости от фамилии.

@MrShin · 17.04.2018, 14:13

Так это четвертый параметр docmd.OpenForm, вы его уже использовали для открытия. Делаете карточку на базе той же таблицы, что и ФИО, блокируете поля для редактирования, если нужно и все, при открытии формы на карточке будет отображаться только одна запись. Не разберетесь - попозже переделаю форму, сейчас не могу.

@Eugene-LS · 17.04.2018, 14:35

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

Подскажите, как сделать это по-другому?

Ну можно так ...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Current()
'Выборка через фильтр
'--------------------------------------------------------------------------
Dim s As String
 
On Error GoTo Form_Current_Err
    s = "K_PROC=" & Me!ID_PROC
    Me.Parent!MY_STEP.Form.Filter = s
    Me.Parent!MY_STEP.Form.FilterOn = True
 
Form_Current_Bye:
    Exit Sub
 
Form_Current_Err:
    Err.Clear
    Resume Form_Current_Bye
End Sub

@Kiriver · 17.04.2018, 17:58 **[ТС]**

Eugene-LS, спасибо большое, только это не моя база)) в том файле итак всё работало. Файл с моей БД называется 1504.zip. Попробую прилепить к своей.

Добавлено через 49 минут
VinniPuh, посмотрел. событие было. поудалял все макросы и процедуры. вычистил всё. проблема не ушла.

MrShin, попробовал сделать вторую форму на основе таблицы ФИО и применить к ней фильтр - не пошло. в новой форме есть подчиненная форма "пропуск" к ней после дополнительного обозначения ID фильтр применяется, но фамилия, имя и т.д остаются неизменными.

@Eugene-LS · 17.04.2018, 23:35

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

Файл с моей БД называется 1504.zip

Хорошо.
Не уверен что я правильно понял что вы хотите, но вот некий результат по теме.

@MrShin · 18.04.2018, 08:19

Сообщение от Eugene-LS

вот некий результат по теме

Да, именно это я и предложил выше, спасибо за помощь.

@Eugene-LS · 18.04.2018, 08:31

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

Да, именно это я и предложил выше

Ваше предложение было простым и оптимальным.
Спасибо!
Всё правильно (но я решаю иначе).
...
А что ТС напечатает - вот что интересно ...

@Kiriver · 18.04.2018, 12:46 **[ТС]**

Eugene-LS, спасибо, то, что надо! Теперь можно двигаться дальше. Я пытался разобраться с OpenForm, но не получилось.

@Eugene-LS · 18.04.2018, 13:16

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

Я пытался разобраться с OpenForm, но не получилось.

А вот тут поподробнее пожалуйста - что не получилось?
Это важно.
Может я вам чего путного подскажу ...

@Kiriver · 18.04.2018, 21:15 **[ТС]**

Eugene-LS,
сначала я пытался через макрокоманды использовать данную команду.
--Форма-то открывалась, но без передачи ID.
--В ней есть параметр "Условие отбора" туда вбивал фильтр по "Полекод" - безуспешно.
--Потом посмотрел пример, который идет с Аксессом 2010 БД "Контакт", там сделано, как у вас - через задание переменной, но не очень понятно было, что откуда берется, т.к. описания базы нет (непонятно было что такое TempVars. Якобы группа переменных).
--Потом дошел и до прописания, как у вас, через код, но я пытался делать без переменной, т.е. я открывал форму, (OPenform), а потом применял фильтр (Applyfilter).
--Пытался сделать через дополнительное поле, но не напрямую (напрямую выдало ту самую ошибку с постоянным обновлением), а сначала открыть форму, а потом задать дополнительному полю значение ID, которое надо открыть.
---Смотрел примеры, но большинство было сделано через переменную

и вот тут я понял, что надо начинать изучать VBA))
Логически я понимаю, что там написано, но перенести в свою базу не могу.

Добавлено через 5 часов 12 минут
Продолжу серию вопросов знатокам

Теперь в свою БД я хочу добавить имена тех, кто осуществил пропуск. ДЛя этого создал таблицу (Сотрудники) с именами контроллеров ; создал таблицу (Наряды) с датой и фамилией контроллера, осуществившего пропуск; в таблице Наряды ключевой столбец - дата (не знаю правильно или нет), т.е. в одну дату может быть только один работник(пока так, может его конечно и будут менять, но об этом подумаю потом).

Теперь вопрос: мне нужно, чтобы при добавлении данных в таблицу "Пропуск", туда, в зависимости от даты, автоматически вносились данные по контроллеру. Я пытался связать таблицы различными способами: Дата(ключ)-Дата, Дата(ключ) - Наряд (таблица Пропуск) не выходит. В книге рассказывается про связующие таблицы, но это не совсем то, что нужно. Мне кажется,я просто неправильно связываю поля или данную проблему надо решать кодированием?

@Eugene-LS · 19.04.2018, 02:32

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

мне нужно, чтобы при добавлении данных в таблицу "Пропуск", туда, в зависимости от даты, автоматически вносились данные по контроллеру.

Примерно так:

@Eugene-LS · 19.04.2018, 02:46

Kiriver, а ещё лучше так:
(кой - чего лишнего убрал)

@Eugene-LS · 19.04.2018, 13:47

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

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

Это не совсем верный подход - посмотрите как я сделал в примере (форум0418_v03.zip - форум0418_v04.zip)
В принципе, можно вычислять сотрудника и по номеру наряда, но я вписываю его Код сразу в пропуск, это не большой расход, но за то выборка на одну таблицу проще.

Добавлено через 10 часов 44 минуты
Kiriver, я только одного не понял:
Зачем это (при открытии карточки пропуска):

Visual Basic
1
    DoCmd.MoveSize 5000, 0

Что означает и как работает - мне понятно, а зачем ???

@Kiriver · 19.04.2018, 14:34 **[ТС]**

Eugene-LS, иначе у меня получалось, что карточка вниз уходила, а так она открывается там где мне надо.

@Eugene-LS · 19.04.2018, 14:40

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

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

У вас в форме карточки свойство AutoCenter = True (Центровка формы относительно окна приложения)
Должно отрабатывать штатно.

@Kiriver · 19.04.2018, 20:53 **[ТС]**

Eugene-LS, подскажите еще, пожалуйста. Я создал отчет по таблице и сделал форму, чтобы вводить данные для фильтрации, так вот, когда данные в поле введены, то всё работает как надо, а вот если оставить поле пустым, то отчёт получается пустым, я пытаюсь сделать так: iif(is null([формы]![отчеты]![полефильтр]);"*";[формы]![отчеты]![полефильтр]), но не получается.

@Eugene-LS · 19.04.2018, 21:19

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

когда данные в поле введены, то всё работает как надо, а вот если оставить поле пустым, то отчёт получается пустым, я пытаюсь сделать так:

Так не видно ошибки - опубликуйте пример пожалуйста с описанием точки ошибки (Объект -Событие)
Подозреваю - Что-то не так, у вас, с передачей фильтра в отчёт.

@VinniPuh · 19.04.2018, 21:22

Eugene-LS, он там чего-то на пустоту умножает кажись, типа звёздочка какая то.

@Eugene-LS · 19.04.2018, 21:29

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

он там чего-то на пустоту умножает кажись, типа звёздочка какая то.

Спасибо, видел .
Думаю, лучше посмотреть - и при случае - исправить, показав как это делается обычно.
Подозреваю что опять макрос ...

@Kiriver · 19.04.2018, 22:32 **[ТС]**

Eugene-LS, есть форма - Отчеты. Там сделано два отчета. Интересует нижний, который по ТС. Фильтр по датам работает нормально, надо настроить фильтр по ТС (поле "ПоискТС" туда вбивается номер машины). Если поле заполнено, то всё работает как надо, а вот если выбрать даты, а поле "ПоискТС" оставить пустым, то и отчет выходит пустым, а надо, чтобы выдавало всё, что есть за указанную дату.
VinniPuh, именно вместо звездочки я и не знаю, что надо вставить)))

@Eugene-LS · 19.04.2018, 23:17

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

надо настроить фильтр по ТС (поле "ПоискТС" туда вбивается номер машины).

На скорую руку - примерно так:

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@MrShin 296 / 257 / 68 Регистрация: 18.06.2015 Сообщений: 570
	17.04.2018, 14:13
	Так это четвертый параметр docmd.OpenForm, вы его уже использовали для открытия. Делаете карточку на базе той же таблицы, что и ФИО, блокируете поля для редактирования, если нужно и все, при открытии формы на карточке будет отображаться только одна запись. Не разберетесь - попозже переделаю форму, сейчас не могу. 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	17.04.2018, 17:58 [ТС]
	Eugene-LS, спасибо большое, только это не моя база)) в том файле итак всё работало. Файл с моей БД называется 1504.zip. Попробую прилепить к своей. Добавлено через 49 минут VinniPuh, посмотрел. событие было. поудалял все макросы и процедуры. вычистил всё. проблема не ушла. MrShin, попробовал сделать вторую форму на основе таблицы ФИО и применить к ней фильтр - не пошло. в новой форме есть подчиненная форма "пропуск" к ней после дополнительного обозначения ID фильтр применяется, но фамилия, имя и т.д остаются неизменными. 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	18.04.2018, 12:46 [ТС]
	Eugene-LS, спасибо, то, что надо! Теперь можно двигаться дальше. Я пытался разобраться с OpenForm, но не получилось. 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	19.04.2018, 14:34 [ТС]
	Eugene-LS, иначе у меня получалось, что карточка вниз уходила, а так она открывается там где мне надо. 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	19.04.2018, 20:53 [ТС]
	Eugene-LS, подскажите еще, пожалуйста. Я создал отчет по таблице и сделал форму, чтобы вводить данные для фильтрации, так вот, когда данные в поле введены, то всё работает как надо, а вот если оставить поле пустым, то отчёт получается пустым, я пытаюсь сделать так: iif(is null([формы]![отчеты]![полефильтр]);"*";[формы]![отчеты]![полефильтр]), но не получается. 0

@VinniPuh 9148 / 6183 / 594 Регистрация: 27.03.2013 Сообщений: 20,061
	19.04.2018, 21:22
	Eugene-LS, он там чего-то на пустоту умножает кажись, типа звёздочка какая то. 0

Связь таблицы и формы

Решение