Задача такая:
если в текстбоксе txt1 значение<>1, то листбокс spisok1 недоступен.
Проблема в том, что когда меняется значение в txt1 на =1, то никак не могу сделать spisok1 доступным.

пардон, забыла access 2002 mdb

GeoА как недоступным делаешь?
при получении фокуса листбоксом проверяю iif-ом какое стоит значение в текстбоксе и в зависимости от этого делаю листбокс доступным или нет.
А вот что делать потом- незнаю, то есть не получается вернуть листбокс в доступное значение из недоступного

Geo и Владимир Саныч, что-то я вас не поняла... :-( Я восклицательный знак сама не использую, если только кто даёт их в конкретном совете.
Но в любом случае я свою проблему решила при помощи НаборВладок0_Change() , поскольку мои боксы находятся на разных вкладках:

Private Sub НаборВладок0_Change()

If Nz(pOborudID.Value, -1) = 9 Then
spKompSistBl.Enabled = True
spKompPO.Enabled = True
spKompSistBl.Requery
spKompPO.Requery
Else
If НаборВладок.Value = 2 Then
spKompSistBl.Enabled = False

End If
If НаборВладок0.Value = 3 Then
spKompPO.Enabled = False

End If
End If

End Sub


Атеперь подскажите пожалуйста, что можно сделать, чтобы при использовании этого Change форма не дёргалась.. Надерное нужно что-то типа таймера.

гео

Кстати, а что приведенный код делать должен. И почему на OnChange?
на форме 4 вкладки. Первоначально я хотела, чтобы только при выборе опред. оборудования на вкладке №2 были доступны 2 последних вкладки. Из-за того, что зверски дрожит форма пришлось отказаться и делать доступными опред. элементы управления.

Geo ГалкаИз-за того, что зверски дрожит форма пришлось отказаться и делать доступными опред. элементы управления.
Пусть так, но ведь если где-то делать элементы недоступными, надо где-то делать их доступными обратно.



в приведённом мною выше коде всё и работает нормально. Я задала второй вопрос по поводу того, что хочу чтобы при использовании этого Change форма не дёргалась

Geo2 ВС
Рано пока тут такие замудреные оптимизации давать :)

умничать можно до бесконечности, тем более, что за помощью к вам обращаются, именно по причине вашей продвинутости. От конструкции IIF отказалась, по причине того, что почему-то он не сработал. Сделала так, как смогла. Но все предложения рассмотрю с удовольствием.

GeoТы не поверишь, но у меня никакие формы не дергаются.

Давай так с тобой договоримся: ты положишь сюда форму с дергающимися вкладками без ничего лишнего (первый топик, пункт 5), а я (если не уеду сейчас, то через минут через 5-10, иначе ближе к вечеру) скажу, как можно сделать, чтобы не моргало?


форма очень большая и надо долго разбираться чтобы достать нужное. (таблицы линкуются на SQL-сервер)

GeoИзвиняюсь, если где-то наумничал. Хотел, как проще, а вышло как всегда. :(

Я хочу поставить акцент на то, что проблемы с подёргиванием появились, когда поставила НаборВладок0_Change()
При переключении вкладок (смотрела процессы на sql-сервере) никаких событий не происходит, а форма дёргается. До применения этого ченджа всё было нормально. Хотела узнать, может кто-то сталкивался с такой-же фигнёй :-)

FinansА если не Change, а AfterUpdate ?

у НабораВкладок нет такого события

Geoзы. а это зачем?

spKompSistBl.Requery
spKompPO.Requery

если у оборудования есть компоненты, то данные листбокса должны обновиться

FinansНе у набора вкладок, а у текстбокса. А Windows не XP?
xp

FinansВозможно, если отключить темы XP, то дергаться перестанет. У меня дергается, например, при движении курсора по Label, расположенному поверх рисунков. Сейчас точно не помню, но вроде бы если поэкпериментировать с заливкой рисунков мерцания можно избежать.

не помогло..
остаётся только минимизировать количество событий:(

FinansДергается когда? При вводе текста в текстбокс?
А задачу решила?

немного наврала: при переходе из закладки в закладку на пару мгновений мерцает курсор и на месте листбоксов на мгновенье появляется белое пятно.

в принципе это терпимо...но ... хочется чтоб этого не было.. :-))
мне было очень интересно: можно ли как-нить "замораживать" изображение перед открытием нужной вкладки.
Это наверное мои реквери так "грузят форму". Но без них- никак :-(

Finans
А пример не подходит?
на сколько я правильно поняла это надо поствавить до и после реквери?
если так- то не прошло...
мне пора убегать. Буду пробовать в понедельник.

Большое всем спасибо! Приятных выходныч! :-)

sraider Владимир Саныч
Предложение по оптимизации:


Тогда уж так:


при пустых значениях ваш вариант не подходит

вот что у меня было:
если при использовании Private Sub НаборВкладок0_Change() ставить хоть одно реквери, то при переходе из вкладки во вкладку подёргивался курсор и бликовало изображение. Этого удалось избежать повесив обработку события на ВЫХОД из саб формы принадлежащей текущей вкладке.

Private Sub FrmSub_Exit(Cancel As Integer)

If Nz(pOborudID.Value, -1) <> 9 And НаборВкладок0.Value = 1 Then Exit Sub

sp1.Requery
sp2.Requery


End Sub