Discussion :

[Tilous]

Bonjour/bonsoir à vous tous!

Je patine avec ces lignes depuis un moment maintenant.

J'ai bien essayé de trouver la solution, mais je n'arrive pas à le faire fonctionner...

J'essaie de remplir un recordset pour cibler certaine données selon une date de début et date de fin provenant d'un champ du formulaire... Ceci fonctionne très bien!

Mais je dois ajouter un autre critère texte dans la table étant oui ou "", mais là je galère!

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
    'Si la variable globale est à 2 c'est une recherche pour l'alto sinon c'est vista par défault
    If Recherche = 2 Then
        'J'ouvre un recordset pour n'avoir que les données alto
        Set rs = CurrentDb.OpenRecordset("SELECT tbl_ato.DateCreation, tbl_ato.Alto, tbl_ato.Rendement FROM tbl_ato WHERE tbl_ato.DateCreation Between #" & date_deb_moy & "# And #" & date_fin_moy & "# And Alto='OUI'")
    Else
        'Je vais chercher les données pour vista
        Set rs = CurrentDb.OpenRecordset("SELECT tbl_ato.DateCreation, tbl_ato.Alto, tbl_ato.Rendement FROM tbl_ato WHERE tbl_ato.DateCreation Between #" & date_deb_moy & "# And #" & date_fin_moy & "# And Alto=''")
    End If

Pouvez-vous m'aider à m'en sortir?

Merci à l'avance pour votre aide

Louise

[Tilous]

Re bonsoir,

J'ai esayé ceci en définisant une variable string nommée typAlto qui reçoie OUI comme argument, mais rien...

Code :

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

Set rs = CurrentDb.OpenRecordset("SELECT tbl_atomisation.DateCreation, tbl_atomisation.Agglo, tbl_atomisation.Rendement FROM tbl_atomisation WHERE tbl_atomisation.DateCreation Between #" & date_deb_moy & "# And #" & date_fin_moy & "# and Agglo = '" & typAlto & "'")

Aucun résultat...

Je désespère!

Merci!

Louise

[Jeannot45]

Le contenu du champ typAlto est-il toujours écrit en majuscule.
Pourquoi ne pas avoir utilisé un champ de type Oui/Non plutot qu'un champ texte pour le champ Agglo(1er Message) ou Alto(2eme Message) ?

Bonne continuation

[jimbolion]

Jeannot45 , Tilous bonjour

Dans le cas d'un champ OUI/NON comme le rappelle justement Jeannot, il serait judicieux d'utiliser un champ booleen?

Mais cela ne donne pas de réponse à ton problème :

Tu peux récupérer le contenu de ta requête en plaçant un debug.print ainsi :

Code :

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

1
2
Set rs = CurrentDb.OpenRecordset("SELECT tbl_atomisation.DateCreation, tbl_atomisation.Agglo, tbl_atomisation.Rendement FROM tbl_atomisation WHERE tbl_atomisation.DateCreation Between #" & date_deb_moy & "# And #" & date_fin_moy & "# and Agglo = '" & typAlto & "'")
debug.print "SELECT tbl_atomisation.DateCreation, tbl_atomisation.Agglo, tbl_atomisation.Rendement FROM tbl_atomisation WHERE tbl_atomisation.DateCreation Between #" & date_deb_moy & "# And #" & date_fin_moy & "# and Agglo = '" & typAlto & "'"

Ensuite il te suffit de récupérer cette chaîne dans la fenêtre d’exécution de ton éditeur VBA et de faire un copier-coller dans le qbe (assistant requête -> mode SQL). En exécutant cette requête tu devrais avoir ta solution.

Regarde ce tuto : http://cafeine.developpez.com/access...el/debugprint/

JimBolion

[Tilous]

Bonjour à vous deux!

Merci pour l'aide.

Pour le champs oui/non, il était comme cela avant et j'utilisais une champs OUI/NON dans la table, mais la perssonne, elle voulait un champs texte...

J'ai donc modifié, mais cela cause souci...

Je vais regarder vos astuces et vous reviens!

Merci beaucoup,

Louise

[jimbolion]

Tilous,

pas de soucis...

je suis connecté sur le chat si tu veux m'y retrouver...

jim