Discussion :

[Accessifiante]

Bonjour vénérés membres aidants du forum,

Pleine de bonne volonté, j'ai cherché dans le site de l'aide sur les recherches multi-critères dans les formulaires et j'ai fini par trouver le tutoriel de Charles A. qui présente un formulaire de "bibliothèque".

Comme une grande, toute seule, je l'ai adapté à ma base, et je suis pas mal fière du résultat, même s'il y a un "HIC", un gros hic...

Le formulaire ne fonctionne plus si je choisis un élément dans mes listes déroulantes. J'ai essayé de changer les requêtes des combos : avec clé colonne cachée, sans clé avec juste le texte, juste la clé... etc... rien à faire, quelque chose bloque dans le code et ma compréhension du code utilisé s'arrête là...

En fait, seul le critère "Norme" fonctionne. Il est rattaché directement à la Table des données. Les autres dépendent de tables différentes.

Je suis sûre qu'il s'agit d'une méprisable petite chose, mais rien à faire, je ne la trouve pas. Comme il ne me reste plus que cette petite étape à régler, quelqu'un peut-il m'aider et me dire quelle partie du code je n'ai pas bien adaptée à mon cas ?

Je vous joins ma base. Il s'agit du formulaire "FmChoix".

Merci tout plein à l'avance. Ce que vous me montrerez ne tombera pas dans l'oeil d'un aveugle !

[jimbolion]

Accessifiante,

Sur le batiment 2 erreurs (le nombre de colonnes et dans la requête considéré comme texte alors que numérique)

Sur les autres combobox (numérique au lieu de texte)

Ta version corrigée : bonne journée !

JimBoLion

[Jeannot45]

Dans la source de tes listes déroulantes, il te faut reprendre les clés primaires de chaque table.

D'autre part il te faut modifier tes lignes de codes comme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Not Me.ChkImmeuble Then
    SQL = SQL & "And Tb_Donnees!Immeuble = " & Me.CmbRechImmeuble
End If

Tu remarqueras que les quotes ont disparues car ta liste déroulante te renvoie une valeur numérique (celle de la clé primaire) et du coup cela fonctionne.

Je te joins la base modifiée sur : Immeuble et Discipline

[jimbolion]

Accessifiante

2 Versions corrigées pour le prix d'une !

Bonne journée

JimBoLion

[Jeannot45]

Mille excuses pas vu ton post

[Accessifiante]

Bonjour et tellement merci à tous les deux !

Tout d'abord Jimbolion, c'est drôle car j'avais vraiment essayé plein de combinaisons dans les combobox, avec clé et texte, sans clé et texte, clé seulement, ... J'ai dû sauter une marche ? Mystère

Ensuite, cette nuit dans mes deux heures d'insomnie, j'avais entrevu le problème du code qui ne faisait pas référence aux bonnes tables, comme le précise Jeannot.

J'avais donc un début de solution à vérifier ce matin et, ô Surprise, comme le dit si bien Jimbolion, j'avais deux aides au lieu d'une ! C'est beau internet des fois

Encore merci et passez une très belle journée !

[Accessifiante]

Ha ! Une dernière petite question... (il en fallait bien une !)... Deux dernières petites questions :

Comment faire pour que les combobox ne gardent pas la valeur qui a été précédemment choisie ? Quand on retourne dans le menu, elle est encore là... Ça pourrait être trompeur pour les utilisateurs...

Ensuite, dans le code j'ai changé l'ouverture du formulaire pour l'ouverture de mon état. Cependant, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acNormal

ça envoie directement à l'imprimante. Quel est le mot pour "aperçu" ?

J'ai trouvé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acPreview

Il me reste donc juste le détail de supprimer la dernière valeur choisie des combos.

MerciMerci !

[Jeannot45]

Pour remettre à blanc tes combos, il te suffit d'implanter après la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Docmd.OpenReport ...

la commande suivante pour chaque liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.NomListe = ""

Bonne continuation

P.S : si tu n'as plus de question, pense à cliquer sur le bouton placé sous le dernier post afin de clôturer la discussion

[Accessifiante]

Bonjour Jeannot et merci !

Pour sûr que c'est résolu avec des génies comme vous !



Heu Jeannot... pourquoi l'extension .rar dans votre fichier ? Qu'est-ce que c'est ?

[Accessifiante]

Toc toc...

Bonsoir Jimbolion et Jeannot, c'est encore moi...

Je suis embarrassée : après vos explications, je croyais avoir compris à la virgule près le fonctionnement du formulaire de recherche multi-critères mais manifestement ce n'est pas le cas. J'ai voulu le reproduire pour une autre base, avec d'autres tables (par nécessité et pour m'entraîner en même temps), et encore une fois, rien à faire, ça bloque. J'ai beau le retourner, décortiquer, comparer avec celui qui marche...

Je voudrais vraiment comprendre ce code, et pas le répéter bêtement en faisant des erreurs comme ici sans savoir comment me dépêtrer. Si vous aviez l'amabilité de jeter un oeil sur mon dernier test et de m'expliquer (une dernière fois) où je trébuche je vous en serais très reconnaissante (il y a juste deux combobox pour les critères).

Vous voulez bien me donner cette chance ?

Merci beaucoup...

[Jeannot45]

Je te joins ta base modifiée :

En fait le problème venait du fait que la clause ORDER BY (le tri) doit se positionner après la clause WHERE.

Pour simplifier, j'ai modifié la syntaxe SQL globale en supprimant ORDER BY .... WHERE

Le mot WHERE, je l'ai ajouté dans les instructions concernant le test de controle de la case à cocher. Exemple :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not Me.ChkVille Then
    SQL = SQL & "WHERE Tb_BauxTPSGC!Ville = " & Me.CmbRechVille
End If

Enfin j'ai ajouté la clause ORDER BY par concaténation au niveau de la source du sous formulaire :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lstResults.RowSource = SQL & " ORDER BY Tb_Gestionnaires.NomPrenom"

P.S : Par contre, tu ne peux pas faire une selection sur deux critères (Ville et Gestionnaire)
Je me permets de te conseiller la lecture du tuto :
Création d'un formulaire de recherche multicritères
Un autre exemple ...
Voilà bonne continuation

[Accessifiante]

Bonjour Jeannot et merci beaucoup pour vos éclaircissements ! Je n'aurais définitivement pas trouvé le problème toute seule.

Comme je dois garder la recherche sur plusieurs critères, j'ai simplement enlevé la partie "Order by" dans la phrase SQL du code (en fait je recopiais bêtement le code SQL de la requête du formulaire de résultat sans connaître les impacts du tri en code VBA). J'ai par contre laissé le tri croissant dans ladite requête et ça fonctionne.

Je coche donc résolu et je vous souhaite un week-end à la hauteur de l'aide que vous m'avez apportée !