Discussion :

[hawlk]

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

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
33
34
35
36
37
38
39
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

[qi130]

Quelqu'un aurait une idée de ce qui m'empêche de mettre à jour les champs de la base.

parce que vous et un autre utilisateur tentez de modifier les mêmes données en même temps

et sur le serveur de test, il n'y a plus de concurrence d'accès, donc ça marche. CQFD