Lier des tables access dans un fichier protégé
medbo
Messages postés
570
Statut
Membre
-
medbo Messages postés 570 Statut Membre -
medbo Messages postés 570 Statut Membre -
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
- Fichier epub - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
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