[РЕШЕНО] Вызов подчиненной формы из главной

[adi_den2013]

Макрос на вызываемую форму выдает ошибку: Не найден документ "Ввод м-о". Главная форма кнопка "Ввод данных по мемориальным ордерам"

Где искать?

Sub Vvod_mo( oEvent as variant )
  OpenForm(oEvent, "Ввод м-о")
End sub

Sub OpenForm( oEvent as variant, aFormName as string) as variant
 Dim args(1) As New com.sun.star.beans.PropertyValue
 Dim container as variant
 Dim oCon

 oCon =  oEvent.Source.Model.Parent.ActiveConnection
 container = oCon.Parent.DatabaseDocument.FormDocuments

 args(0).Name = "ActiveConnection"
 args(0).Value = oCon
 args(1).Name = "OpenMode"
 args(1).Value = "open"
 container.loadComponentFromURL(aFormName,"_blank",0,args())
End Sub

[вложение удалено Администратором]

[Hasim]

Макрос на вызываемую форму выдает ошибку: Не найден документ "Ввод м-о". Главная форма кнопка "Ввод данных по мемориальным ордерам"

Где искать?

Так у вас же и нет документа(формы) с таким именем "Ввод м-о" !!!
Как можно найти то, чего нет?

Просто будьте внимательнее к тому, что пишете.

[adi_den2013]

Так у вас же и нет документа(формы) с таким именем "Ввод м-о" !!!

Нет? 
А это тогда что?

[вложение удалено Администратором]

[Hasim]

Это "Ввод данных по ордерам" !!!

[adi_den2013]

Спасибо. Я думала, что это название формы в навигаторе форм  - "Ввод м-о".

[Hasim]

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

PS. Ну, может и не совсем дурацких.
В том смысле, что на основную форму можно поместить несколько "подформ" с разными именами.
Т.е., то,что вы считаете названием основной формы, есть на самом деле название одной из "подформ".


[вложение удалено Администратором]