Discussion :

[mawi]

Bonjour,

Je travaille sur trois applications Access :
- la première (BDHuisne.mdb) est celle qui s'ouvre en premier. Grâce à un formulaire et des boutons elle permet d'ouvrir les deux autres.

Donc, pour ouvrir la deuxième, j'ai un bouton avec le code suivant :

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
Private Sub B_recueil_Click()
' creation de l'objet Access
        Dim objAccess As Access.Application
        Set objAccess = New Access.Application
 
        ' Chemin d'acces a l'autre base
 
        Dim strMDB As String
        strMDB = "D:\BDHuisne_recueil.mdb"
 
                With objAccess
                    'ouverture de la base
                    .OpenCurrentDatabase strMDB
 
                    ' ouverture du formulaire
                    .DoCmd.OpenForm "F_demarrage_recueil"
                    .Visible = True
                End With
End Sub

Cette partie fonctionne très bien (à noter que j'ai mis le formulaire F_demarrage_recueil comme formulaire de démarrage dans l'appli)

Pour ouvrir la troisième appli (BDHuisne_TB.mdb), j'ai mis un autre bouton, avec le code suivant :

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
Private Sub B_TB_Click()
' creation de l'objet Access
        Dim objAccess2 As Access.Application
        Set objAccess2 = New Access.Application
 
        ' Chemin d'acces a l'autre base
 
        Dim strMDB2 As String
        strMDB2 = "D:\BDHuisne_TB.mdb"
 
                With objAccess2
                    'ouverture de la base
                    .OpenCurrentDatabase strMDB2
 
                    ' ouverture du formulaire
                    .DoCmd.OpenForm "F_demarrage_TB"
                    .Visible = True
                End With
End Sub

Et là, soit rien ne se passe, soit j'ai un message d'erreur me disant que l'action OuvrirForumlaire n'est pas disponible pour le moment.

Je ne comprends pas puisque j'ai repris exactement le même code!

Merci d'avance de l'aide que vous pourrez m'apporter

[bernardmichel]

Hello,

Je ne sais pas si j'ai le niveau pour répondre à ta question mais, deux questions me viennent à l'esprit en lisant ton post :

1. As-tu les mêmes messages si tu ouvres la table 2 avant la 3 et si tu ouvres la 3 avant la 2 ?
2. Ne doit-on pas faire un "Set objAccess = Nothing" à la fin de ce genre de codes afin de "vider" les variables initiées par un "Set" ?

[mawi]

Bonjour,

Merci pour votre réponse.

J'ai essayé avec Set objAccess = Nothing mais ça ne fonctionne toujours pas.

Ce qui se passe, c'est que la base s'ouvre et se referme aussitôt, j'ai à peine le temps de voir le formulaire de démarrage.

Si j'ouvre la deuxième base d'abord, ça ne fonctionne pas non plus.

Merci

Marie

[mawi]

ça marche!!

j'ai rajouté du code à l'ouverture du formulaire pour faire une autre action (qui n'a absolument rien à voir..), et maintenante tout fonctionne bien.. allez savoir pourquoi!!

merci

[bernardmichel]

Il n'y a pas que les voies du Seigneur qui sont impénétrables....

Par contre, si une personne compétente pouvait nous éclairer là-dessus, ce serait vraiment instrutif !

Merci d'avance !