| |
|
|
| | Подскажите, как определить является ли открытая форма подчиненной в данный момент, и если да, то получить ее полное имя... | |
| |
| |
| |
|
|
| | Попробовать получить свойство Parent | |
| |
| |
| |
|
|
| | Докладываю:
получаю имя главной формы (пока экспериментирую)
Dim pm As String
pm = Me.Parent.Name
Debug.Print pm
|
Если форма открыта как подчиненная - все в прядке.
Если форма открыта не как подчиненная - ругается на "недопустимую ссылку на свойство Parent "
Поятное дело, что делаю что-то не так.
Памагите ))) | |
| |
| |
| |
|
|
| | ну так все правильно, у формы открытой не как подчиненная, нет родителя
специально для таких целей есть On Error GoTo с проверкой номера возникшей ошибки | |
| |
| |
| |
|
|
| | Хорошо.
Вдогонку вопрос.
Я получил имя родителя.
Теперь мне нужно сформировать полное имя формы для использования в такой конструкции:
Dim s As Form
Set s = Forms(ПолноеИмяФормы)
|
Как правильно сформировать такое имя?
Стандартное обращение ИмяРодителя!ИмяФормы - не работает. Ругается. что не может найти такую форму.
Возможно, что я намудрил и в такой конструкции нельзя использовать такой формат имени или вообще нельзя обратиться в такой конструкции к подчиненной форме? | |
| |
| |
| |
|
|
| |
Set frm = Forms![Главная]![Подчиненная].Form
или
Set frm = Forms("Главная").Controls("Подчиненная").Form
|
| |
| |
| |
| |
|
|
| | Работает.
Спасибо!
 | |
| |
| |
