Load & Unload пунктов меню, Палундра

[Selektor]

Ситация следующая:
После того как пользователь выбирает населенный пункт, нужно создать меню в котором будут улицы этого населенного пункта.
Создаю руками меню, делаю там один пункт с индексом 0, название mH
Затем заполняю из рекордсета.

Do While Recorset.EOF = False
Load mH(mH.Count)
mH(mH.Count - 1).Caption = Recordset![Name]
mH(mH.Count - 1).Tag = Recordset![ID]
mH(mH.Count - 1).Enabled = True
Recordset.MoveNext
Loop

С этим проблем не возникает, все впорядке. При следующем выборе населенного пункта мне нужно опять сгенерить менюшку с улицами, для этого мне нужно сначало отчистить меню от старых улиц, чтобы записть в них новые и тут:...

For c = 1 To mH.Count - 1
Unload mH(c)
Next

собственно и возникает ошибка, на унлоаде пункта меню.
Помогите решить задачу.
Вернее объясните почему Load работает а Unload нет. Если предложите начинать с конца массива пунктов меню, то это не работает, я пробовал.

[Viper]

вообще то у меня в тестовом примере все работает в любом порядке

[Selektor]

А у меня при попытке унлоада говорит "Unable to unload within this context" . Почему?

[Viper]

больше кода давай

[Selektor]

Впринципе
Private Sub Combo1_Click()
Dim c As Long
AD.OpenRecordset "SELECT ID,NAME from STREET WHERE ID_TOWN=" & Combo1.ItemData(Combo1.ListIndex) & ";", 5
'On Error Resume Next
For c = 1 To mHFile.Count - 1
mHFile(c).Enabled = False
Unload mHFile(c)
Next

Do While AD.GetRS(5).EOF = False
'MsgBox mStreets.Count
Load mHFile(mHFile.Count)
mHFile(mHFile.Count - 1).Caption = AD.GetRS(5)![Name]
'mHFile(mHFile.Count - 1).Tag = AD.GetRS(5)![ID]
mHFile(mHFile.Count - 1).Enabled = True
AD.GetRS(5).MoveNext
Loop
AD.CloseRecordset 5

ReConnectStreet
End Sub

Вот вообще весь код той процедурки, больше в программе нигде не упомянаеться эта менюшка.

[alibek]

В каком событии выгружаешь?

[Selektor]

Когда пользователь выбирает в комбобоксе пункт, соответственно Combo1_click.
Унлоадим все пункты меню кроме первого опорного.
Потом заполняем, соответсвенно из открытого рекордсета.
Закрываем реордсет.
Причем у меня прога есть в ней есть пункт история файлов, там у меня все работает нормально. Пользователь открыл файл, списочек переписался. Пользователь опять открыл файл, списочек опять переписался. Там тоже самое используеться, только тут не работает, а там работает.

[Viper]

сдается мне, что где-то получается, что происходит попытка выгрузки пункта меню из обработчика клика на этом пункте. каим-то неявным образом...

Посмотри на стек вызовов при получении ошибки

[Selektor]

Так. Так. Сейчас создал кнопку. Рядом с комбо. После того как комбо выбрал. Нажимаю кнопку с этим кодом. РАботает. Потом следующий пункт, опять кнопку. Работает. Почему?
Теперь буду изворачиваться. Всем спасибо. Решение найдено .

[GSerg]

Ещё один
А ведь было достаточно ввести в поиск (выделенный красным) номер ошибки. Но это ж сложно дюже...
http://bbs.vbstreets.ru/viewtopic.php?p=53822#53822

[Selektor]

Ещё один
А ведь было достаточно ввести в поиск (выделенный красным) номер ошибки. Но это ж сложно дюже...
http://bbs.vbstreets.ru/viewtopic.php?p=53822#53822

Извинияюсь, в следующий раз именно так и поступлю