Discussion :

[Bernard67]

Bonsoir le forum,

J'ai 2 bases sur un serveur commun.
1 avec les tables et l'autre avec les requetes dont une 10 de requetes ajout qui alimentent l'autre base.
La base avec les tables est verrouillée. A chaque requete ajout, il faut rentrer le mot de passe de la base avec les tables.
Y a t il une solution pour deverrouiller la base, executer la requete ajout et reverrouiller la base ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub DOSSIERS_Click()
 
'DoCmd.SetWarnings False
'DoCmd.SetWarnings True
 
'AJOUT_ DOSSIERS
DoCmd.RunSQL "INSERT INTO TAB_DOSSIERS………………………….."
 
DoCmd.RunSQL "DELETE TAB_IMPORT_DOSSIERS.* ………………"
 
MsgBox "La table DOSSIERS de la base TOTAL DOSSIERS est chargée. Vous pouvez mettre à jour le TDB.", vbOKOnly
 
End Sub

Merci pour l'aide.
Bonne soirée

[Bernard67]

Bonjour le forum,

Voici le code pour oter la protection de la base de destination et pour remettre la protection.

Le probleme maintenant est qu'il me sort " Mot de passe non valide" lorsque j'active la requete Ajout.
Le mot de passe se compose uniquement de 2 lettres en majuscules. Le probleme ne vient donc pas de là.

Quelqu'un a t il une solution à ce probleme pour le moins bizarre ?

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
Private Sub DOSSIERS_Click()
 
 Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("\\Chemin\Base Access\TB1_TABLES.mdb", False, False, ";pwd=AA")
 
'AJOUT_ DOSSIERS
DoCmd.RunSQL "INSERT INTO TAB_DOSSIERS………………………….."
 
DoCmd.RunSQL "DELETE TAB_IMPORT_DOSSIERS.* ………………"
 
MsgBox "La table DOSSIERS de la base TOTAL DOSSIERS est chargée. Vous pouvez mettre à jour le TDB.", vbOKOnly
 
 
Db.Close 
 
End Sub