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 [email protected]
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
