Discussion :

[NATOU2]

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

[pc75]

Bonjour,

Et comme ça ?

Code :

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

1
2
3
4
 
...
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 & "'"
...

[NATOU2]

Bonjour pc75,

Merci beaucoup ça fonctionne par contre j'ai un autre souci :

lorsque je teste la fonction sur un autre PC que le mien elle fonctionne et lorsque je la teste sur le mien j'ai le message suivant :

"Impossible d'utiliser";fichier en cours d'utilisation"

au débogage le curseur se pose sur la ligne suivante :

"cnc.Open Application.CurrentProject.Connection".

Les PC sur lesquels je teste la fonction sont identiques au mien.

Vois-tu pourquoi je suis seule confrontée à ce problème. Crois-tu que le problème viendrait du fait d'avoir plusieurs bases ACCESS sur mon PC ayant cette fonction en module ?

Encore merci beaucoup de ton aide

[pc75]

Re,

Et si tu ajoutes ça ?

Code :

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

1
2
3
4
5
 
.....
rst.Close
Set rst = Nothing
.....

[NATOU2]

Bonjour pc75,

Malheureusement, rien n'y fait, j'ai toujours le message, le code de l'erreur est 2147467259 (80004005).

Help !!

[Damran]

Bonjour,

Essai de cette manière (ça doit normalement revenir au même, mais vu que ton code pose problème, tu peux toujours essayer) :

Code :

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

1
2
 
Set rst = CurrentDB.OpenRecordset(strSQL, adOpenStatic)

Et ici "cnc" n'est plus utilisé.

a+
Damran

[NATOU2]

Bonjour Damran,

Ca marche !! Merci beaucoup.