Discussion :

[kikilevrai]

Bonjour tout le monde voila je vous montre le code et je vous explique mon probleme

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
 
Set liste = base.OpenRecordset("SELECT * FROM [TAB_Détails parcelle]")
 
liste.MoveFirst
Do While (Not liste.EOF)
If liste.Fields(6) Then
table_util = "TAB_coefficient_amont"
Else
table_util = "TAB_coefficient_aval"
End If
req_sql = "UPDATE [TAB_Détails parcelle] SET coeff = (SELECT taux FROM " & table_util & " WHERE classe ='" & liste.Fields(5) & "')"
MsgBox req_sql
base.Execute (req_sql)
liste.MoveNext
Loop

j'ai une erreur qui revient depuis pas mal de temps il me met ; "L'opération doit utiliser une requète qui peut etre mise à jour" sur cette ligne :

base.Execute (req_sql)

quelqu'un à deja eu cette erreur et pourrait m'aider svp ?

[loufab]

Bonjour,

Visiblement la ligne

Code :

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

req_sql = "UPDATE [TAB_Détails parcelle] SET coeff = (SELECT taux FROM " & table_util & " WHERE classe ='" & liste.Fields(5) & "')"

pose problème.

Le mieux étant d'utiliser les techniques de débogage des requetes sous VBA disponibles dans l'excellent tutoriel de cafeine :

http://cafeine.developpez.com/access...el/debugprint/

Eventuellement tu peux envoyer le contenu de la variable req-sql une fois celle-ci évaluée.

Cordialement,

[pc75]

Bonjour,

Peux tu nous donner le résultat de :

Code :

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

1
2
 
MsgBox req_sql