DAGGuadeloupe
Messages postés2Date d'inscriptionvendredi 1 juillet 2011StatutMembreDernière intervention 8 juillet 2011
-
1 juil. 2011 à 19:15
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
8 juil. 2011 à 07:11
Bonjour à tous,
Je migre une base Access 2000 en 2007, tout fonctionne bien, mis à part une fonction qui fonctionnait parfaitement sous 2000, et qui, sous access 2007 est récalcitrante !!
Private Sub Supprimer_BeforeUpdate(Cancel As Integer)
Dim NoLett As Long, bVal As Boolean
Dim rsCL As DAO.Recordset
NoLett = Me.Recordset!N°Lettrage
bVal = Not Me.Recordset!Supprimer
Cancel = True
Me.Recordset.MoveFirst
Set rsCL = Me.RecordsetClone
rsCL.MoveFirst
While Not rsCL.EOF
If rsCL!N°Lettrage = NoLett Then
rsCL.Edit
rsCL!Supprimer = bVal
rsCL.Update
End If
rsCL.MoveNext
Wend
End Sub
Le code s'arrête sur la ligne Me.Recordset.MoveFirst et me renvoie le message d'erreur suivant :
Erreur d'exécution '3426'
Cette méthode a été annulée par un objet associé.