Je veux corriger des erreurs de saisie sur une base de données, pour cela je me connecte avec Access sur la base et j'essaie d'exécuter ce code mais j'ai cette erreur :
Le moteur de base de données Microsoft Jet a arrêté le traitement parce que vous et un autre utilisateur tentez de modifier les mêmes données en même temps.
J'ai importer cette base de données sur un serveur de test, et ce code fonctionne sans problème.
Quelqu'un aurait une idée de ce qui m'empêche de mettre à jour les champs de la base.
J'ai également essayer en ouvrant la base de cette façon :
Set rst = db.OpenRecordset(Update, dbOpenDynaset, dbSeeChanges) ' ==> IDEM
Sub Mobile1()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Dim Update As String
Update = "dbo_clients"
Set db = CurrentDb()
Set rst = db.OpenRecordset(Update)
While rst.EOF = False
If IsNull(rst("mobile1")) Then GoTo Drop
rst.Edit
rst("mobile1") = Replace(rst("mobile1"), ".", "")
rst("mobile1") = Replace(rst("mobile1"), " ", "")
rst("mobile1") = Replace(rst("mobile1"), "-", "")
rst("mobile1") = Replace(rst("mobile1"), "/", "")
If Left(rst("mobile1"), 1) = "+" Then
GoTo Drop
Else
If Len(rst("mobile1")) = 10 Then
rst.Edit
rst("mobile1") = "+33" & Right(rst("mobile1"), 9)
rst.Update
ElseIf Len(rst("mobile1")) = 9 Then
rst.Edit
rst("mobile1") = "+33" & rst("mobile1")
rst.Update
End If
End If
Drop:
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub