[pt-br-usuarios] Re: [gubro-br] [base] macro aplicação de filtro em formulario

Olá Rogério,



Em 18-05-2011 17:18, rogerio dandrea escreveu:
> Estou tentando abrir um formulario ao precionar um botão em outro,
> passando a variavel cad, o formulario ate abre, mas não aplica o
> filtro, alguem podia dar um help
> codigo:
> REM  *****  BASIC  *****
> sub Main
> end sub
> 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
>   'define o filtro para achar os registros
>          sfilter = chr(34) & "Cad" & chr(34) & chr(61) & chr(34) &
> myindex & chr(34)
>          oform.filter=sFilter
>          oform.applyfilter=true
>          oform.reload 'recarrega o formulario com o filto pelo na
> teoria pois não esta funcionando
>           
> end sub
>    

Esta lista está sendo desativada. Estou te encaminhando para a lista de
usuários (em cópia). Para acompanhar as resposta favor enviar email em
branco para:

usuarios+subscribe@pt-br.libreoffice.org

Em seguida responda o email de confirmação.

Atenciosamente,

Luiz Oliveira
twitter/luizheli
identi.ca/luiggi

-- 
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/