Bonjour,

J'ai une table JFER (jours fériés) avec les champs PAYS et JOUR :

PAYS JOUR
DE 01/07/2008
DE 02/07/2008
AT 03/07/2008

J'ai une autre table avec les champs ps, debut et fin

ps debut fin
DE 01/07/2008 04/07/2008
AT 01/07/2008 04/07/2008

mon but étant de compter combien il y a de jours fériés entre debut et fin selon le pays je voulais utiliser la fonction suivante dans une requête :

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
Public Function nbJOuvreJF(ByVal dtDeb As Date, ByVal dtFin As Date, ByVal Country As String) As Long
Dim cnc As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSql As String
Dim i As Integer
 
strSql = "SELECT JFER.PAYS, JFER.JOUR FROM JFER WHERE (((JFER.JOUR)>#" & Format(dtDeb, "mm/dd/yyyy") & "# And (JFER.JOUR)<#" & Format(dtFin, "mm/dd/yyyy") & "#)) AND (JFER.PAYS)=Country"
cnc.Open Application.CurrentProject.Connection
rst.Open strSql, cnc, adOpenStatic, adLockReadOnly
            Do Until rst.EOF
                If Not DateTime.Weekday(rst!JOUR) = 7 And _
                Not DateTime.Weekday(rst!JOUR) = 1 Then _
                i = i + 1
                rst.MoveNext
            Loop
 
nbJOuvreJF = i
 
Set rst = Nothing
Set cnc = Nothing
 
End Function
Ma fonction ne fonctionne pas j'ai le message suivant :"aucune valeur donnée pour un ou plusieurs des paramètres requis"

Qulequ'un peut-il me dire où se trouve mon erreur.

Merci beaucoup