Pantera3587
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Star Ik
К тебе еще вопрос. Делаю две таблицы Товар1(КодТовар1, Наименование1, Цена1), Товар2 (КодТовар2, Наименование2, Цена2). Делаю третью таблицу Подбор (КодПодбор, Наименование, ЦенаПодбор). Делаю форму, в которой два списка: СписокТовар1 и СписокПодбор. В общем использую также как и впредыдущем вопросе принцип: при двойном щелчке из одного списка добавляю данные в другой список, т.е. из СписокТовар1 в СписокПодбор. Только теперь хочу, чтобы добавлялось два поля Наименование1 и Цена1. Пишу тот же код:
Private Sub Form_Open(Cancel As Integer)
СписокПодбор.RowSource = "SELECT [Подбор].[Наименование], [Подбор].[ЦенаПодбор]FROM [Подбор]"
End Sub
Private Sub СписокТовар1_DblClick(Cancel As Integer)
Dim База1 As Object, Подбор As Object
Set База1 = CurrentDb
Set Подбор = База1.OpenRecordset("Подбор")
Подбор.AddNew
Подбор![Наименование] = СписокТовар1
Подбор![ЦенаПодбор] = СписокТовар1
Подбор.Update
СписокПодбор.Requery
СписокПодбор = СписокТовар1
Подбор.Close
Set База1 = Nothing
End Sub
да в свойстве СписокТовар1 в строке Источник строк стоит
SELECT Товар1.Наименование1, Товар1.Цена1 FROM Товар1;
присоединенный столбец 1
в свойстве СписокПодбор в строке Источник строк:
SELECT [Подбор].[Наименование], [Подбор].[ЦенаПодбор] FROM [Подбор];
присоединенный столбец 1
При пробе выдает Ошибка преобразования данных и выделяет строку
Подбор![ЦенаПодбор] = СписокТовар1
Убираешь эту строку, добавляется только наименование. а нужно, чтобы добавилось и наименование и цена. Как правильно исправить код?
Второй вопрос. Есть еще таблица Товар2. Как можно сделать, чтобы выделив в СпискеПодбор какое-нибудь наименование, заменить его на наименование из таблицы Товар2. Может быть сделать кнопку Заменить, при нажатии на которую открывался бы список СписокТовар2. А дальше должно быть выделено наименование из СпискаПодбор, затем выделяется наименование из СпискаТовар2 и при его выделении должна произойти замена. Как это можно осуществить?
Добавлено:
Еще один вопрос. Как импортировать с интеренета какой-нибудь прайс сразу в базу. Возможно ли такое?. Может кто приведет пример? |
