Avendo l'esigenza di ricercare uno o più articoli in maniera rapida per vedere ad esempio il prezzo, si può fare un formulario come quello qui sotto, dove inserendo un valore nel campo per Descrizione e/o nel campo per ArtId si visualizzano solo i record relativi, come nella seconda immagine.
Il tipo di ricerca può essere modificato, in questo caso il campo Descrizione viene ricercato come %condizione%, e lo stesso il campo ArtId.
La macro che aggiorna il filtro del formulario è la seguente:
REM ***** BASIC *****
Sub FiltraDati
Dim Form As Object
Form = ThisComponent.DrawPage.Forms.getByName("Standard")
oCond = Form.getByName("Articolo")
articolo = oCond.text()
oCond1 = Form.getByName("ArtId")
artid = oCond1.text()
Form.Filter = "descrizione LIKE '%" + articolo + "%' AND ArtId LIKE '%" + artid + "%'"
Form.reload()
End Sub
e deve essere assegnata all'evento Testo modificato in entrambi i campi di testo.
Contatti, suggerimenti e, perché no, segnalazioni di errori: egio@tuxfamily.org
© 2008 Sergio Corato: tutti i documenti di questo sito sono rilasciati con licenza LGPL v. 2.1 o successiva.
Ultima modifica:
