|
|
|
| Здравствуйте! Может у кого-нибудь есть пример того, как реализовать в форме продажу товара? Как я пыталась сделать: подчиненна таблица, в ней поле со списком-выбираются товары, когда выбрал-атоматически ставится его цена.прописывается количество. считается стоимость.
но у меня получалось либо ввести только однозначение товара, либо вся таблица заполнялась одним и тем же..
сейчас пытаюсь сделать с временной таблицей, но не получается внести данные туда.
Private Sub Артикул_AfterUpdate()
Dim strSQL As String
Dim strSQL2 As String
strSQL = " INSERT INTO TblTemp ( Артикул, Цена ) " & _
" SELECT Артикул, Цена " & _
" FROM [Запрос на лекарства]" & _
" WHERE [Запрос на лекарства].[Артикул]='" & Me!Артикул & "'"
' Заносим данные во временную таблицу
CurrentProject.Connection.Execute (strSQL)
Me.Артикул.Requery 'Отображаем список внесенных ИП
Me.Цена.Requery
End Sub
CurrentProject.Connection.Execute (strSQL) - вот здесь ошибка(несоответствие типов данных в условиях отбора)
как должно быть? может есть другой способ!???
Заранее спасибо..
http://zalil.ru/33199920-сама база | |
|
| |
|
|
|
| должна быть табла куда заносим данные о каждой продаваемой партии (чеке), т.е. аналог приход - расход.
а в качестве ввода нужно воспользоваться событием дабл клик на "Названии"
- открыть форму КАТАЛОГ лекарст (мадально)
- отработать на ней далб клик - можно значение кода лекарства присвоить глобальной переменной,
закрыть каталог
рисвоить текущему полю Наименование значение Глобальной переменной. | |
|
| |