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
Partager