select * from un format date (mois)

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:

---

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

Bonjour,

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

Code:

---

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

---

Citation:

---

Envoyé par Merryvor

Bonjour,

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

Code:

---

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

---

---

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

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

Code:

---

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.

Bonjour,

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

Pour avoir le 1er jour du mois:

Code:

---

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

---

Pour avoir le dernier jour du mois

Code:

---

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

---

Dans la condition:

Code:

---

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

Citation:

---

Envoyé par Merryvor

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

---

Citation:

---

Je veux tout les lignes du mois présent

---

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?

Citation:

---

Envoyé par 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?

---

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!?&

En supposant que Sinces est une date :

Code:

---

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

---

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

Code:

---

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

---

Au temps pour moi :

Code:

---

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

---

Voici ma solution...

Code:

---

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

---

Merci beaucoup.
Jean-François

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

Citation:

---

Envoyé par Kloun

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