Bonjour,
j'ai cherché une solution dans les différentes discussions postées sur le forum, mais je n'ai pas trouvé !..
Je rencontre, ce jour, un problème lié à l'accés d'une base.
Depuis longtemps, j'utilise deux bases frontales ciblées sur une base dorsale.
L'ouverture simultanée des deux bases ne posaient aucun problème.
Ce jour, à l'ouverture de la deuxième base, j'ai une erreur d'exécution 3356 "Vous avez essayé d'ouvrir une base de données déjà ouverte en mode exclusif ....."
Les paramètres généraux n'ont pas été modifiées : mode partagé et aucun vérouillage.
Cette erreur est générée à l'ouverture de la base à la ligne de code suivant qui permet de générer la liaison des tables :
Le code bloque à la ligne :
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 Function lierToutes(ByVal var1 As String) ' lier automatiquement les tables Dim strMotPasse As String Dim strCheminBd As String Dim strConnect As String Dim strNomsTables() As String Dim strTemp As String Dim i As Integer Dim oDb As DAO.Database Dim oDbSource As DAO.Database Dim oTbl As DAO.TableDef Dim oTblSource As DAO.TableDef 'Définir mot passe et chemin base de données strMotPasse = "" strCheminBd = var1 'strCheminBd = "C:\Documents and Settings\Jean-Marie\Mes documents\access\gdb2010\transpo\transpo_gdb_be.mdb" 'Définit la chaine de connexion permettant la liaison des tables strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd 'Instancie l'objet Database de la base courante Set oDb = CurrentDb 'Instancie l'objet Database de la base protégée Set oDbSource = DBEngine.OpenDatabase(strCheminBd, True, True, strConnect)
Une petite précision : ce code n'a été installé que sur une des bases frontales. De ce fait, si j'ouvre la A avant la B (ou se trouve le code) pas de problèmes, par contre l'inverse me bloque ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set oDbSource = DBEngine.OpenDatabase(strCheminBd, True, True, strConnect)
Avez-vous une piste pour me dépanner SVP
Merci.
Partager