Discussion :

[metallica_fr]

Bonjour,

Je fais un acces en MAJ à ma base par le biais d'un bouton et lorsque ça passe sur mon .edit ca me met une erreure 3027...

mon code :

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
30
31
32
 
Set db = OpenDatabase(Application.CurrentProject.Path & "\" & "Base_Compta.mdb")
 
'===== Calcul du reste_eng sur frm_ENG =====
 
Set rs = db.OpenRecordset _
  ("SELECT * FROM Commande, tranche, engagement " & _
   "Where xcde_id = cde_id and xtra_id = tra_id and cde_id =" & cde_ID, dbOpenDynaset)
 
Do While Not rs.EOF
  Set rs1 = db.OpenRecordset _
      ("SELECT * FROM facture WHERE xeng_id =" & rs!Eng_ID, dbOpenDynaset)
 
  VarRest_Eng = 0
 
  Do While Not rs1.EOF
    VarRest_Eng = VarRest_Eng + rs1!fct_rgmt
    rs1.MoveNext
  Loop
 
  Set rs3 = db.OpenRecordset _
    ("SELECT * FROM Commande, tranche, engagement " & _
    "Where xcde_id = cde_id and xtra_id = tra_id and eng_id = " & rs!Eng_ID, dbOpenDynaset)
  rs3.Edit
    rs3!Eng_Reste = rs!Eng_Mtt - VarRest_Eng
  rs3.Update
 
  rs.MoveNext
Loop
'===== Fin calcul du reste_eng sur frm_ENG =====
 
db.Close

si quelqu'un pouvait me donner un tit coup de main ce serait sympa !

[Strontium]

Questions:

la base "Base_Compta.mdb" de ta première ligne, c'est la base dans laquelle il y a le code ou une autre? (si tu réouvre la même ca pose ptre problème)

De plus rs et rs3 se resemblent beaucoup, le problème ne viens pas de là?

si tu ajoute ",0,dbOptimistic" après dbOpenDynaset ça fait la même chose?

[Strontium]

J'allais oublier surement le plus important:
est-ce que tes sources "Commande, tranche, engagement" sont des tables ou des requetes? avec des requetes ca risque de poser problème si ce sont des jointures.

Et en changeant ta requete en

Code SQL :

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

1
2
3
4
5
 
SELECT * FROM Commande INNER JOIN 
(tranche INNER JOIN engagement ON xtra_id = tra_id) 
ON xcde_id = cde_id
WHERE eng_id = " & rs!Eng_ID

Ca aide un peu?
Je pense que ca peut venir du fait que rs3!Eng_Reste peut être dupliqué à cause de jointure et le moteur ne sait pas quelle ligne à la priorité.

[metallica_fr]

salut,

- la base_compta est effectivement celle qui contient le code

- au début j'ai essayé l'update sur rs justement avec la même erreur j'ai donc essayé à partir d'une autre requete mais sans résultat toujours un probleme sur le .edit

- j'ai essayé de rajouté ",0,dboptimistic" mais même erreur

je comprend vraiment pas là

[metallica_fr]

personne ?

[Tofalu]

Strontium a vu juste. C'est la requête qui a priori interdit la mise à jour. Utilise INNER JOIN