Ajuda base

oswaldosiqueira
(usa Outra)

Enviado em 05/04/2016 - 17:51h

Boa tarde.

Ao executar esse código no libreoffice base, o mesmo me tras a seguinte mensagem de erro:

Erro na sintaxe do BASIC.
Function não permitido dentro de um procedimento.

Estou aprendendo a mexer agora com o BASE e, nao sei como acertar isso. Podem me ajudar, por favor?

REM ***** BASIC *****

Sub Main
Function OpenForm (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"
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end Function
end Sub

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

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

sub abrirformulario( oev as variant )
sFormName = "FORMALUNO"
OpenForm( getFormsTC, getConnectionTC, sFormName )
end sub

End Sub

É um simples código para um botão abrir um formulário. caso exista outra solução que faça a mesma coisa, por favor, indiquem-me.

Obrigado!!