powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Тройное выполнение кода?!?!?!? [Eval()]
19 сообщений из 19, страница 1 из 1
Тройное выполнение кода?!?!?!? [Eval()]
    #32400887
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вызываю ф-цию из ниже приведённой:
Код: plaintext
1.
2.
3.
Function tgbEnter(mForm As String, tgbName As String)
  Forms(mForm).Controls(tgbName).Value = Not Forms(mForm).Controls(tgbName).Value
  Eval ( "Forms!"  & mForm &  "."  & tgbName &  "_Click" )
End Function

И вот после этого собранная ф-я запускаеться 3 раза...
если же из формы напрямую запускать Me.tgbFilter_Click то всё пучком...

Чо там Eval химичит и можно ли с этим бороться...

А'97

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32401039
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вряд ли eval химичит скорее всего событие 3 раза случается поставь точки останова на каждую строку и смотри
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32401089
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эт я 1м делом сделал...
на входе поставил точку и на F8 прошёл всё после End Sub переходит на начало никуда не заходя...
в принципе то вызовы должны быть эквивалентены...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32401122
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я у тебя вообще не вижу end sub - вижу только End Function

если после End Function снова попадает на начало - значит второй раз случается событие
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32401189
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поясняю...
после вызова из этой ф-ии, процедуры, процедура отрабатывает 3 раза... и далее по тексту

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32401266
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если мне не изменяет память то у Гетца что-то было про этот глюк, щас книги под рукой нет, домой приду, посмотрю. Если там есть инфа по этому вопросу, то напишу.
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402147
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Kelme
буду премного благодарен

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402208
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати в старших весиях аксесса
есть callbyname
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402247
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня походу не старшая...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402308
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sfagnum cорри, я искал - но не нашёл :(
или мне это всё приснилось, или искал хреново.

надо брать помощь магистров, Владимира Саныча или ЛП :)
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402338
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А чего чуть что так сразу я?
У меня тоже три раза исполняется.
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402339
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
)

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402373
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
:))
Sfagnum:
попробуй так:
Код: plaintext
1.
2.
 dim a as Variant
  a = Eval ( "Forms!"  & mForm &  "."  & tgbName &  "_Click" )
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32402375
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Те же яйца
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32403143
Нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Драсте!
Это известный баг... Не лечится... Выходом служит статическая логическая переменная, которая обнуляется до выполнения Eval, внутри запускаемой функции выставляется в Истину и если вход в запускаемую Eval'ом функцию происходит с уже установленной в истину переменной, то простой выход из функции (игнорирование запуска).
Сам так делал и в коде других видел аналогичное...

ЛП, а ЛП, сколько у меня постов оставалось? Историю ведь режишь //придумал новый ник :)
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32403155
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А чего чуть что так сразу я?
9 осталось

Здарова кстати
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32403166
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
понятненько, спасибо... я напрямую вызвал...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32403309
Нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Угу...

ЛП, я проинтуичил: "А не 8-ли постов у тебя осталось?" "Угу" и бабац! уже еще больше :)) //я ж любя
...
Рейтинг: 0 / 0
Тройное выполнение кода?!?!?!? [Eval()]
    #32414253
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
час недоумевал я с этим Eval ... хорошо, что есть форум :)
...
Рейтинг: 0 / 0
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Тройное выполнение кода?!?!?!? [Eval()]
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]