Ограничение на ввод из другой таблицы

@TopolM · Регистрация: 31.03.2013

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

Всем доброго времени суток!)
Столкнулся с такой проблемой, Имеется форма заказы, в не находятся поля Итоговая цена и Кол-во штук,я хочу сделать так чтоб в поле кол-во штук нельзя было бы ввести значение больше, чем в таблице Продукция. Наличие на складе(и желательно вывести сообщение о нарушении), а в итоговую цену поместить значение [Кол-во штук]*Продукция. [Цена]. Не могу разобраться, как это сделать, пытался при помощи создания запросов но работало не так-как хотелось бы, да и сообщение не выводилось при нарушении=\
Прилагаю файлы

@ltv_1953 · 14.04.2013, 06:45

Посмотрите тему, где эта проблема решелалсь Проверка остатков и вывод ошибки.

@TopolM · 14.04.2013, 14:22 **[ТС]**

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

Посмотрите тему, где эта проблема решелалсь Проверка остатков и вывод ошибки.

А других вариантов проверки нету?, а то там всё смутно как-то работает, как бы создаётся новый отчёт но он не отображается, да и логика условий странная (мне кажется условия ошибочные).

@TopolM · 14.04.2013, 19:02 **[ТС]**

Я посидел - подумал, и решил создать запросы для контроля, Запросы:Остатки -который выполняет операция расчёта остатка, от кол.ва на складе и значения на кол.ва штук в заказе, но проблема в том что я могу уходить в минус.Пытался при помощи стандартных средств Access установить значение для поля Кол-во прод, Формы Заказы,значение не превышающие содержимое поля Остатки(Запроса остатки), но запрос при отображение как бы не имеет поля, вообщем я настолько запутался, что уже запросы зацикливаю

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

@minob · 14.04.2013, 19:56

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

Столкнулся с такой проблемой, Имеется форма заказы, в не находятся поля Итоговая цена и Кол-во штук,я хочу сделать так чтоб в поле кол-во штук нельзя было бы ввести значение больше, чем в таблице Продукция. Наличие на складе(и желательно вывести сообщение о нарушении), а в итоговую цену поместить значение [Кол-во штук]*Продукция. [Цена].

Поля [Кол-во штук] не нашел, решил, мто это поле [Кол-во прод]
Поместите данный код в модуль формы

Кликните здесь для просмотра всего текста

Visual Basic

Option Explicit
 
Dim IdOld, NumOld, IdNew, NumNew
 
Private Sub Form_AfterDelConfirm(Status As Integer)
  If Status = acDeleteOK Then
    CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
              NumNew & " WHERE Код_продук=" & IdNew
  End If
End Sub
 
Private Sub Form_AfterUpdate()
  If Not (IdOld = IdNew And NumOld = NumNew) Then
    CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
              IIf(IdOld = IdNew, NumOld, 0) - NumNew & " WHERE Код_продук=" & IdNew
    If (Not (IdOld = IdNew)) And Len(IdOld & "") > 0 Then
      CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
                         NumOld & " WHERE Код_продук=" & IdOld
    End If
  End If
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim NumWarehouse&
  If IsNull(Me!Код_заказа) Or IsNull(Me!id_продукции) Then
    MsgBox "Заполните поле id_продукции"
    Cancel = True
  ElseIf Nz(Me![Кол-во прод], 0) <= 0 Then
    MsgBox "Заполните поле Кол-во прод"
    Cancel = True
  Else
    IdOld = Me!id_продукции.OldValue
    NumOld = Nz(Me![Кол-во прод].OldValue, 0)
    IdNew = Me!id_продукции.Value
    NumNew = Me![Кол-во прод].Value
    NumWarehouse = DLookup("[Наличие на складе]", "Продукция", "Код_продук=" & IdNew)
    If NumWarehouse - NumNew + IIf(IdOld = IdNew, NumOld, 0) < 0 Then
      MsgBox "Затребованное количество продукции превышает наличие на складе"
      Cancel = True
    End If
  End If
  If Not Cancel Then Me![Итоговая цена] = Me![Итог цена]
End Sub
 
Private Sub Form_Delete(Cancel As Integer)
  IdNew = Me!id_продукции.Value
  NumNew = Me![Кол-во прод].Value
End Sub

Для того, чтобы заполнялось поле Итоговая цена в табл. Заказы, сделайте следующее:
1) Переименуйте существующее поле формы Итоговая цена в Итог цена
2) Измените его свойство Данные на
=[Кол-во прод]*DLookUp("Цена";"Продукция";"[Код_продук]=" & Nz([id_продукции];0))
3) Создайте скрытое (свойство "Вывод на экран" - Нет) поле с именем Итоговая цена и свойством Данные Итоговая цена.

Кроме проверки наличия количества затребованной продукции на складе, после сохранения записи, корректируется количество продукции на складе. Последнее действие выполняется также и при удалении записи. По поводу работоспособности кода при удалении рекомендую почитать в справке о событиях «Удаление» (Delete), «До подтверждения Del» (BeforeDelConfirm), «После подтверждения Del» (AfterDelConfirm).

