Создание новой записи в незакреплённой таблице из табличной формы

@Korguv · Регистрация: 16.09.2019

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

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

Имеется Форма для создания новых записей в Access 2016. Состоит из основной части и подчинённой формы в табличном виде.
Формы создают новые связанные записи в двух прикреплённых таблицах.
Задача внесение записи в третью таблицу со значением двух столбцов взятых из подчинённой формы.
Попытался добиться решения при помощи такого запроса:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim db As DAO.Database
 Dim rt As DAO.Recordset
Set db = CurrentDb
Set rt = db.OpenRecordset("MOOVE")
    rt.AddNew
    rt!PRODUCT = Me.PRODUCT
    rt!PRODUCT_DATE = Date
    rt!ADD_QUANTITY = "0"
    rt!PRODUCT_PRAYS = "0"
    rt!ID_PROJECT = Me.ID_PROJECT
    rt!MOOVE_STATUS = Me.MOOVE_STATUS
    rt.Close
    db.Close
Set db = Nothing
Set rt = Nothing

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

Прошу подсказать ошибку или направить в направлении другого решения.

@Eugene-LS · 23.01.2020, 17:02

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

Прошу подсказать ошибку или направить в направлении другого решения.

Пример будет - нет?
А пока:

Visual Basic
1
Dim db As DAO.Database

= лишнее
Можно проще:

Visual Basic
1
Set rt = CurrentDb.OpenRecordset("MOOVE")

@alvk · 24.01.2020, 01:40

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

лишнее

Почему? Это от истоков, 12 лет, например, я так делаю. Единственное, что библиотека DAO у меня выше стоит и я это не пишу.

Visual Basic
1
2
3
4
 Dim db As Database
 Dim rs As Recordset
 Set db = CurrentDb
 Set rs = db.OpenRecordset("блабла")

@Eugene-LS · 24.01.2020, 05:07

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

например, я так делаю

Да всё правильно, видимо дело привычки ...
Я так пишу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim rt As DAO.Recordset
    Set rt = CurrentDb.OpenRecordset("MOOVE", dbOpenDynaset)
    With rt
        .AddNew
        !PRODUCT = Me.PRODUCT
        !PRODUCT_DATE = Date
       ' ...
       .Update
    End With
    rt.Close
    Set rt = Nothing

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

@alvk · 24.01.2020, 11:56

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

у всех своя манера

Конечно, оно как научился, так и до конца. А вариантов их же масса.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/