Discussion :

[subslizer]

Bonjour à tous,

Je viens de récupérer l'administration d'une base de données Access ayant pour objectif de générer des reportings. N'ayant pas créé la base, ni écrit les codes, je suis un peu perdu, surtout qu'une erreur d'exécution survient.

Lorsque j'exécute un module, le message d'erreur "Erreur d'exécution '-2147217913 (80040e07)' - Type de données incompatible dans l'expression du critère" apparaît. Voici le code où l'erreur se produit:

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
Private Sub calcul_NbFournisseurs(objMyDB As ADODB.Connection, mois As String)
Dim rsData As ADODB.Recordset
Dim strSQL As String
Dim leSecteur As String
Dim nbFournisseurs As Double

strSQL = "SELECT c.nomSecteur, Count(a.supplierCode) AS CountOfsupplierCode "
strSQL = strSQL & "FROM (SELECT DISTINCT b.codeSecteur, supplierCode, IIf(CurrentETD<>'',month(CurrentETD),month(InitialETD)) as leMois FROM TimportFollowUp, TDrayonSecteur as b "
strSQL = strSQL & "      WHERE IIf(CurrentETD<>'',month(CurrentETD),month(InitialETD))=" & Month(mois) & " "
strSQL = strSQL & "      AND left(Department,2)=b.codeRayon "
strSQL = strSQL & "      AND orderCurrentStatus<>'A') AS a, TDsecteur as c "
strSQL = strSQL & "WHERE c.idSecteur=a.codeSecteur "
strSQL = strSQL & "GROUP BY c.nomSecteur;"

Set rsData = New ADODB.Recordset
rsData.Open strSQL, objMyDB, adOpenDynamic
Do Until rsData.EOF
    leSecteur = rsData.Fields("nomSecteur")
      
    majTRresultat objMyDB, mois, "AIG", 87, leSecteur, Nz(rsData.Fields(1), "")

    rsData.MoveNext
Loop

rsData.Close
Set rsData = Nothing

End Sub

En rouge il s'agit de la ligne que le déboggeur souligne en anomalie.

Pouvez-vous m'aider? Ayant récupérer le bébé depuis 4 jours je ne connais pas encore toutes les données mais si vous souhaitez des précision sur des champs n'hésitez pas à me demander.

Merci pour votre aide!

[jimbolion]

subslizer,

Probablement une comparaison ou une jointure sur des champs de type différent !

Regarde ce post

http://vb.developpez.com/faq/?page=Bdd#type_critere

Est ce que par exemple Department en texte et codeRayon en numérique ?

Un truc du genre en tout cas...

JimBoLion

[subslizer]

subslizer,

Probablement une comparaison ou une jointure sur des champs de type différent !

Regarde ce post

http://vb.developpez.com/faq/?page=Bdd#type_critere

Est ce que par exemple Department en texte et codeRayon en numérique ?

Un truc du genre en tout cas...

JimBoLion

Le champ codeRayon est bien en format texte dans la table TDRayonSecteur, tout comme le champ Department.

En regardant ton lien, l'anomalie vient visiblement d'un problème de format... Sachant que le champ CurrentEDT est une date positionnée en format texte, l'anomalie ne viendrait pas de là?

[jimbolion]

subslizer,

Effectivement c'est une piste, tu peux dans ce cas tenter de formater ton champ texte en type date !

Code :

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

Format(CurrentETD,"mm/dd/yyyy")

Mais attention si une date ne respecte pas les conventions de date (règles de validité) ta requête pourrait te générer de nouvelles erreurs.

JimBoLion

[jimbolion]

subslizer,

Vérifie également InitialETD

Code :

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

WHERE IIf(CurrentETD<>'',month(format(CurrentETD,"mm/dd/yyyy")),month(format(InitialETD,"mm/dd/yyyy")))=" & Month(mois) & " "

Quelque chose comme çà

JimBoLion

[subslizer]

subslizer,

Vérifie également InitialETD

Code :

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

WHERE IIf(CurrentETD<>'',month(format(CurrentETD,"mm/dd/yyyy")),month(format(InitialETD,"mm/dd/yyyy")))=" & Month(mois) & " "

Quelque chose comme çà

JimBoLion

Bonsoir,

Le problème venait effectivement des champs CurrentETD et InitialETD qu'il fallait positionner en format "MM/YYYY" comme le champ "mois".
De plus les formules month étaient également en trop.

Merci beaucoup pour ton aide!