При выборе элемента "Изменить..." , он очищает список и пишет туда другие месяца ...
После этого список должен открыться ...
- Код: Выделить всё
Private Sub Month_Order_Add_Change()
If (Month_Order_Add.Text = "Изменить...") Then
Month_Order_Add.Clear
For i = 1 To 12
If (i <> 7) And (i <> 8) Then
Month_Order_Add.AddItem MonthName(i)
End If
Next
End if
End Sub
Когда я в конце пишу Month_Order_Add.DropDown , оно срабатывает, т.е. открывается, но сразу же пропадает т.к. срабатывает событие Change.
Вообщем тут надо где-то ставить булевские переменные и преждевременный выход из процедуры, но что-то я так и не сделал =(
