my macro dont apply filter why?
GLOBAL myindex as integer sub pega( oev as variant ) dim odoc,oform,sfilter odoc=thiscomponent oform=odoc.drawpage.forms.getbyindex(0) 'pega o dado da primeira linha(=index =campo Cad no meu caso) do registro atual myindex=oform.getstring(1) ThisDatabaseDocument.FormDocuments.getByName( "animal3" ).open odoc=thiscomponent oform=odoc.drawpage.forms.getbyindex(0) 'define o filtro para achar os registros sfilter = chr(34) & "Cad" & chr(34) & chr(61) & myindex print sfilter oform.filter = sfilter oform.applyfilter= True oform.reload ' recarrega o formulario com o filtro pelo na teoria pois não esta funcionando 'reload the form with the filter apply dont work end sub -- Unsubscribe instructions: E-mail to users+h...@global.libreoffice.org Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted