Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 07/06/2011, 10h16   #1
Invité de passage
 
Inscription : mai 2011
Messages : 15
Détails du profil
Informations forums :
Inscription : mai 2011
Messages : 15
Points : 4
Points : 4
Par défaut vba tri entre deux dates et valeur oui/non

Bonjour,

J'ai un petit soucis dans mon code.

Trier des valeurs entre deux dates avec le critère oui/non

pour faire un état qui liste des factures payées (oui/non) entre deux dates. Voici mon code, je ne vois pas ou ça cloche...

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub dateValidP_Click()
 
Dim strCondWhere As String
 
    strCondWhere0 = "[Factures]![paiementFacture] = -1"
    strCondWhere = "Factures.DateFacture BETWEEN " & _
        "#" & Format(Me.DateD, "mm\/dd\/yyyy") & "# AND " & _
        "#" & Format(Me.DateF, "mm\/dd\/yyyy") & "#"
 
 
   DoCmd.OpenReport "FactureP", acViewPreview, , strCondWhere & "AND" & strCondWhere0
 
 
End Sub
Merci,
david29170 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/06/2011, 10h55   #2
Membre actif
 
Avatar de Ric500
 
Homme Richard
Ingénieur développement logiciels
Inscription : août 2004
Messages : 166
Détails du profil
Informations personnelles :
Nom : Homme Richard
Localisation : France

Informations professionnelles :
Activité : Ingénieur développement logiciels
Secteur : Tourisme - Loisirs

Informations forums :
Inscription : août 2004
Messages : 166
Points : 157
Points : 157
Salut !

Cà serait pas à cause des espaces autour du "AND" ?

Code :
DoCmd.OpenReport "FactureP", acViewPreview, , strCondWhere & " AND " & strCondWhere0
Bonne journée
Ric500 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/06/2011, 12h11   #3
Invité de passage
 
Inscription : mai 2011
Messages : 15
Détails du profil
Informations forums :
Inscription : mai 2011
Messages : 15
Points : 4
Points : 4
Merci d'avoir répondu aussi rapidement.

Non cela ne change rien, sa ne fonctionne toujours pas, si vous avez d'autre idées je suis preneur.

Merci
david29170 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/06/2011, 17h34   #4
Membre actif
 
Avatar de Ric500
 
Homme Richard
Ingénieur développement logiciels
Inscription : août 2004
Messages : 166
Détails du profil
Informations personnelles :
Nom : Homme Richard
Localisation : France

Informations professionnelles :
Activité : Ingénieur développement logiciels
Secteur : Tourisme - Loisirs

Informations forums :
Inscription : août 2004
Messages : 166
Points : 157
Points : 157
Bonjour,

Je n'ai pas réagi au départ, mais la syntaxe avec des "\" pour tes conditions me semble suspecte, as tu essayé:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub dateValidP_Click()
 
Dim strCondWhere As String
 
    strCondWhere0 = "[Factures]![paiementFacture] = -1"
    strCondWhere = "Factures.DateFacture BETWEEN " & _
        "#" & Format(Me.DateD, "mm/dd/yyyy") & "# AND " & _
        "#" & Format(Me.DateF, "mm/dd/yyyy") & "#"
 
 
   DoCmd.OpenReport "FactureP", acViewPreview, , strCondWhere & " AND " & strCondWhere0
 
 
End Sub
???
Ric500 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/06/2011, 10h52   #5
Invité de passage
 
Inscription : mai 2011
Messages : 15
Détails du profil
Informations forums :
Inscription : mai 2011
Messages : 15
Points : 4
Points : 4
Par défaut ok

Merci pour ta réponse, en fait mon code était bon, pas de problèmes avec le / et \.
, j'avais juste oublié un champ dans ma requête

david,
david29170 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h26.


 
 
 
 
Partenaires

Hébergement Web