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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Как вы обходите...
 
 автор: SONAR   (22.12.2010 в 16:29)   личное сообщение
 
 

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

Есть форма, с подчиненной формой, на ресайзинг повешен следующий примитивный кодец:

Private Sub Form_Resize()
Me.Sfrm_Messeg.Width = Me.WindowWidth - 250
Me.Sfrm_Messeg.Height = Me.WindowHeight - 1350
End Sub

Ну, в общем, мол при изменении размеров основной формы, изменяется размер и подчиненной.
но вот трабла, при сворачивании окна, не прилично матюгается, типа того, что мол: энтот елемент управления или подчиненная хформа НУ УЖ НИ КАК не могут быть размещенны в энтом месте....

Шо куда воткнуть в коде, чтобы обойти эту траблу.

Спасибы.

  Ответить  
 
 автор: Дядя Федор   (22.12.2010 в 16:44)   личное сообщение
 
 


Private Sub Form_Resize()
On error goto err1
Me.Sfrm_Messeg.Width = Me.WindowWidth - 250
Me.Sfrm_Messeg.Height = Me.WindowHeight - 1350
exit sub
err1:
'msgbox err.description - это закомментируем
err.clear 'вместо обрвботки - очистим ошибку
End Sub


Типа не обрабатывать ошибку. Но куда у тебя все переместиться - тут уж извини.

  Ответить  
 
 автор: SONAR   (22.12.2010 в 16:57)   личное сообщение
 
 


Типа не обрабатывать ошибку. Но куда у тебя все переместиться - тут уж извини.



ага, проверил, работает чудесно, ни куда ни чего не перемещается, всё возвращается на круги своя...

Спасибки агромные.

  Ответить  
 
 автор: Дядя Федор   (22.12.2010 в 17:01)   личное сообщение
 
 

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