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/