[libreoffice-users] (help macro base)Open form with a button form another form with filter

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+help@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