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




--- Em ter, 9/8/11, rogerio dandrea <rolemosda@gmail.com> escreveu:

Oi, foi o que eu pensei a principio,
por isto mandei inprimir a variavel
fnome, e aparentemente esta em ordem gerando por exemplo:
entrando com  R, imprimira

Nome LIKE'R*'

REM PARA FILTRAR todos os registros com campo Nome 
que começem pela letra R

Em 9 de agosto de 2011 12:13, Osvaldo Kussama
<osvaldo_kussama@yahoo.com.br>escreveu:



--- Em ter, 9/8/11, rogerio dandrea <rolemosda@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.



Desculpe-me, o comando está certo, analisei  linha errada.

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