UserForm.Show - ошибка 5825 - объект был удалён

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте, на строке
"UserForm_Настройки.Show" получаю ошибку 5825 объект был удалён, но вижу, что форма на месте, думаю может ошибка в названии формы, например в букве, со свойств формы копирую её имя вставляю и код пошёл для проверки пишу код

Visual Basic
1
If "UserForm_Настройки" <> "UserForm_Настройки" Then Beep

где вношу имя формы с ошибкой и имя формы без ошибки
сигнала не получаю, значит имя формы было указано верно
что не так? как лечить?

Добавлено через 30 минут
оказывается ничего не надо копировать и вставлять просто в процедуре

Visual Basic
1
2
3
4
5
Public Sub UserForm_Настройки_Show()
 
    UserForm_Настройки.Show
 
End Sub

на единственной строке получаю указанную ошибку 5825 объект был удалён
жму на отладку, в отладке жму Эф8 и код далее идёт!!

Сообщение от Ципихович Эндрю

что не так? как лечить?

@Апострофф · 14.01.2012, 08:04

Эндрю, чтобы убедиться в правильности написания в VB(A) достаточно нажать [Shift+F2] или ПКМ -> Definition.
А ещё можно в месте, где возникли подобные сомнения, поменять регистр у одной из букв,
например написать uSerForm_Настройки вместо UserForm_Настройки,
перейти на следущую строку, наблюдая за реакцией среды.
Ну и конечно же, Option Explicit!!!
Вопчем, непонятны Ваши танцы с Beep`ами!?

Добавлено через 29 минут
Да, ещё одна полезная фишка!
Набрав 2-3 буквы термина, жмём [Ctrl+J]. В выпавшем списке выбираем нужный.
Получаем ускорение ввода и панацею от ошибок!

@Ципихович Эндрю · 14.01.2012, 22:46 **[ТС]**

Сообщение от Ципихович Эндрю

жму на отладку, в отладке жму Эф8 и код далее идёт!!

как Вам это? получаю ошибку, ничего не меняю в пошаговом режиме код идёт дальше, в честь чего??
симптомы на работу в сети похожи, где что-то куда-то не догрузилось, но ему то надо форму показать

Сообщение от Апострофф

Option Explicit

он есть!!

Сообщение от Апострофф

Вопчем, непонятны Ваши танцы с Beep`ами!?

Бипами я проверил себя и Вам показываю, что там я заменил то что равно между собой, одним словом

Всё с начала

Сообщение от Ципихович Эндрю

в процедуре

Public Sub UserForm_Настройки_Show()
UserForm_Настройки.Show
End Sub
на единственной строке получаю указанную ошибку 5825 объект был удалён
жму на отладку, в отладке жму Эф8 и код далее идёт!!
Что не так? как лечить?

@gaw · 14.01.2012, 23:08

Не по теме:

Ципихович Эндрю, здравствуйте!
при всем уважении к Вам, (без обид)
Вы просто издеваетесь над компом

@Ципихович Эндрю · 15.01.2012, 07:22 **[ТС]**

раскроем карты, две кнопки в прилагаемом файле, одна рабочая другая при её нажатии выдаст ошибку

@Alex77755 · 15.01.2012, 07:58

Простое прохождение в пошаговом режиме показало, что дело вовсе не в форме, а в твоих вариаблес
Ты ими так увлёкся, что не хочеши посмотреть, что же вызывает ошибку
А ошибку вызывают отсутствующие:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'    If ActiveDocument.Variables("555Настройка_Пользователь").Value <> "\/" Then ComboBox1 = ActiveDocument.Variables("555Настройка_Пользователь").Value
 
    '2
'    If ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_1" Then
'        Формат_1.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_2" Then
'        Формат_2.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_3" Then
'        Формат_3.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_4" Then
'        Формат_4.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_5" Then
'        Формат_5.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_6" Then
'        Формат_6.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_7" Then
'        Формат_7.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_8" Then
'        Формат_8.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_9" Then
'        Формат_9.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_10" Then
'        Формат_10.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_11" Then
'        Формат_11.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_12" Then
'        Формат_12.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_13" Then
'        Формат_13.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_14" Then
'        Формат_14.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_15" Then
'        Формат_15.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_16" Then
'        Формат_16.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_17" Then
'        Формат_17.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_18" Then
'        Формат_18.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_19" Then
'        Формат_19.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "Формат_20" Then
'        Формат_20.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Формат_даты_календарей").Value = "\/" Then
'        Формат_1.Value = True
'    End If
 
    '3
'    If ActiveDocument.Variables("555Настройка_Установка_ссылок_после_распечатки_документа").Value = "Устанавливать" Then
'        Устанавливать.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Установка_ссылок_после_распечатки_документа").Value = "Не_устанавливать" Then
'        Не_устанавливать.Value = True
'    ElseIf ActiveDocument.Variables("555Настройка_Установка_ссылок_после_распечатки_документа").Value = "\/" Then
'        Устанавливать.Value = True
'    End If

закоментил эти строки и всё заработало

@Ципихович Эндрю · 15.01.2012, 08:06 **[ТС]**

я Вам про что толкую

Сообщение от Ципихович Эндрю

получаю ошибку, ничего не меняю в пошаговом режиме код идёт дальше, в честь чего??

что Вариаблес самостоятельно заремарчились? я про то, что если бы я понял я и сам мог бы решить это

@Alex77755 · 15.01.2012, 08:14

В пошаговом идёт до первой ошибки и вылетает.
Форма то не грузится. Вылетет на вызов процедуры. Жмешь снова F8 и всё повторяется. опять идёт до ошибки и вылетает. Закоментил строки, вызывающие ошибки и форма загрузилась

Добавлено через 3 минуты
Или поставь хотя бы

Visual Basic
1
2
Private Sub UserForm_Initialize()
On Error Resume Next

@Ципихович Эндрю · 15.01.2012, 08:15 **[ТС]**

спасибо, дальше проще

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	14.01.2012, 08:04
	Эндрю, чтобы убедиться в правильности написания в VB(A) достаточно нажать [Shift+F2] или ПКМ -> Definition. А ещё можно в месте, где возникли подобные сомнения, поменять регистр у одной из букв, например написать uSerForm_Настройки вместо UserForm_Настройки, перейти на следущую строку, наблюдая за реакцией среды. Ну и конечно же, Option Explicit!!! Вопчем, непонятны Ваши танцы с Beep`ами!? Добавлено через 29 минут Да, ещё одна полезная фишка! Набрав 2-3 буквы термина, жмём [Ctrl+J]. В выпавшем списке выбираем нужный. Получаем ускорение ввода и панацею от ошибок! 1

@gaw
	14.01.2012, 23:08
	Не по теме: Ципихович Эндрю, здравствуйте! при всем уважении к Вам, (без обид) Вы просто издеваетесь над компом 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	15.01.2012, 08:15 [ТС]
	спасибо, дальше проще 0