powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
12 сообщений из 12, страница 1 из 1
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878625
Ребята, помогите! проблема такая: имеются две таблицы Договор(Номер, Контрагент...) и СоставДоговора(Номер, Услуга...), связанные отношением один-ко-многим по полю Номер. Например
табл. Договор: 36 Контрагент1

табл. СоставДоговора: 36 вода
36 кислород
36 электроэнергия

Нужна форма для просмотра информации по договорам в таком виде:

36 Контрагент1 вода, кислород, электроэнергия
т.е. в форме должно вывестись выражение, равное "сумме" всех значений поля Услуга из табл СоставДоговора, относящихся к данному номеру договора, причем форма ленточная, для вывода всех записей Договора.
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878645
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что, поле Услуга текстовое?
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878869
Да текстовое, в том то и проблемка, как просуммировать числовое я знаю.
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878884
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
val(s) - это число.
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878921
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Внутренний голос мне подсказывает, что под словом "сумма" подразумевается конкатенация строк.
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878932
Твой внутренний голос прав, это именно конкатенация, просто это слово постоянно вылетает у меня из памяти, т.е. задача стоит так: найти конкатенацию значений одного поля из нескольких строк таблицы. Логику этого я понимаю, у меня не хватает знаний по VBA, т е как это правильно записать?
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878940
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1) В коде перебором строк и слиянием в результирующую строку - очень легко.

2) В самом запросе средствами SQL - муторно и сложно, причем надо будет сочинять отдельную конструкцию для каждой последующей строки из подчиненной таблицы.

Был бы SQL сервер, можно было бы с курсором написать так же легко как (1).

Может плюнуть и оставить набор строчек в форме/отчете в виде подчиненного контрола ?
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878948
Программист-Любитель1) В коде перебором строк и слиянием в результирующую строку - очень легко.

Ты прав, наверное, это очень легко, если знать язык, но у меня с этим большие проблемы: объявляем переменную, вначале пустая. Затем цикл, в ходе которого к ней и "цепляем" значение поля, затем след. запись, пока не конец. А вот как это на VBA-то написать? Помоги, если нетрудно, пожалуйста!
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878952
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для этого книжку открыть нужно однако или примеры посмотреть
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878956
Alexey ShДля этого книжку открыть нужно однако или примеры посмотреть

Была бы книжка, я бы никого беспокоить не стала, я вообще-то самоучка, т е учусь исключительно по книжкам и примерам, просто я попала сейчас в ситуацию, когда книжки недоступны (бывает и такое!), а в примерах мне подобное не попадалось.
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878987
scoritt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
public function SMRY(id as long) as string
 dim rst as new adodb.recordset
 SMRY=""
 rst.open "SELECT * FROM СоставДоговора WHERE Номер=" & id
 do while rst.eof=false
   SMRY=SMRY & rst("Услуга")
   rst.movenext
 loop
 rst.close
end function

Эта функция при передачи ей номера договора будет возвращать строку с услугами. Код понятен?
...
Рейтинг: 0 / 0
в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
    #32878990
Большое спасибо! :-)))) Код понятен.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / в форме нужно вывести выражение, равное "сумме" всех значений текстового поля
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]