Access + VBA: итоговая сумма по подчиненной форме

@vit-271 · Регистрация: 08.08.2011

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

Привет всем форумчанам и гуру в VBA + Access, кто сможет подсказать и помочь много тем не охота создавать.

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

@Capi · 14.01.2018, 15:05

Сообщение от vit-271

на главной форме есть надпись

Visual Basic
1
Parent!Надпись139.Caption = Me.Suma_pocheku

@vit-271 · 14.01.2018, 15:56 **[ТС]**

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

Parent!Надпись139.Caption = Me.Suma_pocheku

Спасибо сроботало то что хотел.

Добавлено через 45 минут
есть ещё один вопрос как обратится с одной подченёной формы к другой подченёной? заранее большое спасибо

@Capi · 14.01.2018, 16:17

Сообщение от vit-271

как обратится с одной подченёной формы к другой подченёной?

Эти подчиненные формы принадлежат одной основной форме?
На одном уровне находятся?

Если да, то так, например:

Visual Basic
1
Parent!ДругаяПодчФорма.Поле

@vit-271 · 14.01.2018, 19:36 **[ТС]**

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

Parent!ДругаяПодчФорма.Поле

да фомы находятся на одном уровне мне нужно с одной подчинёной записать во вторую.

mobile · 14.01.2018, 19:41

Сообщение от vit-271

да фомы находятся на одном уровне мне нужно с одной подчинёной записать во вторую.

Visual Basic
1
Me.Parent!ДругаяПодформа!ПолеДругойПодформы=Me.ПолеПодформы

Добавлено через 1 минуту
Если кнопка переноса данных в главной форме, то так

Visual Basic
1
Me.ДругаяПодформа!ПолеДругойПодформы=Me.ПерваяПодформа!ПолеПервойПодформы

@vit-271 · 14.01.2018, 23:46 **[ТС]**

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

Me.ДругаяПодформа!ПолеДругойПодформы=Me. ПерваяПодформа!ПолеПервойПодформы

Спасибо большое

Добавлено через 17 минут
Значенее передаётся, а обновляться не хочет при смене номера чека, что здесть не так сума по чеку обновляеться а надпись и поле во второй форме, нет как это того достичь ? заранее большое спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_AfterUpdate()
         
        Dim SunNak
        Dim it
        it = Me.ID_tovar
       
        Me.Recalc
        Me.Parent!Надпись140.Caption = Me.Suma_pocheku & "  " & "Грн."
        Me.Parent!Nakladna_FR!Поле23 = Me.Suma_pocheku
        Me.Parent!Suma_PoCek = Me.Suma_pocheku
        
        
        Me.Recordset.FindFirst "ID_tovar=" & it
        Me.Parent.Form.Dirty = False
       
End Sub

Добавлено через 3 часа 0 минут
возник другой вопрос, кому не трудно как в єтой

Visual Basic
1
2
3
Public Function SumNak(ID_Chek, Cena)
                  SumNak = DSum("Cena", "tovar_tb")
End Function

нужно что бы сума слажувалась только где все одинаеовые ID_Chek Буду благодарен за подсказку

итог должен быть как в этом завросе

SQL
1
2
3
SELECT tovar_tb.ID_Chek, SUM(tovar_tb.Cena) AS [Sum-Cena]
FROM cek INNER JOIN tovar_tb ON cek.ID_Cek = tovar_tb.ID_Chek
GROUP BY tovar_tb.ID_Chek;

mobile · 14.01.2018, 23:57

Visual Basic
1
2
3
Public Function SumNak(ID_Chek, Cena)
         SumNak = DSum("Cena", "tovar_tb", "ID_Chek=" & ID_Chek)
End Function

@vit-271 · 15.01.2018, 00:08 **[ТС]**

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

SumNak = DSum("Cena", "tovar_tb", "ID_Chek=" & ID_Chek)

Большое спасибо, сори что на доедаю но только время появилось по в access по по тренироваться

@vit-271 · 16.01.2018, 23:49 **[ТС]**

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

@alvk · 17.01.2018, 04:56

не в товарах должен быть ключ чека, а в чеках ключ товара. Иначе получается, что у вас только один чек можно выставить на один товар, т.е. типа аукциона, товар штучный и видимо представляет огромную ценность

далее, что за монстр такой накладнаячек? полунал\полубезнал ? биткоин шоле?

@vit-271 · 17.01.2018, 21:53 **[ТС]**

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

не в товарах должен быть ключ чека, а в чеках ключ товара. Иначе получается, что у вас только один чек можно выставить на один товар, т.е. типа аукциона, товар штучный и видимо представляет огромную ценность
далее, что за монстр такой накладная?чек? полунал\полубезнал ? биткоин шоле?

