[Résolu] Zone de texte "recherche" dans un formulaire
Publié : 02 oct. 2018 12:28
Bonjour,
Ma base se compose d'une liste de référence. Je souhaite créer un formulaire dans lequel je pourrais écrire une référence dans une zone de texte, afin d'afficher les lignes de productions sur lesquelles ladite référence est installée.
Voici la capture d'écran de mon formulaire. Actuellement je ne peux que faire défiler les enregistrements quand en réalité je voudrais pouvoir écrire directement la référence qui m’intéresse. J'espère que quelqu'un saura me guider.
Edit : J'ai trouvé la solution sur ce fil https://forum.openoffice.org/fr/forum/v ... 29&t=14662#. J'ai utilisé un bouton avec la macro suivante que j'ai adapté à mon cas :
Désormais je souhaite créer un sous-formulaire qui m'affichera le stock de la référence recherchée. Est-ce que je dois ajouter du code à ma macro PysRechercher sur le même principe que pour l'affichage des lignes de productions ou créer un nouveau bouton et une nouvelle macro. Eclairez-moi s'il vous plait je suis perdu.
Edit2:
J'y suis finalement parvenu seul. Il suffisait de modifier la requête sous propriétés du formulaire > Données > Contenu et la recopier dans la macro en faisant attention aux cotes. Je n'ai finalement pas eu recours à un sous-formulaire.
Ma base se compose d'une liste de référence. Je souhaite créer un formulaire dans lequel je pourrais écrire une référence dans une zone de texte, afin d'afficher les lignes de productions sur lesquelles ladite référence est installée.
Voici la capture d'écran de mon formulaire. Actuellement je ne peux que faire défiler les enregistrements quand en réalité je voudrais pouvoir écrire directement la référence qui m’intéresse. J'espère que quelqu'un saura me guider.
Edit : J'ai trouvé la solution sur ce fil https://forum.openoffice.org/fr/forum/v ... 29&t=14662#. J'ai utilisé un bouton avec la macro suivante que j'ai adapté à mon cas :
Code : Tout sélectionner
Sub PysRechercher()
dim PysTexte as string, PysForm as object
dim PysSQL as string
PysForm = thisComponent.DrawPage.Forms.getByName("Standard") 'Accès au formulaire
PysTexte = PysForm.getByName("TextBox").Text 'Accès au texte de la zone
'SELECT * FROM "T_FILM" WHERE "film_nom" LIKE '%Ram%'
'Concaténation avec le choix fait dans la liste
PysSQL = "SELECT * FROM T_FILM WHERE film_nom LIKE '%" + PysTexte + "%'"
PysForm.command = PysSQL 'Redéfinition de la source du formulaire
PysForm.reload 'Recharge le formulaire
End SubEdit2:
J'y suis finalement parvenu seul. Il suffisait de modifier la requête sous propriétés du formulaire > Données > Contenu et la recopier dans la macro en faisant attention aux cotes. Je n'ai finalement pas eu recours à un sous-formulaire.
La modération vous a écrit: Les icônes mises à votre disposition ont une signification précise sur ce forum.
Veuillez consulter ce fil pour en savoir plus : http://user.services.openoffice.org/fr/ ... c3299.html