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

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

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

Привет всем форумчанам и гуру в 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

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

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 как это выполнить ?

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

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 136
	15.01.2018, 00:08 [ТС]	28
	Сообщение от mobile SumNak = DSum("Cena", "tovar_tb", "ID_Chek=" & ID_Chek) Большое спасибо, сори что на доедаю но только время появилось по в access по по тренироваться 0

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

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

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 136
	17.01.2018, 21:53 [ТС]	31
	Сообщение от alvk не в товарах должен быть ключ чека, а в чеках ключ товара. Иначе получается, что у вас только один чек можно выставить на один товар, т.е. типа аукциона, товар штучный и видимо представляет огромную ценность далее, что за монстр такой накладная?чек? полунал\полубезнал ? биткоин шоле? чек один который для отчёта в нем общая сумма и количество каждого товара, но к данной дате нужно ещё и общую сумму накладных, а в один день может быть несколько накладных. Добавлено через 5 часов 37 минут чек один который для отчёта в нем общая сумма и количество каждого товара, но к данной дате нужно ещё и общую сумму накладных, а в один день может быть несколько накладных. 0

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 136
	20.01.2018, 11:26 [ТС]	38
	Сапсибо большое но только где была ошибка не нашол, где она была замкнута сама на себя? Добавлено через 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 как это выполнить ? 0

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 136
	14.01.2018, 15:56 [ТС]	22
	Сообщение от Capi Parent!Надпись139.Caption = Me.Suma_pocheku Спасибо сроботало то что хотел. Добавлено через 45 минут есть ещё один вопрос как обратится с одной подченёной формы к другой подченёной? заранее большое спасибо 0

@vit-271 1 / 1 / 0 Регистрация: 08.08.2011 Сообщений: 136
	14.01.2018, 19:36 [ТС]	24
	Сообщение от Capi Parent!ДругаяПодчФорма.Поле да фомы находятся на одном уровне мне нужно с одной подчинёной записать во вторую. 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	20.01.2018, 11:42	39
	Сообщение от vit-271 но только где была ошибка не нашол, где она была замкнута сама на себя? Посмотрите источник записей подчинённой формы (в вашей версии) а потом поля связи подчинёнки с главной ... Там: И главное и подчинённое = "ID_Cek" !!! Миниатюры 1

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	20.01.2018, 11:43	40
	Сообщение от vit-271 Что бы это всё перебать в аргументе "Suma_Naklad", "nakladni_tb", "idCek=" & Forms!cek!ID_Cek как это выполнить ? Что значит термин "Всё" - не понял вопроса. 1