---------- 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 -----------------------------------------
