| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
cool_dude
Участник - экстремал
Вступление в Клуб: 05.02.2013
|
 Пн Апр 14, 2025 13:59 Несоответствие типа: 'call_change' |
 |
Полезность: Нет оценки
|
| Здравствуйте, уважаемые форумчане. Прошу проконсультировать в решении данной проблемы. Запускаю операцию, запускается форма. На форме после выбора из справочника, сразу выходит ошибка "В настоящий момент операция невозможна: Ошибка исполнения скрипта: Описание: Несоответствие типа: 'call_change' Источник: Ошибка выполнения Microsoft VBScript Строка: 4 Номер ошибки: 0 Код ошибки: 800A000D" Как решить? Вроде код ошибки указан, но где посмотреть описание этой ошибки? |
|
 |
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Вт Апр 15, 2025 11:09 |
|
Полезность: Нет оценки
|
| Лучше текст скрипта сюда предоставить, проще будет понять |
|
|
cool_dude
Участник - экстремал
Вступление в Клуб: 05.02.2013
|
| Вт Апр 22, 2025 14:17 |
|
Полезность: Нет оценки
|
| Volod пишет: | | Лучше текст скрипта сюда предоставить, проще будет понять |
| Код: | Public Function Main(LastControl)
if LastControl is nothing or LastControl is Text67 or LastControl is Object36 then
if Text67.Text = "A" then
Text3.BackColor = &h80000005
Text82.BackColor = &h80000005
Text83.BackColor = &h80000005
'Text84.BackColor = &h80000005
'Date4.BackColor = &h80000005
Text78.BackColor = &h00FEFBBA
Text73.ToolTipText = "Формат телефона должен быть в виде ХХХ-ХХХ-ХХХХХХ"
Text78.ToolTipText = "Формат телефона должен быть в виде ХХХ-ХХХ-ХХХХХХ"
elseif Text67.Text = "B" then
Text3.BackColor = &h00FEFBBA
Text82.BackColor = &h00FEFBBA
Text83.BackColor = &h00FEFBBA
'Text84.BackColor = &h00FEFBBA
'Date4.BackColor = &h00FEFBBA
Text78.BackColor = &h80000005
Text73.ToolTipText = "Формат телефона должен быть в виде ХХХХХХХХХХХХ"
Text78.ToolTipText = "Формат телефона должен быть в виде ХХХХХХХХХХХХ"
end if
end if
If LastControl Is Nothing Then
' Действия при загрузке формы
If V_EDITABLE.Text <> "1" then
Form1.ScriptDisableForm(Form1)
Form1.ScriptDisableForm(Form2)
Form1.ScriptDisableForm(Form3)
End If
Else
' Действия при потере фокуса валидируемого контрола LastControl
End If
Main = True 'Результат валидатора (True, False, NULL)
Execute V_VALID.Text
V_VALID.Text = ""
End Function
|
|
|
|
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Вт Апр 22, 2025 14:36 |
|
Полезность: Нет оценки
|
| Execute V_VALID.Text - что здесь? |
|
|
cool_dude
Участник - экстремал
Вступление в Клуб: 05.02.2013
|
| Вт Апр 22, 2025 14:55 |
|
Полезность: Нет оценки
|
| Volod пишет: | | Execute V_VALID.Text - что здесь? |
ничего. А что-то должно быть? |
|
|
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Вт Апр 22, 2025 14:58 |
|
Полезность: Нет оценки
|
а зачем тогда вызов? обычно в такую переменную кладут исполняемую команду на VBS в разделе Проверка
добавь отладку msgbox V_VALID.Text перед Execute V_VALID.Text - посмотри, м.б. что-то есть |
|
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
