Как осуществить проверку?

[justas1507]

Здравствуйте!
Помогите пожалуйста.
Есть 2 таблицы - 1ая список продуктов на складе, 2ая список транзакций (которые осусществляются с этими продуктами). Идея заключется в том чтобы после ввода транзакции в форму, связанную с таблицей 2, проверялось наличие продукта из таблицы 1. т.е. у меня есть 10 едениц продукта. Я ввожу транзакцию - извлечь 12 едениц, происходит проверка (до того как обновляется форма), и если количество которое требуется извлечь больше количества которое есть на складе выдается сообщение об ошибке с указанием доступного количества, и предлагается ввести транзакцию повторно. Если все в порядке, то к количеству на складе отнимается или прибавляется количество продукта из транзакции.

[Woodlin]

justas1507, думаю лучше всего для Ваших целей подойдёт Recordset. Он позволяет находить записи в таблице, извлекать значения, редактировать их.

[justas1507]

Хотелось бы хоть какой-то пример...Хоть самый простой... Я в VBA не силен

[Woodlin]

Dim rst As DAO.Recordset
Dim str As String

'Строка запроса, который извлекает из Таблица1 два поля записи товара, условие отбора совпадение НаименованиеТовара и _
НаименованиеТовара_Проверка (может быть значение поля формы с наименованием Forms!ИмяФормы!ИмяКонтрола)

str = "SELECT НаименваниеТовара, Количество FROM Таблица1 WHERE НаименваниеТовара = '" & НаименованиеТовара_Проверка & "'"

'Открываем рекордсет, источником записей служит приведенный выше запрос
Set rst = CurrentDb.OpenRecordset(str, dbOpenDynaset)
If rst.RecordCount = 0 Then ' записей 0 - такого товара в таблица1 нет
     MsgBox "Товар не найден."
Else
     rst.MoveFirst  'необязательная строка
     If rst!Количество < Транзакция Then ' Транзакция - количество запрашиваемого товара
          MsgBox "Закатай губу, на складе нет столько товара!"
     Else 
           'Количество товара на складе достаточное
           rst.Edit
           rst!Количество=rst!Количество - Транзакция
           rst.Update
     End If
End If

В приведенном примере извлечение необходимой записи из Таблица1 происходит по названию товара, и если название в таблице дублируется,пример будет работать некорректно. Лучше извлекать по значению поля типа счетчик, тогда условие будет таким:

... WHERE Счетчик = " & Значение_Счетчик

[gluk_fm]

А ещё лучше выложить пример, как по мне так что-то в примере перемудрили и всё должно быть намного проще. и зачем там перебор строк? Я так думаю что всё можно сократить до:
str = "Запрос с гркпировкой товара, условием отбора и сумированием остатков"
if str<[forms]![name fortm]![name pole] then
msgbox ("Введённое количество превышает остатки на складе. Остатки на складе составляют : " & str)
end if

и будет Вам счастье

[Woodlin]

gluk_fm, насколько я понял автор хочет не только проверять количество товара на складе, но и добавлять или отнимать. Потому и такой пример.

[justas1507]

Спасибо большое всем кто откликнулся... А как насчет примера? Я имею ввиду фаил с примером... Я понимаю что все должно работать, а вот как-то не получается...

[Woodlin]

justas1507, что именно не получается?

Лучше выложите свой пример.

[justas1507]

Ну, вот как-то так... При вводе количества товара в форму, проверяется количество данного товара, если его достаточно, то происходит транзакция, т.е. из обсщего количества отнимается количество транзакции...
И еще пару вопросов вдогонку: как сделать чтобы при определенном сочетании клавиш, открывалась форма? Т.е. я нажимаю допустим ... и из любого места программы открывается, ну к примеру, моя форма?
И второй вопрос: Есть кнопка, при нажитии которой открывается форма, в режиме добавления новой записи. Вопрос в том как сделать, чтобы после нажатия кнопки, одному из полей присваивалось бы определенное значение из формы, на которой расположена кнопка? Т.е. На форме Продукт есть кнопка транзакция. При нажатии на нее я перехожу на форму Транзакция, но в поле Продукт, уже вбито название продукта, и мне остается вбить только количество, дату и т.д.
Понимаю, что скорее всего ничего сложного здесь нет, но вот как-то не выходит... Буду признателен за помощь...

[Teslenko_EA]

Здравствуйте justas1507.
Ваша конструкция предназначена для обработки записей в таблице (ввода, редактирования).
Как можно решать эту задачу Вы увидите в образце.
Термин "..ввожу транзакцию.." мало подходит,
т.к. транзакцией называется набор последовательных операций...,
а в Вашей конструкции планируется выполнение одного действия.
Евгений.