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