Liste Déroulante Formulaire avec conditionnelle [Résolu]

[Trimatelo]

Bonjour à tous !

J'ai un petit (gros pour moi) problème sur ma BDD Access:

J'ai dans une table un champ qui dans le formulaire aparait comme une liste déroulante avec 4 choix.

Mon but est de récupérer la donnée dans cette liste déroulante, puis établir (je suppose) une requête qui dit:

Si donnée Liste déroulante = "mot de la liste déroulante"

Alors faire une requête d'ajout (d'un autre enregistrement) sur une table spécifique via le bouton "aller sur la table".

Est ce que cela est faisable ?

Merci d'avance !

Bien cordialement

[loufab]

Bonjour,

Tout est faisable (ou presque) il suffit de bien définir ce que tu souhaites faire.

Pour une requete :

Code :

SELECT champ1, champ2 FROM table WHERE champ1='mavaleur';

Le mieux étant de faire confiance au générateur de requete, il est bien quelque soit ton niveau.

Pour déclencher une action après le choix d'une liste il faut utiliser les événements (voir ce tuto pour comprendre comment ça fonctionne avant de te lancer)

Pour exécuter des requetes via VBA (les événements) la commande :

Code :

currentdb.execute "INSERT...."

doit faire l'affaire.

Tu dois procéder de la manière suivant pour intégrer une requete dans VBA.
Toujours commencer par créer ta requète avec le générateur (du moins tant que tu n'es pas parfaitement à l'aise avec SQL).
Soit sauver la requete en tant qu'objet, si celle-ci ne contient pas de paramètres. Soit l'intégrer dans VBA (voir ce tuto http://cafeine.developpez.com/access...el/debugprint/)
Puis l'exécuter avec la commande que je t'ai fourni précédemment.

Cordialement,

[Trimatelo]

J'avou avoir un peu de mal à tout saisir (j'avais déjà lu ce tuto lors de mes recherches)

Je vais essayer de faire quelque chose cette après midi tout en sachant que je ne suis pas bon (du tout) en code VBA, je te tiens au courant.

En tout cas merci de cette réponse rapide.

Bien cordialement

[loufab]

L'événement qui se déclenche après avoir choisi un élément d'un liste déroulante c'est Après MAJ (après mise à jour).

Pour récupèrer une valeur de la liste c'est :

Code :

me.maliste.columns(x)

Où x est un indice numérotant la colonne et qui démarre à 0 (1ère colonne).
Les colonnes cachées (0 dans Largeur colonnes) sont également comprises dans ces indices (heureusement !).

Cordialement,

[Trimatelo]

Bonjour Loufab,

Voulant éviter le code VBA j'ai essayer (avec l'aide de tes conseils) de faire une requête d'ajout.

Ma requête d'ajout (grace à une macro) s'active lorsque nous appuyons sur le bouton "Aller à la table suivante".

Mon numéro de commande s'affiche directement, mais le problème c'est que ça rajoute non pas juste la commande que je viens d'enregistrer, mais toutes les commandes contenu dans ma table précédente (dans la table actuel).

Faut il absolument que je passe par du code VBA pour arriver à mon but ?

[loufab]

Bonjour,
Tu peux utiliser les macros au lieu de VBA. Tant qu'il s'agit de chose simple à faire elles conviennent largement. C'est leur manque de souplesses qui font qu'elles sont boudées.

Cela dit, je pense qu'il doit te manquer une condition Where.

Peux-tu poster ta requete ?

Cordialement,

[Trimatelo]

Ma requête:

Code sql :

1
2
3
INSERT INTO Enlèvement ( Commande )
SELECT [Suivi SAV].Commande
FROM [Suivi SAV];

En tout cas merci de tes réponses précises et rapide !

[loufab]

Bonjour,

Effectivement un INSERT à partir d'un SELECT sans WHERE il prend toute la table (il fait bêtement ce que tu lui dis ). Pour preuve regarde ce que renvoi ton SELECT seul.

Solution :
Un Where dans ton Select.

Code :

SELECT ... WHERE IdChamp=Forms!Monform!idChamp

devrait résoudre le problème.

Si ça ne fonctionne pas force-le avec un avant ton insert

Code :

1
2
3
PARAMETERS [[forms]!Monform![idChamp]] Long;
INSERT ....
SELECT .... FROM .... WHERE idChamp=[forms]!Monform![idChamp];

Mais normalement il devrait l'encaisser sans.

Mon conseil :
Avec des Select imbriquer, toujours faire un test de ce qu'il renvoi avant.

Cordialement,

[Trimatelo]

Bonjour !

J'ai essayer avec le WHERE

Mon code:

Code :

1
2
3
4
INSERT INTO Enlèvement( Commande )
SELECT [Suivi SAV].Commande
FROM [Suivi SAV]
WHERE Commande=Forms!Enlèvement!Commande;

Lorsque j'execute ma requête que ce soit en dehors ou dans mon formulaire, il me demande toujours un paramètre. Si je lui donne mon numéro de commande, tout fonctionne, mais si je ne lui donne rien, il ne récupère pas le numéro de commande que je viens au préalable de rentrer dans ma table SAV.

Bien Cordialement

[loufab]

Bonjour,

Donc la clause PARAMETERS est nécessaire.

Cordialement,

[Trimatelo]

Alors, j'ai une erreur de syntax:

Code:

Code :

1
2
3
4
5
6
PARAMETERS [[Forms]!Enlèvement![Commande]] long;
 
INSERT INTO Enlèvement( Commande )
SELECT [Suivi SAV].Commande
FROM [Suivi SAV]
WHERE Commande=[Forms]!Enlèvement![Commande];

Donc normalement, lorsque ma commande va fonctionner, cela va selectionner la commande que je viens de rentrer dans mon formulaire SAV, pour la mettre dans le Formulaire Enlèvement (et donc par extension, à la prochaine sauvegarde dans la table Enlèvement) ?

[loufab]

Ctrl + C sur le message box de l'erreur.
puis Ctrl + V dans ton prochain post.

Merci !

[Trimatelo]

Erreur de syntaxe dans la clause PARAMETER

Voili voilou !

[loufab]

Il y a des crochets en trop.

Code :

[forms]![NomForm]![Controle]

au lieu de

Code :

[[forms]![NomForm]![Controle]]

[Trimatelo]

Parfait j'ai reussi à l'enregistrer !

Par contre lorsque je test ma requête il me demande toujours de lui entré des paramètres.

Je test quelques truc et je te tiens au courant!

En tout cas merci de ton aide précieuse

[Trimatelo]

Alors alors, après quelque essais, il me demande toujours un paramètre;

l'info bulle exacte:

Entrer une valeur de paramètre

Formulaires!Enlèvement!Commande

[loufab]

Si parameters utilise

Code :

Formulaires!machin!Commande

Alors Where doit aussi utiliser

Code :

Formulaires!machin!Commande

Les 2 doivent être strictement égaux.

[Trimatelo]

Code :

1
2
3
4
5
6
PARAMETERS [Forms]![Enlèvement]![Commande] long;
 
INSERT INTO Enlèvement( Commande )
SELECT Commande
FROM [Suivi SAV]
WHERE Commande=[Forms]![Enlèvement]![Commande];

Ils le sont pourtant bien :s

[loufab]

A vérifier :

Le formulaire est bien ouvert et en fonctionnement quand tu exécutes la requete.
Le formulaire se nomme bien Employé et la liste déroulante Commande.

Cordialement,

[Trimatelo]

Alors, le formulaire est bien actif lors de ma requête, par contre, a la toute base, je voulais faire fonctionné ceci par une liste déroulante (non pas sur commande mais sur un autre champ)

Commande est un simple champs à remplir; et j'aimerais récuperer sa valeur qui va venir te mettre automatiquement dans le champs Commande d'une autre table.

Je tiens à m'excuser de m'être aussi mal exprimé...