[pt-br-usuarios] [base] filtros

Alguem tem algum exemplo simplesr 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

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