Re: [pt-br-usuarios] base tools - filtros em formularios base

--- Em ter, 9/8/11, rogerio dandrea <rolemosda@gmail.com> escreveu:

> Alguem tem algum exemplo simples de
> uma macro para aplicar filtro em um
> formulario, tipo todos os clientes que comecem com a letra
> R
>
> tentei com o Basetools mas não sei se esta funcionando com
> o
> libreoffice3.4.2 ou se e erro na minha macro, tambem tentei
> sem usar a
> bliblioteca do basetools, mas tambem não esta
> funcionando.
>
> ALguma luz?
>
>
> Sub New_Search(Event As Object)
> GlobalScope.BasicLibraries.
> LoadLibrary("BaseTools")
> Dim Form As object
> Dim Control As Object
> Dim nome,fnome As String
>
> If BasicLibraries.hasByName("BaseTools") Then
> BasicLibraries.LoadLibrary("BaseTools")
> End If
>
> Form=Event.Source.Model.Parent
> nome = InputBox("ENTRE COM AS INICIAIS DO NOME")
> fnome="Nome LIKE '" & nome & "*'"
> print fnome ' for test filter sintax
> OK   OK
>
>
> '11111111111111111111111111111111111 sem o basetools
> 'Form.Filter="Nome = LIKE '" & nome & "*'"
> 'Form.ApplyFilter=True
> 'Form.reload()
>
>
> '222222222222222222222222222222222  com o basetools
>  RunCmd.ApplyFilter(fnome)
>
>
> End Sub
>
> -- 


Me parece que suas aspas, simples e duplas, não estão adequadamente pareadas.

Osvaldo


-- 
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/