Pantera3587
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Star Ik
Привет. Послала тебе сообщение с прикрепленной базой, дай знать о получении. У меня снова скопились вопросы. Если базу опять не получится получить, то вот какие вопросы, можно на примере той базы, которую ты мне прислал.
Только для начала нужно дополнительно сделать таблицу Заказы (КодЗаказ, Артикул, Наименование, Цена, Количество, №Договора, ДатаОформления, Месяц, Год, Сотрудник, Клиент). В таблицу Подбор добавить поле Количество. Сделать запрос на добавление на основе таблицы Подбор и добавлять данные в таблицу Заказы. Сделать таблицу, например , Оформление (Код, Сотрудник, Клиент, ДатаОформления, Месяц, Год) и на основе этой таблицы сделать форму Оформление, куда ввести все поля. В форме сделать кнопку КнОформление, а в форме ПодборТовара - кнопку В заказы (кнЗаказы) и еще в список Подбор добавить поле Количество.
Если нажать на кнопку В заказы, должна открываться форма Оформление, далее (вопросы),
1. например в форму вносятся данные: сотрудник, клиент и т.д. и нажимается кнопка КнОформление и вот что должно происходить: внесенные данные из этой формы должны добавиться в таблицу Заказы для всех уже добавленных данных из таблицы Подбор, т.е. мы как бы формируем заказ. В принципе в своей базе я использовала тот же код, что и для добавления из одного списка в другой, только вместо ADDNEW использовала команду EDIT, но при этом данные добавляются, но только в одну первую строчку, а в остальные нет.
2. Еще в форму ПодборТовара нужно вставить элемент Поле (Кол), внося в это поле любую цифру она должна изменять в списке Подбор поле Количество, либо щелкая по любому наименованию в списке Товар, сколько нажатий, такое и количество. А еще около этого элемента может быть расположен элемент типа Счетчика, который бы изменял цифра в поле Кол. Только такого элемента почему то нет в Access, но есть в Excel. У меня была сделана форма в Excel, где был вставлен элемент TextBox, кнопка CommandButton и элемент
SpinButton. А код был такой:
Private Sub OKButton_Click()
If CStr(SpinButton1.Value) = TextBox1.Text Then
ActiveCell = SpinButton1.Value
Unload Me
Else
MsgBox "Неправильный ввод", vbCritical
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
Dim Новое_значение As Variant
Новое_значение = Val(TextBox1.Text)
If Новое_значение >= SpinButton1.Min And _
Новое_значение <= SpinButton1.Max Then _
SpinButton1.Value = Новое_значение
End Sub
Может поможешь в решении этих вопросов? Жду ответа. |
Сервис -> Параметры запуска -> Заголовок приложения. И что-нибудь исконно русское, в пику дядюшке Биллу.