[libreoffice-users] BaseTools Extension

BaseTools Extension  works in libreoffice 3.4.2?

I have a problem with filter in base ,
I need an example of form filter macro
1 and 2 dont work

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
'Form.Filter="Nome = LIKE '" & nome & "*'"
'Form.ApplyFilter=True
'Form.reload()


'222222222222222222222222222222222
 RunCmd.ApplyFilter(fnome)


End Sub

-- 
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted