--- Em ter, 9/8/11, rogerio dandrea <rolemo...@gmail.com> escreveu:
> 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.
> >
Desculpe-me, o comando está certo, analisei linha errada.
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/
