Discussion :

[yanouil]

Bonjour, j'ai un formulaire dans lequel il y a :

- un champ liste déroulante : cmbRechMOIS
- un champs liste de texte : lstResults
- un bouton : btn_search

La liste déroulante récupére les valeurs d'une des colonnes (Mois_Application)de ma table(Opération), le bouton recherche lance la requete SQL qui doit permettre d'affiche dans la zone liste seulement les enregistrement qui possede la valeur choisi de la dite colonne.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub btn_search_Click()
 
Dim strMois As String, strCriteria As String, strSql As String
 
strMois = Me.cmbRechMOIS
 
strCriteria = "Opération" & "." & "Mois_Application" & "" & "Like" & "" & strMois & ""
 
strSql = "SELECT Opération" & ".*"
strSql = strSql & "FROM Opération"
strSql = strSql & "WHERE (" & strCriteria & ");"
 
Me.lstResults.RowSource = strMois
Me.lstResults.Requery
 
End Sub

Pour faire ce code j'ai utilisé un des tutos du site, j'ai pas d'erreur, mais rien ne s'affiche dans la zone liste...

Quelqu'un peut il m'aider à comprendre mon erreur?

merci

[icare_1er]

J'ai exactement le même type de problème: je pense contruire la bonne chaîne SQL avec le WHERE, etc (de toute façon même pour une chaine volontairement ultra simple ca marche pas), puis je l'affecte à Me.lstListe.RowSource, malgré cela ca reste tout blanc...

[cafeine]

Hello,

pour déboguer les requêtes écrites par du VBA, je te conseille de lire :
http://cafeine.developpez.com/access...el/debugprint/

Le tuto devrait t'aider à voir pourquoi ta chaine SQL est invalide.

[yanouil]

ba le pire c'est que je n'est aucun bug... il ne se passe tout simplement rien...

Et apres plusieur test, je peux dire que ca vien bien de la requete sql..... mais où... je cherche encore mais je trouve pas..

[Invité]

Bonjour

As-tu suivi le conseil de Caféine et fait un Debug.print, regarde bien son tuto.

Starec

[yanouil]

Merci avec ca j'ai finalement trouver un code qui marche, le voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cmbRechMOIS_AfterUpdate()
 
Dim strCriteria As String, strMois As String, strSql As String
 
strMois = Me.cmbRechMOIS
strCriteria = "(Opération.Mois_Application LIKE " & " " & strMois & " );"
 
strSql = strSql & "SELECT Opération.*" & " "
strSql = strSql & " FROM Opération"
strSql = strSql & " WHERE " & strCriteria
 
Me.lstResults.RowSource = strSql
Me.lstResults.Requery
 
End Sub

Maintenant qu'il m'affiche bien la liste comme je veux, comment faire la somme des valeurs d'une des colonne? Faut faire une requete sur cette colonne? ou bien on peut directement faire une somme des colonne afficher?

EDIT : j'ai essayé ca : (marche PAS..!!!)
[CODE]strSomme = "SELECT Sum(Opération.Montant) FROM opération;"[CODE]

[yanouil]

bon, j'ai fini par trouver, le code ete bon, l'erreur ete ailleur.

Par contre j'ai dans ma table, une colonne dont les valeur sont du type "OUI/NON" (case à cocher), je veux faire des somme que lorsque que la valeur est "OUI" c'est à dire case coché... Le pb c'est que si je mais "OUI" comme filtre, ca marche pas et si je met "true" il me compte tout...

Comme on ecrit "oui" de la case à cocher comme critere de séléction?

[philben]

bonjour,

True correspond à la valeur numérique -1, False = 0

cordialement,

philippe

[yanouil]

ok, mais qu'est ce que je dois utilisé comme critere de séléction pour qui me selectionne les enregistrement dont la case à été coché? Car dans ma table, je vois "Oui" ou "Non"... Mais si je fait un tri sur les valeur texte "Oui" ou "Non", ca marche pas...

[yanouil]

Bon, j'ai trouvé, dans les propriété de la table, j'ai changé "Oui/Non" par valeur numérique, du coup je peut faire un tri sur les valeur 0 ou -1...