ник: Gologramma
Здравствуйте! Может у кого-нибудь есть пример того, как реализовать в форме продажу товара? Как я пыталась сделать: подчиненна таблица, в ней поле со списком-выбираются товары, когда выбрал-атоматически ставится его цена.прописывается количество. считается стоимость.
но у меня получалось либо ввести только однозначение товара, либо вся таблица заполнялась одним и тем же..
сейчас пытаюсь сделать с временной таблицей, но не получается внести данные туда.
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-сама база