Tenho 2 tabelas PROPRIETARIOS e ANIMAIS, Por questoes de visualização de dados, não estou usando o subformulario, mas sim 2 formularios destintos, minha duvida e como passar o valor do idproprietario para tabela ANIMAL, para que ela só apresenteos animais daquele proprietario tenho uma macro que ao clicar no botão no formulario PROPRIETARIO, ela abre em outra janela o formulario animal, mas apresenta todos os registros
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 = "ANIMAL" OpenForm( getFormsTC, getConnectionTC, sFormName ) end sub
