Bonjour,
Décidément c'est la journée... J'ai mis le code suivant et mon formulaire ne s'ouvre pas! Lorsque j'appuie sur mon bouton, j'ai l'impression que mon autre base de données s'ouvre et se referme immédiatement. Car j'ai un aperçu à l'écran qui dure 1 seconde ou de cet ordre là. D'où peut venir le problème?
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
20
21
22
23 Private Sub Commande29_Click() Dim objAccess As Access.Application Set objAccess = New Access.Application ' Chemin d'acces a l'autre base Dim strMDB As String strMDB = "T:\Données\SARAH\TABORD_MAJ.accdb" With objAccess 'ouverture de la base .OpenCurrentDatabase strMDB, False 'les commandes sont les memes que pour la base en cours ' hormis le "objAccess." ' ouverture du formulaire .DoCmd.OpenForm "MENU" .DoCmd.Maximize ' Sans oublier : .Visible = True End With End Sub
Partager