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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Parent родительской формы
 
 автор: myth   (03.11.2008 в 22:48)   личное сообщение
 
 

Как проверить существует ли Parent формы?
IsNull - не работает
Хотел сделать
 if( Form.Parent is Nothing) then exit sub  

Тоже не работает, пишет что не может к Parent обратиться.

  Ответить  
 
 автор: bellerofont   (03.11.2008 в 22:57)   личное сообщение
 
 

про обработку ошибок слышали?

  Ответить  
 
 автор: myth   (04.11.2008 в 16:52)   личное сообщение
 
 

Слышал.

 On Error goto er1
er1:


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

  Ответить  
 
 автор: Bellerofont   (04.11.2008 в 17:59)   личное сообщение
 
 

Объект не может быть Null.
Если бы вы сказали Is Nothing, я б еще мог согласится...
Но это мелочь, меня не напрягает и ошибку проверить.

  Ответить  
 
 автор: myth   (04.11.2008 в 18:10)   личное сообщение
 
 

Да какая разница! У него и Nothing нету.
Блин ну не логично же сделали! Есть объект, у него есть свойство - Parent, которое ничем не заполнено. Почему я должен помнить о том что именно для этого случая мне нужно обрабатывать ошипки, а не проверить на is nothing или is NULL?
Изврат полный блин

  Ответить  
 
 автор: П.Полиграфович   (04.11.2008 в 18:18)   личное сообщение
 
 

Если родит. объект существует , т.е. имеем дело с доч. формой и => objForm.Parent Is Nothing = false, то ф-ия SubForm вернёт True по условию Not:

Private Function SubForm(objForm As Object) As Boolean
    On Error Resume Next
    SubForm = Not objForm.Parent Is Nothing
End Function

Не моё - АВТОР АлексейЕ
Вообще у вас тоже самое.. проверяете на TRUE/False (а не NULL)

  Ответить  
 
 автор: myth   (04.11.2008 в 18:30)   личное сообщение
 
 


Public Sub Form_Load()
If (Parent Is Nothing) Then Exit Sub
Parent!IsFindRecors.Visible = False

Вот это не работает!


Public Sub Form_Load()
If (IsNull(Parent)) Then Exit Sub
Parent!IsFindRecors.Visible = False


И это тоже.
Что делать?

  Ответить  
 
 автор: myth   (04.11.2008 в 19:35)   личное сообщение
 
 

Вобщем забил, с этой кривизной блин.... В vb все не как у людей
Сделал просто обработку ошибок, как и посоветовали выше.

  Ответить  
 
 автор: П.Полиграфович   (05.11.2008 в 18:19)   личное сообщение
 
 

Не пробовали с Me.Parent или Me!Parent ?

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