Lier des tables access dans un fichier protégé
medbo
Messages postés
551
Date d'inscription
Statut
Membre
Dernière intervention
-
medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention -
medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention -
Salut tout le monde,
J'ai un fichier access "A" protégé par un mot de passe et qui contient des tables
Je veux lier les tables contenue dans ce fichier dans un autre fichier access "B" par code VBA et que lorsque la liaison des tables soit faite le mot de passe ne reste pas en mémoire et ce a fin d'interdire l'établissement d'une autre liaison ou d'importer les tables liée dans le fichier "B" depuis un autre fichier access "C". car un fois la liaison faite dans le fichier "B" il y a possibilité de lier les table du fichier "A" ou de les importer dans le fichier "C" sans connaitre le mot de passe.
merci pour les réponces.
J'ai un fichier access "A" protégé par un mot de passe et qui contient des tables
Je veux lier les tables contenue dans ce fichier dans un autre fichier access "B" par code VBA et que lorsque la liaison des tables soit faite le mot de passe ne reste pas en mémoire et ce a fin d'interdire l'établissement d'une autre liaison ou d'importer les tables liée dans le fichier "B" depuis un autre fichier access "C". car un fois la liaison faite dans le fichier "B" il y a possibilité de lier les table du fichier "A" ou de les importer dans le fichier "C" sans connaitre le mot de passe.
merci pour les réponces.
A voir également:
- Lier des tables access dans un fichier protégé
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir, je pense alors que tu dois protéger B par un mot de passe.
Dim tbl As TableDef
Dim strMotPasse As String
Dim strCheminBd As String
Dim strNomTable As String
Dim strConnect As String
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
'Définit mot passe, nom table, chemin base de données
strMotPasse = "motdepasse"
strCheminBd = CurrentProject.Path & "\B.accdb"
strNomTable = "tbl"
'Instancie l'objet Database
Set oDb = CurrentDb
'Définit la chaine de connexion permettant la liaison
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd
'Crée la nouvelle table
Set oTbl = oDb.CreateTableDef(strNomTable)
With oTbl
.Connect = strConnect
.SourceTableName = strNomTable
End With
'Ajoute la table à la base de données
oDb.TableDefs.Append oTbl: oDb.TableDefs.Refresh
If blnAccQuit Then appACC.Quit acQuitSaveAll
Set appACC = Nothing