Перенос записей из подчиненной формы в поле Memo

@anklbenz · Регистрация: 21.12.2012

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

Есть главная форма "Заказ" и подчиненная форма с "состав заказа".
там к номеру заказа присвоены несколько строк с позициями заказа

мне нужно данные из "состав заказа" построчно записать в поле Memo

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

Не знаю синтаксис для этого цикла

Понимаю что Нужна переменная Recordset в которую загрузить "состав заказа"
дальше не пойму как перебрать записи именно по нужному заказу (какое условие для цикла)

Visual Basic
1
2
3
4
Dim tbl1 As Recordset
Set tbl1 = CurrentDb.OpenRecordset("Состав_заказа", dbOpenDynaset)
 
Do While tbl1.EOF = False

подскажите плиз

@Eugene-LS · 20.08.2019, 00:02

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

записей не всегда одинаковое количество

Не может быть!
Ну тогда это всё очень усложняет!

как их все занести в мемо

Я не знаю.
Оптимальный вариант зависит от конкретики, но он вам видимо и не нужен.
Думаю, вы так ... просто попечатать зашли.

@anklbenz · 20.08.2019, 00:07 **[ТС]**

Eugene-LS, ааа вы имеете ввиду функцию Dlookup в запросе Select заменить.

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

@Eugene-LS · 20.08.2019, 00:12

anklbenz, поясню вам свою точку зрения:
Насколько я понял, вы хотите простое готовое решение своей задачки, а сами даже пример поленились опубликовать.
Несколько форумчан пытались вам подсказать - безрезультатно.
Вот пошла вторая страница вашего топика - а результата всё нет...

Пример в студию!

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

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

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

Можно и так - тут множество вариантов решения - все рабочие ...

@Capi · 20.08.2019, 00:15

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

почему то ругается на "наименование"

Что за термин "ругается" ?

Приведите текст сообщения.

Добавлено через 49 секунд

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

безрезультатно

Ошибаетесь.
Тему смотрели?

Добавлено через 54 секунды

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

Вот пошла вторая страница вашего топика - а результата всё нет

Читать нужно внимательней.

@Eugene-LS · 20.08.2019, 00:16

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

Ошибаетесь.
Тему смотрели?

Конечно я ошибаюсь!
И конечно не смотрел!
Спасибо вам огромное. Пошел читать тему "Внимательней" ...

@anklbenz · 20.08.2019, 00:26 **[ТС]**

Capi,

Что за термин "ругается" ?
Приведите текст сообщения.

ошибка на фото

@Capi · 20.08.2019, 00:38

И при чем тут Наименование?

Это ошибка компиляции, даже не выполнения.
Сообщение говорит о том, что ожидается окончание выражения (потому что это окончание обнаружено из-за кавычек), но выражение, вопреки этому, продолжается.

Удваивать кавычки внутри текстовой строки кто будет?

Visual Basic
1
.Open "SELECT chr(13) & chr(10), DLookUp(""Наименование"", ""Католог_Товаров"", ""КодТовара ="" & КодТовара), количество FROM ЗаказанныеТовары WHERE Ном Заказа=30841", CurrentProject.Connection, 3, 3

Не по теме:

Каталог

@anklbenz · 20.08.2019, 02:05 **[ТС]**

Capi, Capi, ошибка исчезла но и столбец этот не печатает
печатает только количество

1;
2;
1;

Добавлено через 36 минут
Столбец наименования, я имею ввиду

@Capi · 20.08.2019, 02:06

На это ответить не могу.
Я ведь не знаю, верно ли указаны в команде имена и тому подобное.
Если все верно, должно выводить.

Кстати, можно немного упростить код - вынести chr(13) & chr(10) из запроса в getstring.
А точку с запятой ("; ") из getstring убрать.

Visual Basic
1
2
3
4
5
...................
.Open "SELECT .... FROM ..... WHERE ...", CurrentProject.Connection, 3, 3
...................
My_Memo = .getstring(, , , Chr(13) & Chr(10))
...................

@alvk · 20.08.2019, 13:11

Тема - гадание на кофейной гуще

@anklbenz · 20.08.2019, 17:32 **[ТС]**

Capi,

На это ответить не могу.
Я ведь не знаю, верно ли указаны в команде имена и тому подобное.
Если все верно, должно выводить.

ошибку нашел! название таблицы было с пробелом.
я подумал что нужно подчеркивание т.к. пробел
убрал подчеркивание зараболтало !!! огромное спасибо!

SQL
1
 ""Католог Товаров"",

@Capi · 20.08.2019, 17:35

anklbenz,

Пожалуйста.

Но имен с пробелами лучше не иметь.
Можно, например, так: КаталогТоваров.

@anklbenz · 20.08.2019, 17:53 **[ТС]**

.Capi,
последнее по этой конструкции, наверное -
как правильно передать по запросу - номер заказа

SQL
1
2
...
WHERE НомерЗаказа=30841...

пробовал НомерЗаказа= & НомерЗаказа
в кавычках без кавычек всегда компилируется ошибка

Добавлено через 46 секунд
Capi,

Но имен с пробелами лучше не иметь.

понял - уже исправляю

@Capi · 20.08.2019, 18:13

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

пробовал НомерЗаказа= & НомерЗаказа
в кавычках без кавычек всегда компилируется ошибка

Зачем здесь амперсанд?
Вот так в запросе нужно:

