Abrir formulários dentro de um formulário no base

editar

Cria o botão. Vai em Eventos: aprovar ação e nele, vai seguindo o caminho da macro até encontrar a macro que você fez para abrir o subformulário. No meu caso, meu subformulário teve o nome de FCadastroGeral e esse é, também, parte do nome de minha macro.

    REM BASIC
function OpenForm1( formContainer as variant, oConnection as variant, sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm1 = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end function

function getFormsTC() as variant
getFormsTC = thisComponent.Parent.getFormDocuments
end function

function getConnectionTC() as variant
getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection
end function

sub OpenForm_FCadastroGeral( oev as variant )
sFormName = "frm_CadastroGeral"
OpenForm1( getFormsTC, getConnectionTC, sFormName )
end sub