Discussion :

[gorjette]

Bonjour,

Je m'intéresse aux formats de date ce matin. En fais, j'ai une erreure avec ce code et je me demande bien pourquoi!? "type de données incompatible dans l'expression du crìtère"

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande216_Click()
'Bouton des renouvellesment
Dim Db As Database, Rs As Recordset, Renouv As Double
Set Db = CurrentDb
'Renouv = Month(Now())
Set Rs = Db.OpenRecordset("select * from clito where sinces = " & Month(7) & "")
Rs.Close
Db.Close
End Sub

Merci de votre précieux aide.

Gorj

[Merryvor]

Bonjour,

C'est peut-être l'histoire des guillemets qui est incomodante.
Essaie

Code sql :

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

1
2
 
Set Rs = Db.OpenRecordset("select * from clito where sinces = '" & Month(7) & "'")

[gorjette]

Bonjour,

C'est peut-être l'histoire des guillemets qui est incomodante.
Essaie

Code sql :

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

1
2
 
Set Rs = Db.OpenRecordset("select * from clito where sinces = '" & Month(7) & "'")

Tout à fait, et je t'offre un café.
Merci Marie.

[gorjette]

Me voilà rendu avec un autre problème, le remplisage de ces données dans un listbox...

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 Commande216_Click()
'Bouton des renouvellement
Dim Db As Database, Renouv As Double
Set Db = CurrentDb
Renouv = Month(Now())
Liste210.ColumnCount = 3
Liste210.ColumnWidths = "0cm;2,4cm"
 
Liste210.RowSource = ("select * from clito where sinces = '" & Month(Renouv) & "'") 'Ceci ne fonctionne pas
 
Liste210.RowSource = ("select * from clito where sinces = '" & "2010-09-07"&"'") 'Ceci fonctionne
 
Db.Close
End Sub

Mon code n'a pas d'erreures et il y a bel et bien des dates avec du mois de septembre.

Merci bien.

[Merryvor]

Bonjour,

Month(Now) retourne 9, mais Month(Month(Now)) retourne 1.

Pour avoir le 1er jour du mois:

Code :

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

DateAdd("d",1-Day(Now),Now)

Pour avoir le dernier jour du mois

Code :

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

DateAdd("m",1,DateAdd("d",-Day(Now),Now)

Dans la condition:

Code :

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

WHERE sinces BETWEEN DateAdd("d",1-Day(Now()),Now()) AND  DateAdd("m",1,DateAdd("d",-Day(Now),Now))

Ainsi tu auras tous les jours du mois présent

[gorjette]

Bonjour,

Month(Now) retourne 9, mais Month(Month(Now)) retourne 1.

Pour avoir le 1er jour du mois:
DateAdd("d",1-Day(Now),Now)
Pour avoir le dernier jour du mois
DateAdd("m",1,DateAdd("d",-Day(Now),Now)

Dans la condition:
WHERE sinces BETWEEN DateAdd("d",1-Day(Now()),Now()) AND DateAdd("m",1,DateAdd("d",-Day(Now),Now))

Ainsi tu auras tous les jours du mois présent

Je veux tout les lignes du mois présent

[Merryvor]

c'est bien qu'est-ce que je dis.

Toutes les lignes dont les dates de fin sont comprises entre le début du mois et la fin du mois seront sélectionnées.

Que te donne le résultat de cette requête?

[gorjette]

c'est bien qu'est-ce que je dis.

Toutes les lignes dont les dates de fin sont comprises entre le début du mois et la fin du mois seront sélectionnées.

Que te donne le résultat de cette requête?

Tu as raison, désolé j'ai été un peu distrais en lisant seulement le contenu du courriel avant de répondre... Il y a une erreure de syntaxe!?&

[Kloun]

En supposant que Sinces est une date :

Code :

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

select * from clito where format(sinces, "YYYYMM") = '" & format(LaDate, "YYYYMM") & "'"

[gorjette]

Je suis vraiment perdu dans la syntaxe ce matin je crois... On me demande de fermer la parenthèse sur ma ligne select...

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande216_Click()
'Bouton des renouvellesment
Dim Db As Database, Renouv As Integer
Set Db = CurrentDb
Renouv = Month(Now())
Liste210.ColumnCount = 3
Liste210.ColumnWidths = "0cm;2,4cm"
Liste210.RowSource = ("select * from clito where format(sinces, "YYYYMM") = '" & format(renouv, "YYYYMM") & "'")
Db.Close
End Sub

[Kloun]

Au temps pour moi :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande216_Click()
'Bouton des renouvellesment
Dim Db As Database
Set Db = CurrentDb
Liste210.ColumnCount = 3
Liste210.ColumnWidths = "0cm;2,4cm"
Liste210.RowSource = ("select * from clito where format(sinces, 'YYYYMM') = '" & format(Now(), "YYYYMM") & "'")
Db.Close
End Sub

[gorjette]

Voici ma solution...

Code :

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

Liste210.RowSource = ("select id_clito, noma from clito where month(sinces) = " & Month(Now) & "")

Merci beaucoup.
Jean-François

[Kloun]

Tu vas avoir un problème quand tu auras plus d'un an de données.

[gorjette]

Tu vas avoir un problème quand tu auras plus d'un an de données.

Non, car les renouvellements sont à chaque année.
Merci beaucoup.
Gorj