Bonjour. C’est une question de débutant… Sur Lo 7.0.3.1 utilisant le moteur HSQLDB ,
J’ai recopié une macro qui me paraissait sympa. Comment réaliser un filtre alphabétique par bouton ? - The Document Foundation Wiki
option explicit
Sub PysFiltrer(oEvent)
dim oParent as object, oUnCtrl as object
oParent = oEvent.Source.Model.Parent
for each oUnCtrl in oParent
if left(oUnCtrl.name, 3) = "Btn" and oUnCtrl.name <> oEvent.Source.Model.Name then
oUnCtrl.State = 0
end if
next oUnCtrl
select case oEvent.Source.Model.Name
case "BtnTout"
oParent.Command = "SELECT * FROM ""RECETTES"" ORDER BY ""Recette"" ASC"
case else
oParent.Command = "SELECT * FROM ""RECETTES"" WHERE ""Recette"" LIKE '" & right(oEvent.Source.Model.Name,1) & "%'" & _
"ORDER BY ""Recette"" ASC"
end select
oParent.reload
End Sub
Mais maintenant j’ai un message d’erreur qui s’affiche. Comment peut-on remédier à ça ?
Impossible de charger le contenu des données. /builddir/build/BUILD/libreoffice-7.0.3.1/connectivity/source/commontools/dbtools.cxx:75
EDIT: Je n’utilise pas la base jointe au wiki car je ne la connais pas.
Je viens de trouver un bouton pour tester les macros. Je bute à la ligne 7: oParent = oEvent.Source.Model.Parent
Erreur d’exécution BASIC.L’argument n’est pas facultatif.
