Discussion :

[le méruvien]

Bonjour à tous,
Je veut faire un copier coller de 5 à 6000 enregistrements, et j'ai un massage qui me dit:
"Le nombre de verrou disponible pour le partage des fichiers est dépassée. Augmentez l'entrée de registre MAXLOCKSPERFILE"
Qu'es ce qu'il veut??
Comment faire ??
Merci

roger

[Tofalu]

Le nombre de verrous est dépassé, il vous demande donc de modifier la valeur maximale afin que votre traitement puisse être réalisé.

Plusieurs options sont possibles :

1. Vous fragmentez votre copier/coller
2. Vous utilisez des requêtes
3. Vous modifiez l'option MAXLOCKSPERFILE

Pour ce dernier cas, vous pouvez utiliser la méthode SetOption de DBEngine.

Vous pouvez modifier les paramètres du Registre Microsoft® Windows® au moment de l'exécution à l'aide de la méthode SetOption. Pour personnaliser les paramètres du Registre Windows, vous pouvez utiliser la méthode SetOption à partir de DAO. Cette option confère à votre application un maximum de souplesse et de contrôle. Cette approche vous permet de créer des applications qui sont plus faciles à mettre à jour et qui sont configurées pour réaliser des performances optimales.

La syntaxe utilisée est : dbEngine.SetOption, constante, NouveauParamètre. Par exemple, la syntaxe dbEngine.SetOption dbMaxLocksPerfFile, 20000, permet au moteur de base de données Microsoft Access de faire le suivi de 20 000 verrous à la fois. Le nom des constantes définies est le même que celui du Registre, mais avec le préfixe db.

C'est la méthode préconisée pour régler les paramètres de Registre de votre application. Elle constitue l'approche la plus souple et vous permet de contrôler entièrement les modifications apportées au Registre. La méthode SetOption vous permet d'attribuer de nouvelles valeurs aux paramètres par défaut suivants :


Clé PageTimeout
Clé SharedAsyncDelay
Clé ExclusiveAsyncDelay
Clé LockRetry
Clé UserCommitSync
Clé ImplicitCommitSync
Clé MaxBufferSize
Clé MaxLocksPerFile
Clé LockDelay
RecycleLVs
Clé FlushTransactionTimeout

Soit dans votre cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oDBE As DAO.DBEngine
Set oDBE = Application.DBEngine
oDBE.SetOption dbMaxLocksPerFile, 7000

Il se peut qu'il soit nécessaire de redémarrer la base pour que la modification soit efficace.

[le méruvien]

Bonjour, et merci beaucoup pour ta réponse!
je vais fragmenter mes copies.