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

--- Em ter, 9/8/11, rogerio dandrea <rolemosda@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_kussama@yahoo.com.br>escreveu:
>
> > --- 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.


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