Mise à jour d'un enregistrement [Résolu]

[overlolo]

Bonjour,
Bon j'ai un petit problème de mise à jour d'un enregistrement. Je voudrais prendre deux champs de deux tables différentes les multiplier et récupérer le résultat dans un autre champ. Voici mon code vba

Code :

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
Private Sub Combo1258_Change()
Dim count_Reponses As Integer 'variable faisant la somme des réponses
Dim test As Integer
Dim sql As String
Dim pond As Currency
Dim rep As Integer
Dim res As Currency
 
 
pond = Me![Pondération]
rep = Me![Ch_Char_Response]
res = pond * rep
 
MsgBox ("Pondération " & pond)
MsgBox ("Réponse " & rep)
MsgBox ("res " & res)
 
sql = "UPDATE Réponses SET Res = res;"
DoCmd.RunSQL (sql)
'Recordset.Update Réponses.[res], res
 
 
test = Me![AuditNumber]
count_Reponses = Nz(DSum("Req_Audit_Question_Reponse.[Ch_Char_Response]", "Req_Audit_Question_Reponse", "Req_Audit_Question_Reponse![Ch_Char_Response]" & " <> 0 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 Sub

Voici mes problèmes:
* Je ne sais pas si il faut utiliser un update ou un insert into (à la base les enregistrements Res sont vides)

* Rien ne se passe dans la requête sql par contre si je change le Res = res par Res = 13 par exemple et bien là ça se met à jour.

Avez-vous une solution?? Merci pour votre aide

[Kloun]

Bonjour,

Code :

sql = "UPDATE Réponses SET Res = " & res

[overlolo]

Code :

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 Combo1258_Change()
Dim count_Reponses As Integer 'variable faisant la somme des réponses
Dim test As Integer
Dim sql As String
Dim pond As Currency
Dim rep As Integer
Dim Result As Currency
 
pond = Me![Pondération]
rep = Me![Ch_Char_Response]
Result = pond * rep
 
MsgBox ("Pondération " & pond)
MsgBox ("Réponse " & rep)
MsgBox ("res " & Result)
 
 
sql = "UPDATE Réponses SET Res = " & Result & ";"
DoCmd.RunSQL (sql)
DoCmd.RunCommand acCmdSaveRecord
 
 
 
test = Me![AuditNumber]
count_Reponses = Nz(DSum("Req_Audit_Question_Reponse.[Ch_Char_Response]", "Req_Audit_Question_Reponse", "Req_Audit_Question_Reponse![Ch_Char_Response]" & " <> 0 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 Sub

J'ai écrit ma requête comme ça, ça a fonctionné mais le problème c'est que dès que je passe à la question suivante il me dit qu'il y a une erreur dans la requête.

J'ai entendu dire que ça pouvait être une problème avec les "," qu'il faut transformer en ".". En effet dans ma table le champ pond est en numérique avec la taille du champ en réel simple. Pareil pour le Result. Et rep est en numérique et c'est un entier long.

Au passage il m'affiche bien les bonne valeur avec les MsgBox que j'ai mi le problème c'est qu'il arrive pas à mettre à jour l'enregistrement...

J'ai vraiment besoin de votre aide, merci beaucoup pour vos réponses
Je viens de voir que quand Result = à un entier et bien ça fonctionne et dès que c'est un nombre à virgule ça plante en me disant qu'il y a un errer de syntaxe dans ma requête

[Kloun]

Effectivement, il faut remplacer la virgule par un point.
Voir Replace.

[overlolo]

Et je met quoi comme type au résultat que je récupère?

Dim stock ?

stockt = Replace(Result,";",".")

[Kloun]

Code :

sql = "UPDATE Réponses SET Res = " & replace(Result, ",", ".")

[overlolo]

Ca fonctionne mais le souci maintenant c'est que ça me met à jour tous les champs et moi je voudrais que ça m'en mette que un à jour sur l'enregistrement ou je me trouve ... Une idée?

[Kloun]

Il suffit de rajouter une clause where qui va bien à la requête update.

[overlolo]

Oui c'est que j'essaye de faire mais je m'embrouille avec les guillemets et les & je sais jamais comment écrire bien les choses:

Code :

sql = "UPDATE Réponses SET Res = " & Replace(Result, ",", ".") & " WHERE "Req_Audit_Question_Reponse![Numéro_Reponse]<>" " & Me![Numéro_Reponse] & ";"

[Kloun]

Code :

sql = "UPDATE Réponses SET Res = " & Replace(Result, ",", ".") & " WHERE [Numéro_Reponse] <> " & Numéro_Reponse.value

Si Numéro_Reponse est numérique.

Code :

sql = "UPDATE Réponses SET Res = " & Replace(Result, ",", ".") & " WHERE [Numéro_Reponse] <> '" & replace(Numéro_Reponse.value, "'", "''") & "'"

Si Numéro_Reponse est alphanumérique.

[overlolo]

Ca fonctionne mais ça me met un conflit d'écriture:
Sauvegarder enregistrement ou copier dans le presse papier. Il faut que je clique sur copier dans le presse papier pour que la donnée s'affiche dans l'enregistrement... Pourquoi ça met un conflit d'écriture alors que je passe par un update (ça devrait se mettre à jour tout seul non???)

[Kloun]

Tu es dans un formulaire basé sur la un enregistrement de la table Réponses ?

[overlolo]

Oui c'est cela

[Kloun]

Dans ce cas là, crée un champ Res basé sur le champ Res de ta table sur ton formulaire puis :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Combo1258_Change()
Dim count_Reponses As Integer 'variable faisant la somme des réponses
Dim test As Integer
Dim sql As String
Dim pond As Currency
Dim rep As Integer
Dim Result As Currency
 
res.value = Pondération.value * Ch_Char_Response.value
 
test = Me![AuditNumber]
count_Reponses = Nz(DSum("Req_Audit_Question_Reponse.[Ch_Char_Response]", "Req_Audit_Question_Reponse", "Req_Audit_Question_Reponse![Ch_Char_Response]" & " <> 0 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 Sub