 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
2 messages in org.openoffice.fr.progRE : [prog] Base-Recherche d'un enreg...| From | Sent On | Attachments |
|---|---|---|
| MORTEVEILLE Roselyne - DDE 44/GER/Voies Rapides | Nov 3, 2006 6:39 am | |
| nico...@interim-nation.fr | Nov 6, 2006 8:58 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | RE : [prog] Base-Recherche d'un enregistrement dans une table | Actions... |
|---|---|---|
| From: | nico...@interim-nation.fr (nico...@interim-nation.fr) | |
| Date: | Nov 6, 2006 8:58:48 am | |
| List: | org.openoffice.fr.prog | |
A priori je suis pas un pro , Bernard te renseignera sans doute mieux que moi mais bon, je te dirai laisser un contrôle texte non associé a un champ de ta base (tu le vérifie en regardant dans donnée).
Ta macro doit sélectionner le contenu de ce contrôle et ensuite modifier la requete SQL associé a ton formulaire.
Attention il faut que le contenu de ton formulaire soit une instruction sql (propriété du formulaire via le navigateur de formulaire)
La dessus ta macro modifie l'instruction SQL du formulaire, et le recharge.
Voila le code :
sub Macro_Recherche(evt as object) dim monctrl as object,recherche as string 'le contrôle texte s'appelle ' monctrl
MonCtrl=evt.source if evt.keycode=1280 then 'ici le déclenchement de la macro est 'associé a l'appui sur la touche entrée 'du clavier, lorsque l'utilisateur est 'sur le contrôle de texte en question 'tu associe la macro a l'appuie sur une 'touche dans les prop du controle
Recherche=MonCtrl.text Recherche="'%" & Recherche &"%'"
SQL="SELECT * FROM ""Table_TRUC"" WHERE (( UCASE(""CHAMPS1"") like UCASE("+Recherche+") )
FormCV.command=SQL FormCV.reload
End if end sub
La dessus tu peux broder , en espérant que ca a pu t'aider... Nicolas
-----Message d'origine----- De : MORTEVEILLE Roselyne - DDE 44/GER/Voies Rapides [mailto:Rose...@equipement.gouv.fr] Envoyé : vendredi 3 novembre 2006 15:40 À : pr...@fr.openoffice.org Objet : [prog] Base-Recherche d'un enregistrement dans une table
Bonjour à tous,
Je cherche quelqu'un qui peut me sortir de mon problème que je n'arrive pas à résoudre. Je m'explique : J'ai une table dépendance verte dans lequel se trouve une clé "IDENTIFICATION DE LA ROUTE" (ex: 44 N0137 28+1000 28+1100) et tous les champs intéressant. J'ai créé un formulaire comment dire ? une page avec les 36 champs représentant une route. Pour permettre une recherche rapide par l'utilisateur, j'ai rajouter sur cette page un champ de texte lui permettant de saisir la route recherchée en tapant par exemple 44 N0137 28+1000 28+1100. J'espère me faire comprendre, enfin j'ai donc assigné à ce champ texte cette macro :
'Filtre de la table depverte Sub fabriqueFiltreFormulaire(oEvent As Object) Dim oDataForm As Object Dim strFiltre As String Dim strNomForm As String Dim strNomChamp As String
strNomForm = "fdepverte" 'nom donné à mon formulaire dans le navigateur de formulaire strNomChamp = "IDENTIFICATION DE LA ROUTE" 'nom du champ de ma clé dans ma table dépendance verte strNomChamp = """" & strNomChamp & """" oDataForm = thiscomponent.drawpage.Forms.getByName(strNomForm) IF oEvent.Source.Text <> "" THEN strFiltre = strNomChamp & " LIKE '" & oEvent.Source.Text & "'" ENDIF oDataForm.Filter = strFiltre oDataForm.reload IF oDataForm.RowCount = 0 THEN 'réinitialisation du filtre msgbox("pas de résultat !") oEvent.Source.Text = "" oDataForm.Filter = "" oDataForm.reload ENDIF End Sub
Les problèmes sont 1 - A l'ouverture du formulaire un enregistrement s'affiche (alors que je voudrais qu'il soit blanc). 2 - Quand je saisie dans mon champ texte la route recherchée, celle-ci ne s'affiche pas, mon formulaire s'affiche à blanc, je n'ai aucun message d'erreur et rien ne se passe comme je le veux !!!!!
Certainement qu'il manque quelque chose dans ma macro, mais étant débutante je n'arrive pas à trouver !!!!!!