Discussion :

[retraite83]

Bonjour,

j'ai une question basique, mais j'ai besoin d'une piste pour y répondre, je n'ai aucune expérience sur ACCESS

Tout d'abord je maitrise bien VBA Excel et j'ai écris une application (600 macros environ) basée exclusivement sur des fichiers Excel

Pour optimiser maintenant je voudrai remplacer certains fichiers demandant à être partagés par une base, pour comprendre j'ai donc créé une base ACCESS sur un serveur avec un record contenant la valeur 1

Ma macro Excel sait maintenant accèder à la base, faire + 1 sur la valeur, la mettre à jour et l'afficher (= 2)

Mon problème est le suivant : si je lance simultanément la même macro sur un second PC il n'y a pas de blocage de la mise à jour et à la fin des exécutions les valeurs affichées sont = 2

Ce qui dans mon application crééra un doublon sur le N°

A mon sens l'avantage d'une base comme ACCESS est justement de gérer les accès concurrents, il doit bien y avoir un paramètre ou une action à faire pour cela (je n'ai rien vu dans les docs que j'ai lus)

Merci

[User]

Bonjour,

Normalement en choisissant :

Fichier > Options > Paramètres du client > section Avancé > Cocher "Ouvrir avec enregistrements verrouillés".

Deux personnes ne peuvent techniquement pas modifier la même ligne en même temps.

Après dans le cas de l'exécution simultanée de deux macros VBA par 2 utilisateurs (avec conflits), il faudrait le gérer en VBA avec un message d'erreur :

"Erreur d'exécution : L'Enregistrement est verrouillé par un autre utilisateur"

Cdlt

[retraite83]

Bonjour,

J'ai bien : Fichier > Options > Paramètres du client > section Avancé > "Ouvrir avec enregistrements verrouillés" est bien coché

Ma base de test contient 4 tables (1 à 4) avec chacune un seul record (un numéro)
Le but est de faire + 1 sur le numéro du record d'une table ("table1") à partir d'une macro en interdisant la modification de cette table par un autre utilisateur pendant ce temps d'exécution, sans bloquer les macros ssur les autres tables
La table est accédée dans une macro Excel

Voici mon code VBA Excel accèdant à ACCESS

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
 
Sub ConnectAccess()
 
Dim cn As String, rst As Object, BDaccess As String
 
BDaccess = "\\xxx\Test.accdb"
 
cn = GenereCSTRING(ACCESS, Base:=BDaccess)
Set rst = OpenRecordset("SELECT num FROM table1 WHERE rech = 'Arg'", cn)
Set rst = ExecuteRequete("UPDATE table1 SET num = num + 1 WHERE rech = 'Arg'", cn)
 
'rst.Close
Set rst = Nothing
 
End Sub

Je lance la macro Excel sur mon PC 1 avec un point d'arrêt juste avant "Set rst = ExecuteRequete("UPDATE table1 SET num = num + 1 WHERE rech = 'Arg'", cn)"
Ensuite je lance la même macro sur mon second PC 2, elle s'exécute correctement
Je continue l'exécution la macro sur le PC1, elle se termine bien
Je m'attendai à ce que la macro sur le PC 2 soit bloquée

[Thumb down]

bonjour,
le verrouillage des lignes sur une requête update est quasiment impossible Vu le furtivité de la chose.

d'ailleurs la chronologie des faits le montre bien tu passes d'un PC a l'autre. il faudrait que l'expérience soit synchronisée au millième de seconde près.

seule les enregistrements en édition dans Access peuvent être verrouillé.

du reste la requête fonctionnera même après une journée de repos.

seule solution signé numériquement les enregistrements. quel user a le droit de modifier tél enregistrement.

personnellement je travaillais avec un userform.
chaque fois que je sélectionnais un enregistrement je le signerai pour éviter que d'autres l'utilise.

[Nain porte koi]

Si c'est pour faire +1, pourquoi pas un champ numéroauto ?

[retraite83]

#5

je vais commencer par regarder ce que c'est "numéroauto" mais le nom parait bien sympathique pour ce que je veux faire

[Thumb down]

#5

je vais commencer par regarder ce que c'est "numéroauto" mais le nom parait bien sympathique pour ce que je veux faire

bonjour,
un numéroauto es un champ qui permet d'identifier de façon unique et sans possibilité de doublon même après suppression.

ligne1=1
ligne2=2 etc

c'est un identifiant unique. rien a voir avec ce qui te préoccupe.

comment dit sur l'autre forum la seul solution étant de verrouillé l'enregistrement via un recorset en mode édition {dynamique}

https://www.developpez.net/forums/d2...r-dedie-excel/