Provavelmente foi um bug do programa, pois inicialmente fiz a macro no formulario A e depois mudei de ideia e utilizei a macro no formulario B, ai deu este erro(o que não era para acontecer acho eu.) Bom apaguei o botão, repeti o procedimento no proprio formulario e funcionou.
Alias esta parte de navegação esta bem confusa no Base, ao ponto de ter que fazer uma macro para uma função de já devia ser incorporada ao programa. Quem sabe nas proximas versões. Em 26 de fevereiro de 2010 23:23, Juari Muller <[email protected]> escreveu: > 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 >
