Discussion :

[aba_tarn]

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

[Jean-Philippe André]

bonsoir, quel est l'intérêt d'ouvrir un formulaire d'une autre base ? ca ralentit considérablement les requetes, et ca ouvre une deuxieème base pour pas gd chose... si ?

[aba_tarn]

Je mets en place un SIG dans une structure qui ne s'y connait pas en SIG et je voulais leur faciliter la tache pour qu'il n'aient qu'une seule interfacepour toutes leurs opérations.