Discussion :

[compte_spam]

Bonjour à Tous!
Je sollicite votre aide pour me dépanner dans un pb que j'ai eu avec access 2007:
En fait j'ai conçu une base de donné pour gérer le personnel avec quelques tables dont la table "Avance" (stocker les données des avances sur salaire)
Puis j'ai créé un formulaire dans lequel on a:
- 2 zone liste déroulante: 'lstNomSalarie' (liste des salarié) et 'lstMois' (liste des mois)
- Zone de liste 'lstResultat' avec deux colonnes: 'date_avance' et 'montant'

La requête devrait, en cliquant sur le Bouton "Rechercher", permettre d'afficher les 'date_avance' et 'montant' à partir de la table 'Avance' en tenant compte des selections faites sur les deux listes déroulantes: nom du salarié et le Mois

Voilà ce que j'ai essayé:

Code :

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

1
2
3
4
5
6
Private Sub rechercher_click()
Dim sql As String
sql = "select Avance.Date_avance, Avance.Montant from Avance where Nom_salarie = ' " & Me.lstNomSalarie.Value & " ' and Mois= ' " & Me.lstMois.Value & " ' "
sql = sql & ";"
Me.lstResultat.RowSource = sql
End Sub

Mais ça ne marche pas

Merci d'avance pour votre précieuse aide!

[Invité]

Bonjour

De quel type est la donnée Mois ? si c'est un numérique pas de quote.

Philippe

[ClaudeLELOUP]

Bonsoir,

je crois que tu as des espaces intempestifs dans ton code
Essaie ceci :

Code :

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

sql = "select Avance.Date_avance, Avance.Montant from Avance where Nom_salarie = '" & Me.lstNomSalarie.Value & "' and Mois= '" & Me.lstMois.Value & "' "

et comme signalé plus haut sans quote si la valeur est numérique.
En fait tu voudrais trouver Dupont mais tu cherches <espace>Dupont<espace> d'où l'échec.
@+

[compte_spam]

Bonsoir,

je crois que tu as des espaces intempestifs dans ton code
Essaie ceci :

Code :

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

sql = "select Avance.Date_avance, Avance.Montant from Avance where Nom_salarie = '" & Me.lstNomSalarie.Value & "' and Mois= '" & Me.lstMois.Value & "' "

et comme signalé plus haut sans quote si la valeur est numérique.
En fait tu voudrais trouver Dupont mais tu cherches <espace>Dupont<espace> d'où l'échec.
@+

J'ai essayé ce code sans succès! A mon avis l'erreur ne vient pas des espaces

Pour l'attribut 'Mois' c'est du texte (j'ai mis une liste déroulante permettant de choisir le mois: Janvier, Fevrier,...)

Merci encore...

[User]

Bonsoir,

Peux-tu nous donner la liste des champs de table Avance avec leur type de données ?

Peux-tu nous donner 1 image du contenu de ta table Avance ?

[compte_spam]

Bonsoir,

Peux-tu nous donner la liste des champs de table Avance avec leur type de données ?

Peux-tu nous donner 1 image du contenu de ta table Avance ?

Bonsoir,
Le contenu de la table se présente comme suit:
N°: NuméroAuto (clé primaire)
Nom_salarie: Texte
Date_avance: Date/Heure
Montant: Numérique
Mois: liste déroulante contenant les valeurs (Janavier, Fevrier,....Decembre)

Voici une image du contenu de la table
http://hpics.li/3a3b17c

[ClaudeLELOUP]

Suggestion pour « voir » ce qui ne va pas.

Dans ton code, ajoute

Code :

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

debug.print sql

Provoque l’exécution du code
Récupère le sql effectivement généré dans la fenêtre d’exécution. (sélectionner et <ctl> + C)
Crée une requête en mode SQL et colle le sql (<ctl> + V)
Passe en mode Design et tu constateras sans doute que
soit les éléments de ta liste ne correspondent pas exactement au contenu de ta table (par exemple « Janavier » d’un côté et « Janvier » de l’autre)
soit, et excuse-moi d’insister, tu te mêles les pinceaux dans les quottes. ( avec ta syntaxe, tu rencontrerais aussi des problèmes si le nom contient une apostrophe ex "Jean le Rond d'Alembert")

[compte_spam]

Suggestion pour « voir » ce qui ne va pas.

Dans ton code, ajoute

Code :

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

debug.print sql

Provoque l’exécution du code
Récupère le sql effectivement généré dans la fenêtre d’exécution. (sélectionner et <ctl> + C)
Crée une requête en mode SQL et colle le sql (<ctl> + V)
Passe en mode Design et tu constateras sans doute que
soit les éléments de ta liste ne correspondent pas exactement au contenu de ta table (par exemple « Janavier » d’un côté et « Janvier » de l’autre)
soit, et excuse-moi d’insister, tu te mêles les pinceaux dans les quottes. ( avec ta syntaxe, tu rencontrerais aussi des problèmes si le nom contient une apostrophe ex "Jean le Rond d'Alembert")

Je vous envoie la base pour voir avec moi...
J'arrête pas d'essayer, de modifier.....(j'ai fait un travail semblable avec access 2003 et ça marchait!)

Grand Merci d'avance

Voilà j'ai mis la base là: [ame="http://www.megaupload.com/?d=OS4O386M"]MEGAUPLOAD - The leading online storage and file delivery service@@AMEPARAM@@Filename:</font> <font style="font-family:arial; color:#FF6700; font-size:22px; font-weight:bold;">GestPersonnel.mdb@@AMEPARAM@@GestPersonnel.mdb[/ame]

[User]

Salut,

J'ai testé le code de ClaudeLELOUP sur ta base et il fonctionne parfaitement (je suis sous Access 2003)

A+

[compte_spam]

Salut,

J'ai testé le code de ClaudeLELOUP sur ta base et il fonctionne parfaitement (je suis sous Access 2003)

A+

C'est bien ça mon pb, le code marche avec access 2003 mais pas 2007