Discussion :

[roustif]

bonjour,

j'ai un souci au niveau d'un formulaire basée sur une requete qui doit retourner dans une zone de texte un nombre d'évènements entre la date d'aujourd'hui et celle d'il y a N mois (dans une combobox)

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
33
 
Dim bd As Database
Dim rs_var As Variant
Dim requete As String
Dim dateform As Date
Dim ogi As String
Dim ogid As Date
Dim Ddate As String
Dim mois As Integer
Dim annee As Integer
Dim jour As Integer
 
dateform = "01" & "/" & cbo_mois.Value & "/" & "08"
ogi = Date
 
annee = Year(Date)
mois = Month(Date)
jour = 1
 
mois = mois - cbo_mois.Value
If mois < 1 Then
    mois = 12 + mois
    annee = annee - 1
End If
Ddate = jour & "/" & mois & "/" & annee
dateform = CVDate(Ddate)
ogid = CVDate(ogi)
 
Set bd = CurrentDb()
requete = "SELECT count(id_evenement) as nb FROM evenement WHERE date_evenement BETWEEN Ddate and ogi;"
Set rs_var = bd.OpenRecordset(requete)
Me!zt_nombre_n_mois = rs_var.nb
rs_var.Close

voila mon code VBA: l'erreur est: trop peu de pramètres. 2 attendus.. auniveau du set rs_var = bd.OpenRecordset(requete)

si quelqu'un pouvait m'aider...

merci

[loufab]

Bonjour,

Problème récurant sur ce forum. traité hier ou avant hier.

Tu fais la confusion entre variables VBA et SQL. En effet tu mélange SQL et VBA mais SQL et VBA ne communiquement pas entre eux. Il faut les aider à ce voir les pauvres.

Regarde le tuto sur les Requetes et VBA http://cafeine.developpez.com/access...el/debugprint/

Cordialement,

[vodiem]

salut loufab et bienvenu roustif,

Code :

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

requete= "SELECT count(id_evenement) as nb FROM evenement WHERE date_evenement BETWEEN #" & Ddate & "# and #" & ogi & "#"

sinon plus simplement:

Code :

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

Me!zt_nombre_n_mois = dcount("id_evenement","evenement","date_evenement between #" & Ddate & "# and #" & ogi & "#")