Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Почему не срабатывает Me.Visible = False ?
 
 автор: GNatochka   (16.11.2006 в 13:31)   личное сообщение
 
 

Помогите пожалуйста, есть форма открывающаяся при загрузке приложения, на нее навешаны определение глобальных переменных проверка подключения и все такое прочее ... в том числе и проверка к какой именно базе подключено (архивная или актуальная/рабочая) если к рабочей, то нужно сделать форму невидимой, если архивная - видимой и всплывающей (что б постоянно видно было что с архивом работают)

If CheckLinksBaseName(BaseName) = False Then
Me.Visible = True
Else
Me.Visible = False
End If

только вот не хочет она невидимой становится :( ни в какую :(

  Ответить  
 
 автор: KrukVN   (16.11.2006 в 13:35)   личное сообщение
 
 

молча не хочет, или чего говорит?
а условие отрабатывает нормально?
а просто Me.Visible = False срабатывает? (без условия)

  Ответить  
 
 автор: Explorer   (16.11.2006 в 13:46)   личное сообщение
 
 

а чего он тут мог бы сказать и по какому поводу?

  Ответить  
 
 автор: osmor   (16.11.2006 в 13:36)   личное сообщение
 
 

проверьте что возвращает CheckLinksBaseName
попробуйте так

If Not CheckLinksBaseName(BaseName)  Then

  Ответить  
 
 автор: GNatochka   (16.11.2006 в 15:17)   личное сообщение
 
 

проходилась отладчиком!!!
переходит на
Me.Visible = False
не ругаясь по F8 переходит дальше ... смотрю значение - False ... но !!!! она видна по прежнему :(

  Ответить  
 
 автор: KrukVN   (16.11.2006 в 15:21)   личное сообщение
 
 

В каком событии это все прописано?

  Ответить  
 
 автор: osmor   (17.11.2006 в 10:27)   личное сообщение
 
 

Вместо Gnatochka, у нее доступа к сайту почему-то нет
Прописано было на событие Load.
На Load действительно не скрывает, (у меня тоже ... )
решили так:


Private Sub Form_Load()
Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()
If Me.TimerInterval <> 0 Then Me.TimerInterval = 0
Me.Visible = Not CheckLinksBaseName(..............)
End Sub

Всем спасибо!

  Ответить  
 
 автор: Explorer   (16.11.2006 в 13:40)   личное сообщение
 
 

а может это CheckLinksBaseName(BaseName) не принимает значения True или с аргументом BaseName косяк - по такому короткому куску сложно судить

PS

значем вы все эти громоздкие конструкции с ифами и элсами громоздите

Me.Visible = Not CheckLinksBaseName(BaseName)

ЗЫ added

"громоздкие конструкции громоздите" - это я что-то громоздкое загромоздил... ну да ладно - править не буду

  Ответить  
 
 автор: V.Kim   (24.11.2006 в 10:26)   личное сообщение
 
 

а не проще ли
DoCmd.OpenForm "StartForm", acNormal, "", "", , acHidden

  Ответить  
 
 автор: osmor   (24.11.2006 в 10:48)   личное сообщение
 
 

ну возможно так и нужно было сделать, открывать как скрытую, а потом,если нужно, проявлять. Но поскольку всех тонкостей задачи мы не знаем, а вопрос был "скрыть" , то ....

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList