Discussion :

[Faboul]

Bonjour,

Tout d'abord je tiens à préciser que si je poste ici c'est que je suis déjà allé voir la faq et que j'ai déjà fait des recherches sur le forum.

Je suis un noob en access/VBA et je suis en train de fabriquer un projet access qui s'appuie sur une base de données sql server 2000. Mon problème est le suivant:

J'ai une liste déroulante SltBase basée sur une table Bases, chaque base contient plusieurs barèmes et dans ma deuxième liste, SltBar j'aimerais afficher les barèmes qui font partie de la base sélectionnée dans la première liste.
Ma requête pour la première liste est:

Code sql :

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

SELECT "Bases"."base_id", "Bases"."base_val" FROM "Bases" ORDER BY "base_val";

Ma requête pour la seconde liste est:

Code sql :

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

SELECT bar_num, bar_nom FROM Baremes WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

Mon formulaire s'appelant "Recherche". Et j'ai mis un Me!SltBar.Requery sur la proprièté "Avant MAJ" de SltBase

Normalement ça devrait marcher mais non. En rajoutant un sous formulaire basé sur la requete de ma deuxième liste SltBar, je me suis rendu compte qu'elle ne renvoyait rien. Pourtant si je fais un:

Code SQL :

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

SELECT bar_num, bar_nom FROM Baremes WHERE bar_base='une_valeur_valide';

ça renvoie quelquechose.

J'ai déjà essayé de refaire un fichier adp pour voir si ca venait de mon fichier mais ça ne marche toujours pas.

Avez vous une idée sur l'origine du problème?
Merci par avance pour vos propositions

Edit: Je travaille avec Access 2003 (si ça peut vous aider)

[Heureux-oli]

Pourquoi exécutes-tu une action sur avant mise à jour ?

A mon sens, c'est sur après mise à jour qu'il faut exécuter ton action. Avant le contrôle est vide.

[Faboul]

Merci pour ta réponse.
J'ai mis le requery sur "Avant MAJ" parce que c'est le dernier que j'ai essayé. Sinon, "Avant Maj", "Après MAJ", "Si modification", "Sur changement" ne marchent pas. A priori, le problème vient de la deuxième requête puisqu'elle ne renvoie rien, je doute sur la syntaxe de mon where... Si je tape

Code :

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

WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

est ce que ça ne recherche pas le champ où bar_base vaut: [Forms]![Recherche]![SltBase] au lieu de chercher le champ où bar_base vaut la valeur contenue dans le controle SltBase ?

[soltani1]

Bonjour,

Regarde si [Forms]![Recherche]![SltBase] contient bien une valeur.

A+

[Faboul]

Excuse ma noobitude mais comment faut faire?

[Heureux-oli]

Dan ston code, tu peux toujours faire un

Code :

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

debug.print

ou encore un

Code :

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

MsgBox

pour afficher la valeur contenue dans ton contrôle pendant l'exécution de ton code.

Code :

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

1
2
3
 
Dim montest a
MsgBox [Forms]![Recherche]![SltBase]

[Heureux-oli]

Dan ston code, tu peux toujours faire un

Code :

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

debug.print

ou encore un

Code :

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

MsgBox

pour afficher la valeur contenue dans ton contrôle pendant l'exécution de ton code.

Code :

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

1
2
3
4
 
 
MsgBox [Forms]![Recherche]![SltBase]
Debug.print [Forms]![Recherche]![SltBase]

[Faboul]

Merci beaucoup pour toutes ces précisions.
quand je fais un

Code :

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

MsgBox [Forms]![Recherche]![SltBase]

ça renvoie les bonnes valeurs, j'en reviens donc à ma question de tout à l'heure, à savoir, si je tape:

Code :

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

WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

est ce que ça ne recherche pas le champ où bar_base vaut: [Forms]![Recherche]![SltBase] au lieu de chercher le champ où bar_base vaut la valeur contenue dans le controle SltBase ?

[Oleff]

Code sql :

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

WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

Avec cette syntaxe, tu compares bar_base avec '[Forms]![Recherche]![SltBase]' en temps que chaine de caractère, si tu veux tester la valeur, tu dois enlever les quotes.

Code sql :

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

WHERE (bar_base = [Forms]![Recherche]![SltBase])

[Heureux-oli]

Code :

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

SELECT bar_num, bar_nom FROM Baremes WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

Code :

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

"SELECT bar_num, bar_nom FROM Baremes WHERE (bar_base = " & [Forms]![Recherche]![SltBase]& ")"

Essaie comme ça.

[Faboul]

Merci, j'ai essayé ta solution malheureusement ça ne marche pas ça m'affiche une erreur: '&[Forms]![Recherche]![SltBase]&': nom de colonne incorrect

[Heureux-oli]

les " ' " représentent quoi dans ton message.

[Faboul]

Code sql :

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

WHERE (bar_base = '[Forms]![Recherche]![SltBase]')

Avec cette syntaxe, tu compares bar_base avec '[Forms]![Recherche]![SltBase]' en temps que chaine de caractère, si tu veux tester la valeur, tu dois enlever les quotes.

Code sql :

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

WHERE (bar_base = [Forms]![Recherche]![SltBase])

Merci pour ta réponse.

Malheureusement, cette syntaxe renvoie l'erreur suivante(que je ne comprends pas non plus...):

Instruction sql incorrecte. Vérifiez le filtre du serveur sur la source de l'enregistrement du formulaire

[Heureux-oli]

Code :

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

"SELECT bar_num, bar_nom FROM Baremes WHERE (bar_base = " & [Forms]![Recherche]![SltBase]& ");"

Essaie avec un ; en plus

[Faboul]

Désolé ça ne marche pas avec un ; en plus.

Cependant, je viens d'essayer de faire la meme manip avec un fichier mdb, donc avec une base access et ca marche parfaitement avec la syntaxe:

Code :

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

WHERE (bar_base = [Forms]![Recherche]![SltBase])

Le problème serait donc à cause de la base sql server, car quand j'utilise cette syntaxe j'obtiens l'erreur:
Instruction sql incorrecte. Vérifiez le filtre du serveur sur la source de l'enregistrement du formulaire

Avec le texte d'aide associé:

Access peut effectuer une évaluation des données ou des instructions SQL fournies par des références locales, mais pas des données fournies par une fonction dans Visual Basic pour Applications (VBA). Ce message d'erreur s'affiche lorsque l'instruction SQL contient des erreurs de syntaxe ou une référence à une variable fournie par l'utilisateur pendant l'exécution et que l'utilisateur fournit une réponse incorrecte.

Pour éviter que cette erreur ne se reproduise, spécifiez, comme source d'enregistrement du formulaire, une instruction SQL acceptant les paramètres.

Exemple :

Code :

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

1
2
3
SELECT * FROM Products
 
WHERE <fieldname> = <function_name - ie:@MyFunction()>

Vous devez également définir la propriété ParamètresSaisie du formulaire de manière à référencer la fonction fournissant la variable (dans cet exemple, MaFonction()).

Avant que la requête n'envoie les données fournies par l'utilisateur à l'instruction SQL, vérifiez que la variable a le bon format et la bonne syntaxe et qu'elle ne dépasse pas la longueur de l'instruction SQL.

Quelqu'un peut m'expliquer comment je dois procéder car mes compétences en sql restent très basiques

[Heureux-oli]

Essaie de transférer la valeur de ton contrôle dans une variable et de mettre la variable dans la requête.

Après, j'ai plus rien en magasin.

[Faboul]

Merci pour ta réponse, j'ai trouvé la solution:

Il faut commencer par créer une procédure stockée dans sql server de la facon suivante:

Code :

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

1
2
3
4
5
6
7
8
9
CREATE PROCEDURE [list2]
    @param char(3)
AS
BEGIN
    SET NOCOUNT ON;
    SELECT bar_num, bar_nom FROM Baremes WHERE bar_base =@param
 
END
GO

Pour la 2e liste il faut modifier les propriétés suivantes:

Origine Source : Table/Vue/Proc. Stockée
Contenu : -> laissez vide

Pour la 1e liste il faut associer à l'événement APRES MAJ le code suivant :

Code :

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

1
2
3
 
Me!SltBar.RowSource = "EXEC list2 " & Me!SltBase.Value
Me!SltBar.Requery

avec : (SltBase=1e liste et SltBar=2e liste)

et le tour est joué, mais bon fallait le savoir.

Merci à tous pour votre aide précieuse et pour le temps que vous m'avez consacré.

Edit:

Sinon en fait ya beaucoup plus simple (sans utiliser de procédures stockées)

Pour la 1e liste il faut associer à l'événement APRES MAJ le code suivant :

Code :

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

1
2
3
 
Me!SltBar.RowSource = "SELECT bar_num, bar_nom FROM Baremes WHERE bar_base ='" & Me!SltBase.Value & "';"
Me!SltBar.Requery