SQL
1
WHERE НомерЗаказа=30841

Но Вы приводите вместо полных конструкций какие-то огрызки, по ним не понять, где конкретно применяете WHERE НомерЗаказа=30841.
Возможны варианты. Где-то так нужно, а где-то иначе.

@anklbenz · 20.08.2019, 19:34 **[ТС]**

Capi, это в запросе Который вы мне сбросили.

Visual Basic
1
.Open "SELECT chr(13) & chr(10), DLookUp(""Наименование"", ""Католог Товаров"", "“КодТовара ="" & КодТовара), количество FROM ЗаказанныеТовары WHERE Ном Заказа=[B][U]30841[/U][/B]", CurrentProject.Connection, 3, 3

@Capi · 20.08.2019, 20:50

anklbenz,

Так:

Visual Basic
1
.Open "SELECT DLookUp(""Наименование"", ""Католог Товаров"", "“КодТовара ="" & КодТовара), количество FROM ЗаказанныеТовары WHERE НомерЗаказа=30841", CurrentProject.Connection, 3, 3

1) chr(13) & chr(10) убрала отсюда (см. рекомендацию выше #29).
2) имя действительно Ном Заказа (с пробелом) ?
Тогда его нужно заключать в квадратные скобки [Ном Заказа].

@anklbenz · 20.08.2019, 21:52 **[ТС]**

Capi,

2) имя действительно Ном Заказа

нет там "НомерЗаказа" это из-за кодировки при копировании в форум не пропечаталось

1) chr(13) & chr(10) убрала отсюда (см. рекомендацию выше #29)

руки еще не дошли, обязательно исправлю

Добавлено через 18 минут
"НомерЗаказа" это переменная Int.
я номер заказа НомерЗаказа=30841, поставил чтоб проверить как будет работать

@Capi · 20.08.2019, 21:57

Номерзаказа" это переменная

Это как понимать?
Если спрашиваете, ставьте вопросительный знак. Трудно, что ли?
Если сообщаете, делайте это яснее. Ничего не понимаю, что за переменная.

*это из-за кодировки при копировании в форум не пропечаталось

Что это за фантастическая кодировка, съедающая "ер" ?
Объясните, пожалуйста.

@anklbenz · 20.08.2019, 22:20 **[ТС]**

Capi,
мне в запрос который вы мне помогли создать:

SQL
1
.Open "SELECT DLookUp(""Наименование"", ""Католог Товаров"", "“КодТовара ="" & КодТовара), количество FROM ЗаказанныеТовары WHERE НомерЗаказа=30841", CurrentProject.Connection, 3, 3

нужно передавать текущий номер заказа.
Я первоначально просто поставил НомерЗаказа=30841, чтобы разобраться в общем с конструкцией запроса.
т.е вместо цифры 30841 нужно подставлять номер текущего заказа - типа Int.

как не пытаюсь это сделать не получается пытался:

НомерЗаказа= НомерЗаказа

потом переменную Integer Завел:

Visual Basic
1
I = НомерЗаказа

(Отладчике переменная I номер заказа получает)

пытаюсь ее предать запросу

SQL
1
...WHERE НомерЗаказа= I...

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

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

Что это за фантастическая кодировка, съедающая "ер" ?
Объясните, пожалуйста.

когда копирую из Access'а
получается вот так

SQL
1
.Open "SELECT chr(13) & chr(10), DLookUp(""Íàèìåíîâàíèå"", ""Êàòîëîã Òîâàðîâ"", ""ÊîäÒîâàðà = "" & ÊîäÒîâàðà), êîëè÷åñòâî FROM ÇàêàçàííûåÒîâàðû WHERE ÍîìåðÇàêàçà = I, CurrentProject.Connection, 3, 3"

приходится менять кодировку чтобы не переписывать все переменные вручную

@Capi · 20.08.2019, 22:31

В самом первом варианте было показно:

Visual Basic
1
WHERE НомерЗаказа=" & НужныйНомерЗаказа, CurrentProject.Connection, 3, 3

Вместо НужныйНомерЗаказа укажите свою переменную или имя поля.

Добавлено через 6 минут
Чтобы из VBA нормально скопировать текст, содержащий кириллицу,
нужно перед копированием переключиться на русскую раскладку клавиатуры.
И ничего не будет съедаться.

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов 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й колонке просто выдумал. . Это. . .

@anklbenz 8 / 8 / 4 Регистрация: 21.12.2012 Сообщений: 121
	20.08.2019, 00:07 [ТС]
	Eugene-LS, ааа вы имеете ввиду функцию Dlookup в запросе Select заменить. я подумал вы предложили обойтись вовсе без запроса, и все данные взять из формы (думаю как это возможно) 0

@anklbenz 8 / 8 / 4 Регистрация: 21.12.2012 Сообщений: 121
	20.08.2019, 02:05 [ТС]
	Capi, Capi, ошибка исчезла но и столбец этот не печатает печатает только количество 1; 2; 1; Добавлено через 36 минут Столбец наименования, я имею ввиду 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	20.08.2019, 13:11
	Тема - гадание на кофейной гуще 1

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	20.08.2019, 17:35
	anklbenz, Пожалуйста. Но имен с пробелами лучше не иметь. Можно, например, так: КаталогТоваров. 0

Перенос записей из подчиненной формы в поле Memo

Решение