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