GoodFellow
Дата: 21.02.2008 14:03:58
Всем привет.
Хочу создать форму для быстрого обновления цен. Не могу понять как создавать обработчики событий. Самостоятельо создал поля формы а связать их не могу с помощью макросов. Нужно, чтобы при указнии производителя в поле Производители, в поле Группа указывались все группы товаров этого производителя представленные в БД, а после указания группы в подчиненной форме указывались все товары по этйо группе с возможностью обновления.
Смю. прилж. фаил.
GoodFellow
Дата: 22.02.2008 11:32:07
Спасибо вам!
У меня только 1 вопрос...а где в коде определена переменная oldChast?
Option Compare Database
Private oldChast As Long
Private Sub Form_Load()
If Not IsNull(Me.ПолеСоСписком7.Value) Then
i = Me.ПолеСоСписком7.Value
Me.ПолеСоСписком133.RowSource = "Запрос1"
Me.ПолеСоСписком133.Enabled = True
Else
Me.ПолеСоСписком133.Value = Null
Me.ПолеСоСписком133.Enabled = False
End If
End Sub
Private Sub ПолеСоСписком7_AfterUpdate()
Dim i As Long
If Not IsNull(Me.ПолеСоСписком7.Value) Then
i = Me.ПолеСоСписком7.Value
If oldChast <> i Then
Me.ПолеСоСписком133.RowSource = "Запрос1"
Me.ПолеСоСписком133.Enabled = True
Me.ПолеСоСписком133.Value = Null
End If
Else
Me.ПолеСоСписком133.Value = Null
Me.ПолеСоСписком133.Enabled = False
End If
End Sub