Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


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/

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.