чек один который для отчёта
в нем общая сумма и количество каждого товара, но к данной дате нужно ещё и общую сумму накладных, а в один день может быть несколько накладных.

Добавлено через 5 часов 37 минут
чек один который для отчёта
в нем общая сумма и количество каждого товара, но к данной дате нужно ещё и общую сумму накладных, а в один день может быть несколько накладных.

@alvk · 18.01.2018, 03:54

взаимодействие чеков и товаров тогда так:

@vit-271 · 18.01.2018, 12:19 **[ТС]**

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

Тип файла: rar Чеки_товары.rar (35.1 Кб, 0 просмотров)

спасибо большое но не много мне не подходит, мне болие подходит такая схема, так как чек и накладние в одной дате. У меня возник другой вопрос примпер приложил мне сейчас нужно что бы общая сума с накладных через запрос добовлялась, или изминялась в главной таблици. буду очень благодарен за помощь.

@vit-271 · 18.01.2018, 22:50 **[ТС]**

Кто подскажет почему я не могу добавить новую запись в обвед'ную форму пример прилогаю ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО

@vit-271 · 19.01.2018, 21:10 **[ТС]**

Всем привет, кто подскажет как реализовать даный код

Visual Basic
1
2
3
Public Function OstayaSuma()
         OstayaSuma = DSum("Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek) & " " & "Грн"
End Function

с помощу аргумента, до этого участка получается передать "Suma_Naklad", "nakladni_tb", "idCek=" а дальше не как не пожучаеться & Forms!cek!ID_Cek критерий не как не могу передать как это всё реализовать ? всем большое спасибо заранее.

@Eugene-LS · 20.01.2018, 05:46

Сообщение от vit-271

Кто подскажет почему я не могу добавить новую запись в обвед'ную форму

Связь подчинённки с главной не правильная, ("замкнута" сама на себя).
Исправленный вариант:

@Eugene-LS · 20.01.2018, 05:55

Сообщение от vit-271

с помощу аргумента, до этого участка получается передать "Suma_Naklad", "nakladni_tb", "idCek=" а дальше не как не пожучаеться & Forms!cek!ID_Cek критерий не как не могу передать как это всё реализовать ? всем большое спасибо заранее.

Ничего не понял.
Приведённый код работает и сумму считает (если данные есть).
Думаю, лучше так:

Visual Basic
1
2
3
4
5
Public Function OstayaSuma() As String
    OstayaSuma = DSum("Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek)
    If IsNull(OstayaSuma) Then OstayaSuma = 0
    OstayaSuma = OstayaSuma & " " & "Грн"
End Function

@vit-271 · 20.01.2018, 11:26 **[ТС]**

Сапсибо большое но только где была ошибка не нашол, где она была замкнута сама на себя?

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

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

1
Public Function OstayaSuma() As String
OstayaSuma = DSum("Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek)
If IsNull(OstayaSuma) Then OstayaSuma = 0
OstayaSuma = OstayaSuma & " " & "Грн"
End Function

Что бы это всё перебать в аргументе "Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek как это выполнить ?

@Eugene-LS · 20.01.2018, 11:42

Сообщение от vit-271

но только где была ошибка не нашол, где она была замкнута сама на себя?

Посмотрите источник записей подчинённой формы (в вашей версии) а потом поля связи подчинёнки с главной ...
Там: И главное и подчинённое = "ID_Cek" !!!

@Eugene-LS · 20.01.2018, 11:43

Сообщение от vit-271

Что бы это всё перебать в аргументе "Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek как это выполнить ?

Что значит термин "Всё" - не понял вопроса.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 146
	16.01.2018, 23:49 [ТС]
	Примветствую форумцане подскажите правильную структуру к этой схеме, вопрос такой что в 1 -м по дате может быть несколько накладных, дата чека и накладной одна и тажемне но мне нужно общую сума по накладным вывести на форму и при смене даты на форме что бы менялась общая сума по накданим но при этом и чек тойже дате также должен быть и меняться наименование товара, накладные можно вносить в другую форму но только что бы запись в форме соответствувага тойже дате . Буду очень благодарен. Миниатюры 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	17.01.2018, 04:56
	не в товарах должен быть ключ чека, а в чеках ключ товара. Иначе получается, что у вас только один чек можно выставить на один товар, т.е. типа аукциона, товар штучный и видимо представляет огромную ценность далее, что за монстр такой накладнаячек? полунал\полубезнал ? биткоин шоле? 0