Discussion :

[overlolo]

Bonjour,
Tout est dans le titre, voici la ligne ou ça plante:

Code :

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

count_Reponses = (DSum("Req_Audit_Question_Reponse.[Ch_Char_Response]", "Req_Audit_Question_Reponse", "Req_Audit_Question_Reponse![Ch_Char_Response]" & " is not Null And Req_Audit_Question_Reponse![AuditNumber]=" & " " & Me![AuditNumber] & "AND Req_Audit_Question_Reponse![Chapitre]='" & Me![Chapitre] & "'" & " AND [Req_Audit_Question_Reponse]![Numéro_Reponse]<>" & Me![Numéro_Reponse])) + Me![Combo1258]

Quand les enregistrements du champs [Ch_Char_Response] sont vides ça met cette erreur.
Et quand je les rentre à la main ça fonctionne et ça me fait bien la somme.

Peut-être que le is Not Null ne se marque pas comme ça? Une solution? Merci

[Kloun]

Bonjour,

Code :

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

1
2
3
4
5
dim iStr as string
iStr = "[Ch_Char_Response] is not Null And [AuditNumber]= " & AuditNumber.value & " AND [Chapitre]= '" & Chapitre.value & "' AND [Numéro_Reponse] <> " & [Numéro_Reponse].value
 
debug.print iStr
count_Reponses = DSum("[Ch_Char_Response]", "Req_Audit_Question_Reponse", istr)  + Combo1258.value

Qu'as-tu dans la fenêtre exécution ?

[overlolo]

J'ai remplacé et ça me met la même erreur

[Kloun]

Oui, mais

Qu'as-tu dans la fenêtre exécution ?

[overlolo]

C'est à dire??? En fait à partir d'un formulaire je lance ce code et au moment ou je clique sur le bouton et bien l'erreur apparait. J'ai essayé de faire disparaitre l'erreur à l'aide d'un case mais ça ne fonctionne pas non plus:

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case stock
    Case 0
    count_Reponses = Me![Combo1258]
    Case Is > 0
    count_Reponses = (DSum("Req_Audit_Question_Reponse.[Ch_Char_Response]", "Req_Audit_Question_Reponse", "Req_Audit_Question_Reponse![Ch_Char_Response]" & " is not Null And Req_Audit_Question_Reponse![AuditNumber]=" & " " & Me![AuditNumber] & "AND Req_Audit_Question_Reponse![Chapitre]='" & Me![Chapitre] & "'" & " AND [Req_Audit_Question_Reponse]![Numéro_Reponse]<>" & Me![Numéro_Reponse])) + Me![Combo1258]
    Me![Chap2_percent] = count_Reponses / (Me![NbTotalQuestions] * 3)
    Me![Text2553] = (Me![Chap2_percent] + Me![Chap_3_1_percent] + Me![Chap_3_2_percent] + Me![Chap_3_3_percent] + Me![Chap_4_percent] + Me![Chap_5_percent] + Me![Chap_6_percent] + Me![Chap_7_percent] + Me![Chap_8_percent]) / 9
    DoCmd.RunCommand acCmdSaveRecord
End Select
DoCmd.RunCommand acCmdSaveRecord

[Kloun]

Quand tu as l'erreur, tu dois avoir une fenêtre avec un bouton debug.
si tu cliques dessus, tu vois le code.
CTRL+G fait apparaître la fenêtre Exécution.
Là, tu dois avoir la clause Where de ton DSum qui doit poser problème.

[overlolo]

voilà ce qu'il y a dans la fenêtre d'exécution:

Code :

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

1
2
3
4
[Ch_Char_Response] is not Null 
And [AuditNumber]= 67 
AND [Chapitre]= '2' 
AND [Numéro_Reponse] <> 281

[Kloun]

Ça semble correct.
Donc le Dsum ne doit rien renvoyer.

Code :

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

count_Reponses = nz(DSum("[Ch_Char_Response]", "Req_Audit_Question_Reponse", istr), 0)  + nz(Combo1258.value, 0)

[overlolo]

Merci ça fonctionne, mais peux tu m'expliquer le pourquoi du comment? Merci beaucoup!

[Kloun]

Le DSum renvoie Null.

Nz "remplace" le Null par 0 (cf l'aide d'Access).

[overlolo]

Merci!