--- Em ter, 9/8/11, rogerio dandrea <rolemo...@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+h...@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
usuarios+unsubscr...@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
