Discussion :

[david29170]

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 :

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

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,

[Ric500]

Salut !

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

Code :

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

DoCmd.OpenReport "FactureP", acViewPreview, , strCondWhere & " AND " & strCondWhere0

Bonne journée

[david29170]

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

[Ric500]

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 :

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

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

???

[david29170]

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,