Recomendo ativar o depurador adicionando um break point no começo da função que está dando erro (consulte a ajuda, procurando por "breakpoint", "debug", etc.)
Já vou adiantando: trata-se de uma função que faltou um (ou mais) argumento(s). Em 26 de fevereiro de 2010 14:23, rogerio dandrea <[email protected]>escreveu: > ---------- Mensagem encaminhada ---------- > De: rogerio dandrea <[email protected]> > Data: 26 de fevereiro de 2010 14:22 > Assunto: macro para abrir formulario > Para: [email protected] > > > Estou tentando fazer um botão, que quando precionado abre um outro > formulario, achei e modifiquei um pouco para o meu caso o macro abaixo, mas > esta dando erro > > Erro em tempo de conexão do BASIC > o argumento não é opcional > ------------------------------------------------------- > 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 > > 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 = "ControleVacina" > OpenForm( getFormsTC, getConnectionTC, sFormName ) > end sub > ----------------------------------------- > -- Juari Ritter Müller - [email protected] (41)9638-7931
