Discussion :

[mymeals]

1. bonjour à tous
j'utilise vb6 et access
j'ai créé un dataenv
un champ d'une de mes tables est au format date : jj/mm/yyyy
je veut, si je récupère un mois dans une variable(ex: juin 2011),connaitre le nombre de jours concernés dans ma table,sachant qu'il peut y avoir plusieurs enregistrements pour une même journée
j'utilise le code suivant :

.filter="DETDT like '" & datrac & "'"

DETDT est le nom du champ, datrac le nom de ma variable
le soucis, c'est qu'il ne compte que les enregistrements au 1 er juin
j'ai essayé de placer * ou # devant ma variable mais rien y fait
quelqu'un peut il me secourir ?
merci d'avance

[ProgElecT]

Salut
S'il s'agit bien de comptabiliser les enregistrements qui correspondent au mois et à l'année

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim DebutDate As Date, datrac As String, Rqt As String
datrac = "Juin 2011"
DebutDate = DateValue("01 " & datrac)
'nombre d'enregistrements (doublons de jours possibles comptabilisés)
Rqt = "Select count(*) From LaTable Where Month(DETDT) =" & Month(DebutDate) & " And  Year(DETDT) =" & Year(DebutDate)
'ou bien le nombre de jours DIFFERENTS
Rqt = "Select Distinct Count(DETDT) From LaTable Where Month(DETDT) =" & Month(DebutDate) & " And  Year(DETDT) =" & Year(DebutDate)
'exécuter l'ouverture avec la requête
TableTemp.Open Rqt, CnX, adOpenStatic, adLockPessimistic
'afficher le nombre d'enregistrement pour le jour concerné
MsgBox TableTemp.Fields(0).Value
TableTemp.Close

On est bien d'accord que ce code ne te donnera pas la liste des jours concernés.

[mymeals]

merci beaucoup pour ta réponse rapide ProgElecT

malheureusement, il me retourne toujour un message d'erreur
je récupère datrac dans un monthview

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Command8_Click()
Dim datrac As String
Dim datdeb As Date
mydate = MonthView1.Value
mymonth = Month(mydate)
myyear = Year(mydate)
datrac = MonthName(Month(Format(mydate, "MM YYYY"))) & " " & Year(Format(mydate, "MM YYYY"))
 
On Error GoTo suite:
With dataenv
    .QGESTION
    With .rsQGESTION
suite:
   datdeb = "01 " & datrac
   '.Filter = "DETDT =  '" & datrac & "'"
 .Filter = "DETDT =  '" & datrac & "'" = "DETDT" = "& month(datdeb) & " And Year(DETDT) = " & year(datdeb)"
 
 
       NStat = 0
 
 
        For i = 1 To .RecordCount
 
            NStat = NStat + 1
            .MoveNext
        Next
 
 
 
        MsgBox " Nombre de clients ce mois de " & datdeb & " : " & NStat
.Filter = ""
.Close

merci

[ProgElecT]

Peux tu nous mettre le contenu de datrac après la ligne

Code :

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

 datrac = MonthName(Month(Format(mydate, "MM YYYY"))) & " " & Year(Format(mydate, "MM YYYY"))

J'ai des doutes sur la construction de la ligne

Code :

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

.Filter = "DETDT =  '" & datrac & "'" = "DETDT" = "& month(datdeb) & " And Year(DETDT) = " & year(datdeb)"

surement un problème de parenthèses.

DETDT est le nom du champ

de quel type ?

[mymeals]

si je choisi juin 2011 dans la monthview la valeur de datrac est : "juin 2011"

quand à ma ligne, j'ai du faire une erreur en copier/coller

voici la ligne :

Code :

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

.Filter = "DETDT = " & month(datdeb) & " And  = " & year(datdeb)

DETDT est un champ date

[ProgElecT]

Dans le post N°3 la variable datdeb n'est pas initialisée, pourtant tu l'utilises dans le filtre
Motif de l'édit: ne pas tenir compte de la remarque, tu l'initialise bien,

[mymeals]

mais si
sur la ligne n°3 je l'initialise :

Code :

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

dim datdeb as date

[ProgElecT]

essais plutôt

Code :

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

1
2
3
4
5
6
7
With dataenv
    .QGESTION
    With .rsQGESTION
suite:
   'datdeb = "01 " & datrac
datdeb = DateValue("01 " & datrac) '< ----- ICI
.Filter = "DETDT = " & month(datdeb) & " And  = " & year(datdeb)

Tes dates sont de la forme, 21 09 2011 ou 21/09/2011 dans ta table ?

[mymeals]

la variable datdeb a toujours la bonne valeur mais l'exécution me ramène toours la même erreur

erreur 3001 etc..

les dates sont sous la forme 14/06/2011 dans la table

merci

[mymeals]

bonjour

j'ai essayé d'autres solutions
je me suis dit qu'en spécifiant une date de début et une date de fin je pourrait contourner mon problème
si je part du principe que ma variable datrac = "01/06/2011" voici mes différents essais et leurs erreurs

Code :

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

1
2
3
4
5
6
7
datdeb = "01 " & datrac
datfin = "31 " & datrac
 
.Filter = "DETDT >= '" & datdeb & "'" ‘ me ramène le nbr d’enregistrements après le 1er juin
.Filter = "DETDT <= '" & datfin & "'"  ‘ me ramène le nbr d’enregistrements avant le 30 juin
.Filter = "DETDT >= '" & datdeb & "' And <= '" & datfin & "'"  ‘ erreur 3001
.Filter = "DETDT between  '" & datdeb & "' and '" & datfin & "'" ‘ erreur 3001

vous remarquerez que les 2 premiers fonctionnent mais si je les associent avec and j'ai à nouveau l'erreur 3001
j'ai aussi essayé avec l'opérateur between sans plus de succès
je ne sais pas si mon erreur vient de la syntaxe, si un dataenvironnement ne gère pas la comparaison entre 2 dates ou peut être du type de données
ayant assayé des différents opérateur que je connais, like, between,<>=, j'avoue que je me trouve dans une impasse
merci

[ProgElecT]

Salut
pour trouver la date fin(a toi d'adapter avec tes noms de variables)

Code :

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

1
2
3
4
5
Dim DebutDate As Date, FinDate As Date, DateSoumis As String
DateSoumis = "AVRIL 2010"
 
DebutDate = DateValue("01 " & DateSoumis)
FinDate = DateAdd("m", 1, CDate("01" & Right(CStr(DebutDate), 8))) - 1  'dernier jour du mois de DebutDate

le dernier bouvant être 31,30,29,28
essais

Code :

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

.Filter = "DETDT >= #" & datdeb & "# And DETDT <= #" & datfin & "#"

[mymeals]

merci beaucoup ProgElecT
ça marche du tonnerre !!!
si j'ai bien compris, mes variables doivent êtres au format date mais on fait l'opération sur une chaine de caractère

merci encore pour ta gentillesse et le temps passé sur ce projet