Во многопользовательской среде могут быть накладки.

А вообще-то нужно делать, примерно, так:
Иметь приход, расход и некорректируемые начальные остатки на складе, например, результаты некой инвентаризации. На основании этих данных запросом/ами вычислять остатки.

@TopolM · 14.04.2013, 22:55 **[ТС]**

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

Поля [Кол-во штук] не нашел, решил, мто это поле [Кол-во прод]
Поместите данный код в модуль формы

Кликните здесь для просмотра всего текста

Visual Basic

Option Explicit
 
Dim IdOld, NumOld, IdNew, NumNew
 
Private Sub Form_AfterDelConfirm(Status As Integer)
  If Status = acDeleteOK Then
    CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
              NumNew & " WHERE Код_продук=" & IdNew
  End If
End Sub
 
Private Sub Form_AfterUpdate()
  If Not (IdOld = IdNew And NumOld = NumNew) Then
    CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
              IIf(IdOld = IdNew, NumOld, 0) - NumNew & " WHERE Код_продук=" & IdNew
    If (Not (IdOld = IdNew)) And Len(IdOld & "") > 0 Then
      CurrentDb.Execute "UPDATE Продукция SET [Наличие на складе]= [Наличие на складе]+" & _
                         NumOld & " WHERE Код_продук=" & IdOld
    End If
  End If
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim NumWarehouse&
  If IsNull(Me!Код_заказа) Or IsNull(Me!id_продукции) Then
    MsgBox "Заполните поле id_продукции"
    Cancel = True
  ElseIf Nz(Me![Кол-во прод], 0) <= 0 Then
    MsgBox "Заполните поле Кол-во прод"
    Cancel = True
  Else
    IdOld = Me!id_продукции.OldValue
    NumOld = Nz(Me![Кол-во прод].OldValue, 0)
    IdNew = Me!id_продукции.Value
    NumNew = Me![Кол-во прод].Value
    NumWarehouse = DLookup("[Наличие на складе]", "Продукция", "Код_продук=" & IdNew)
    If NumWarehouse - NumNew + IIf(IdOld = IdNew, NumOld, 0) < 0 Then
      MsgBox "Затребованное количество продукции превышает наличие на складе"
      Cancel = True
    End If
  End If
  If Not Cancel Then Me![Итоговая цена] = Me![Итог цена]
End Sub
 
Private Sub Form_Delete(Cancel As Integer)
  IdNew = Me!id_продукции.Value
  NumNew = Me![Кол-во прод].Value
End Sub

Для того, чтобы заполнялось поле Итоговая цена в табл. Заказы, сделайте следующее:
1) Переименуйте существующее поле формы Итоговая цена в Итог цена
2) Измените его свойство Данные на
=[Кол-во прод]*DLookUp("Цена";"Продукция";"[Код_продук]=" & Nz([id_продукции];0))
3) Создайте скрытое (свойство "Вывод на экран" - Нет) поле с именем Итоговая цена и свойством Данные Итоговая цена.

Кроме проверки наличия количества затребованной продукции на складе, после сохранения записи, корректируется количество продукции на складе. Последнее действие выполняется также и при удалении записи. По поводу работоспособности кода при удалении рекомендую почитать в справке о событиях «Удаление» (Delete), «До подтверждения Del» (BeforeDelConfirm), «После подтверждения Del» (AfterDelConfirm).

Во многопользовательской среде могут быть накладки.

А вообще-то нужно делать, примерно, так:
Иметь приход, расход и некорректируемые начальные остатки на складе, например, результаты некой инвентаризации. На основании этих данных запросом/ами вычислять остатки.

Огромное спасибо вам который раз, не подскажетеБ как научится всё так делать круто как вы? с чего начать нужно?

@alvk · 15.04.2013, 07:05

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

с чего начать нужно?

Кликните здесь для просмотра всего текста

хотя бы с нажатия кнопки спасибо.

Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом зад Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	14.04.2013, 06:45	2
	Посмотрите тему, где эта проблема решелалсь Проверка остатков и вывод ошибки. 1

@TopolM 13 / 13 / 2 Регистрация: 31.03.2013 Сообщений: 107
	14.04.2013, 14:22 [ТС]	3
	Сообщение от ltv_1953 Посмотрите тему, где эта проблема решелалсь Проверка остатков и вывод ошибки. А других вариантов проверки нету?, а то там всё смутно как-то работает, как бы создаётся новый отчёт но он не отображается, да и логика условий странная (мне кажется условия ошибочные). 0

@alvk 7446 / 4580 / 302 Регистрация: 12.08.2011 Сообщений: 14,280
	15.04.2013, 07:05	7
	Сообщение от TopolM с чего начать нужно? Кликните здесь для просмотра всего текста хотя бы с нажатия кнопки спасибо. 0

Опции темы