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

@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

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

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

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

Блоги программистов
Обновление сайта 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 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@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