Discussion :

[charleshbo]

Erreur d'exécution '-2147352567 (80020009) ':
Impossible de mettre a jour Recordset.

??? Avez-vous déjà eu cette erreur ???

Voici le code sur lequel l'erreur survient :

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
 
Dim RST As Recordset
 
Set bds = CurrentDb
Set RST = bds.OpenRecordset("SELECT echantillon.* FROM echantillon WHERE echantillon.NO_FORMULA = " & Me.Modifiable135.Value & "  order by echantillon.id_mat_piece ASC;")
Me.Refresh
If RST.RecordCount = 0 Then
Else
    RST.MoveFirst
-> Me.id_boy_lgverif = RST!id_boy_lgverif
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po
    RST.MoveNext
    Do While Not RST.EOF
    Me.id_boy_lgverif = RST!id_boy_lgverif + Me.id_boy_lgverif
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po + Me.id_boy_lgverif_po
 
 
    RST.MoveNext
    Loop
End If

[Maxence HUBICHE]

essaye en remplaçant

Code :

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

Set RST = bds.OpenRecordset("SELECT echantillon.* FROM echantillon WHERE echantillon.NO_FORMULA = " & Me.Modifiable135.Value & "  order by echantillon.id_mat_piece ASC;")

par

Code :

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

Set RST = bds.OpenRecordset("SELECT echantillon.* FROM echantillon WHERE echantillon.NO_FORMULA = " & Me.Modifiable135.Value & "  order by echantillon.id_mat_piece ASC;",dbOpenDynaset)

[Arkham46]

c'est le recordset du formulaire qui ne peut pas être mis à jour
le formulaire est-il modifiable?

sinon il te manque le parcours du formulaire, tu écris toujours sur la même ligne

[Maxence HUBICHE]

c'est le recordset du formulaire qui ne peut pas être mis à jour

Exact !!!! Autant pour moi !
Ca m'apprendra à lire le code jusqu'au bout et à regarder les petit -> qui trainent ...

à regarder :
1- la propriété de formulaire "Type Recordset" de l'onglet données (Pas sur instantané)
2- les quelques propriétés au-dessus pour vérifier que la mise à jour est autorisée
3- la source du formulaire.
Là, je parierai que c'est une requête.
Je serai curieux de savoir si déjà, la requête servant de source au formulaire est modifiable ...

[charleshbo]

Propriété Type Recordset = feuille de réponse dynamique
J'ai mis ensuite toutes les propriétés a "OUI"
Et oui c'est bien une requête qui sert de source au formulaire...
Comment faire pour savoir que cette requête est modifiable?

[Maxence HUBICHE]

Donc, ton formulaire est modifiable.
Ta requête ne doit pas l'être...

Pour savoir si ta requête est modificable ?
Ben .... tu ouvres les requêtes, et tu essaie directement dedans

[charleshbo]

non la requete n'est pas modifiable.. je viens de vérifier...
je me demandais s'il était possible de t'envoyer le mdb par quelque moyen que ce soit pour que tu puisses regarder un peu... si tu ne veux pas je comprendrai... c'est juste que je dois vraiment réparer cette bd parce que pendant ce temps les utilisateurs de l'usine ne peuvent l'utiliser...

[keita]

salut
dans ton code, tu essais de parcourir le recordset alors que tu ne l'as pas encore rempli; ton code en partie:

Code :

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

1
2
3
4
5
6
7
RST.MoveFirst 
-> Me.id_boy_lgverif = RST!id_boy_lgverif 
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po 
    RST.MoveNext 
    Do While Not RST.EOF 
    Me.id_boy_lgverif = RST!id_boy_lgverif + Me.id_boy_lgverif 
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po + Me.id_boy_lgverif_po

essai pour voir:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
RST.MoveLast   '<--- pour le remplir
RST.MoveFirst 
-> Me.id_boy_lgverif = RST!id_boy_lgverif 
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po 
    RST.MoveNext 
    Do While Not RST.EOF 
    Me.id_boy_lgverif = RST!id_boy_lgverif + Me.id_boy_lgverif 
    Me.id_boy_lgverif_po = RST!id_boy_lgverif_po + Me.id_boy_lgverif_po
    .................

[Arkham46]

[code]
RST.MoveLast '<--- pour le remplir

Keita, le MoveLast ne remplit pas le recordset, il se déplace jusqu'à la fin du recordset (et permet de "remplir" la propriété RecordCount pour certains type de recordset)
Tu peux parcourir un recordset sans MoveLast.

Si la requête sous-jacente au formulaire n'est pas modifiable (et donc le formulaire non plus) il faut en trouver la raison.

C'est peut-être une jointure : dans ce cas il peut être utile d'indexer sans doublons la clé de jointure si cela est possible (si doublons alors il peut théoriqement y a avoir plusieurs lignes dans la requête pour une ligne de table, donc pas de modif possible)

C'est peut-être un regroupement : dans ce cas il n'est pas possible de modifier la requête, une ligne de la requête étant un regroupement de plusieurs lignes de la table.

Et si donc la requête est telle qu'on ne pas pas modifier les données alors il faudra sans doute modifier directement la table avec une requête SQL ou un recordset.
Puis rafraichir le formulaire.

[keita]

ok maestro
merci Arkham pour l'info;sinon j'etais tout a fait daccord avec ce que tu avançais plus haut dejà et que tu reprends pour moi. je l'avais lu avec beaucoup d'interet.
A+