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

Автор adi_den2013, 30 сентября 2013, 10:35

0 Пользователи и 1 гость просматривают эту тему.

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

[вложение удалено Администратором]
Яна (in real)

Hasim

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

Где искать?

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

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

adi_den2013

Цитата: Hasim от 30 сентября 2013, 09:08Так у вас же и нет документа(формы) с таким именем "Ввод м-о" !!!

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

[вложение удалено Администратором]
Яна (in real)

Hasim


adi_den2013

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

Hasim

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

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


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