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+h...@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
