Discussion :

[jjd]

Je me permet de reposter ce message dans l'espoir qu'un "ponte" d'access puisse se pencher sur mon problème.

D'avance merci.

Bonjour à tou(te)s,

Je suis confronté de façon récurrente à un problème de corruption de données causée par des tentatives de modifications concurentes d'enregistrements.
Mon contexte :
Une consultation médicale, médecins et secrétaires utilisant la base.
Base Access 97 composée d'un mdb contenant les tables sur un serveur et une dizaine de clients avec sur chaque poste un mdb contenant les formulaires, requêtes... et les attaches aux tables. Au maximun 4 à 5 clients sont connectés ensemble.
L'erreur rencontrée assez fréquement (2 fois par mois environ) entraine la perte du champ corrompu. Le message est:

The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time.

Etant en verrouillage optimiste au départ, depuis les premières corruptions je suis passé en verrouillage pessimiste (option Enregistrement verrouillé) sur chaque poste client, mais le problème persiste.
Avez-vous déjà été confronté à ce problème et que peut-on faire de plus ?

D'avance merci de vos réponses,

Jean-Jacques DONATÉ.
Centre Hospitalier d'Argenteuil

[argyronet]

Bonjour,

Oui, j'ai déjà rencontré ce type de problème et y avais remédié pour une petite base (enfin l'affichage du message) avec une petite fonction maison que je vous donne ci-dessous:

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
'Function used to check if a record is already in use
'*** - Created by JPA on 2000-04-06 (Sales trading) -***************************************************************************************************************
Function checkIfRecordIsLocked(ByVal IDPrimaryKey As Long) As Boolean
Dim oDB As Database
Dim oRS As Recordset
Dim sqlSelection As String
Dim currentDate As Date
Dim sConnectedUser As String
 
On Error GoTo L_ErrLocked
 
  sqlSelection = "SELECT MaTable.ID, MaTable.DateCreation"
  sqlSelection = sqlSelection & vbCrLf & "FROM MaTable"
  sqlSelection = sqlSelection & vbCrLf & "WHERE (((MaTable.ID)=" & IDKey & "));"
  Set oDB = CurrentDb
  Set oRS = oDB.OpenRecordset(sqlSelection, dbOpenDynaset)
 
     With oRS
        currentDate = !DateCreation
        .Edit
        !DateCreation = currentDate
        .Update
        .Close
     End With
     checkIfRecordIsLocked = False
 
L_ExitLocked:
    Set oDB = Nothing
    Set oRS = Nothing
    Exit Function
L_ErrLocked:
    sConnectedUser = fnctGetConnectedUserName(Err.Description)
    sConnectedUser = IIf(Len(sConnectedUser) > 0, sConnectedUser, "un tiers")
    checkIfRecordIsLocked = True
    MsgBox "ATTENTION !!!" & vbCrLf & vbCrLf & "Cet enregistrement en cours d'utilisation par " & sConnectedUser & "..." & vbCrLf & vbCrLf & "Il ne peut pas être mis à jour !", 16, "Enregistrement verrouillé"
    Resume L_ExitLocked
End Function

Le principe était des plus simple, tenter de mettre à jour une date dans une table spécifique (celle qui concerne votre problème) avec une valeur identique à la sienne... Utilisez alors cette fonction sur un bouton "Enregistrer" du formulaire.

Mais je vous conseille plutôt de viser le mode transactionnel beaucoup plus fiable et certainement mieux adapté à votre situation.

Argy

[jjd]

Merci de cette rapide réponse
J'ai bien sûr pensé à passer sur SQL Server MSDE mais celà pose plusieurs problèmes matériels (acquisition d'un "vrai serveur" dédié à l'application, temps de développement, etc...) qu'il faut tout d'abord résoudre.
Je vais donc commencer par appliquer votre méthode, plus immédiatement utilisable. Pourriez-vous me donner le code de la fonction fnctGetConnectedUserName qui vient je suppose des API Windows ?

Encore merci,

Jean-Jacques DONATÉ.
Centre Hospitalier d'Argenteuil

[argyronet]

Re,

Pas besoin de MSDE pour faire du transactionnel...
Quand je parle de mode transactionnel, je veux dire que les opérations SQL (UPDATE-INSERT-DELETE) doivent être en "mode transactionnel" à savoir pour certaines d'entre elles, un BeginTrans, un CommitTrans et un RollBack.
Access sait très bien faire ça...
Quant à fnctGetConnectedUserName(), ce n'est pas une API mais ni plus ni moins une autre fonction maison qui en regard du message d'erreur (Err.Description) extrait le nom du UserName (Login) va chercher les Noms et prénoms en fonction de ce login dans une table annexe.

Argy

[jjd]

Merci j'ai (enfin presque) tout compris et vais mettre en oeuvre votre solution.

Bien cordialement,

Jean-Jacques DONATÉ.
Centre Hospitalier d'Argenteuil.