Lier des tables access dans un fichier protégé
Fermé
medbo
Messages postés
551
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
24 mars 2019
-
7 mars 2018 à 21:35
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 10 mars 2018 à 00:00
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 10 mars 2018 à 00:00
A voir également:
- Lier des tables access dans un fichier protégé
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir un fichier .bin - Guide
- Fichier host - Guide
1 réponse
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
Ambassadeur
1 557
Modifié le 7 mars 2018 à 22:13
Modifié le 7 mars 2018 à 22:13
bonsoir, je pense alors que tu dois protéger B par un mot de passe.
Modifié le 7 mars 2018 à 22:14
7 mars 2018 à 22:17
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
7 mars 2018 à 22:27
7 mars 2018 à 22:28
8 mars 2018 à 00:27