Oi, foi o que eu pensei a principio, por isto mandei inprimir a variavel
fnome, e aparentemente esta em ordem gerando por exemplo:
entrando com R, imprimira
Nome LIKE'R*'
REM PARA FILTRAR todos os registros com campo Nome que começem pela letra R
Em 9 de agosto de 2011 12:13, Osvaldo Kussama
<osvaldo_kuss...@yahoo.com.br>escreveu:
>
>
> --- 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/
>
>
--
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/
