Discussion :

[olivier777]

Bonjour,

Je souhaiterai ouvrir, à partir d'un formulaire, un formulaire situé dans une autre base.

Comment faire ? Sachant que, l'assitant ne propose pas cette option.

Merci de votre aide

[Invité]

Bonjour

Si tu veux ouvrir un formulaire d'une autre base tu vas être obligé d'ouvrir celle-ci, donc de créer une nouvelles instance d'Access.

Mais ce formulaire s'ouvrira dans le deuxième Access et non dans le premier déjà ouvert.

Quel est le but ?

Philippe

[olivier777]

Bonjour

Si tu veux ouvrir un formulaire d'une autre base tu vas être obligé d'ouvrir celle-ci, donc de créer une nouvelles instance d'Access.

Mais ce formulaire s'ouvrira dans le deuxième Access et non dans le premier déjà ouvert.

Quel est le but ?

Philippe

Merci pour ta réponse,

C'est pas très grave si le formulaire s'ouvre dans le deuxième Access,

Le principal que je cherche à faire c'est de pouvoir ouvrir le formulaire et donc l'autre base (deuxième access) depuis le premier déja ouvert.
Qu'appelles tu "instances d'Access" ? et comment les créées t-on ?

Merci pour ton aide

[Jeannot45]

Qu'appelles tu "instances d'Access" ? et comment les créées t-on ?

Chaque fois que l'on ouvre une application, on ouvre une instance de celle-ci
Tu devras donc passer par du code VBA.

Bonne continuation

[LE VIEUX]

bonjour,
ça pourrait donner cela :

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
Option Compare Database
'déclaration de la variable contenant l'application directement dans zone déclaration
Dim appAccess As Access.Application
 
Private Sub BoutonCommandeX_Click()
csts = "D:\Chemin de la base a ouvrir\NomBase.mdb" 'chemin de la base a ouvrir
' instanciation
Set appAccess = _
        CreateObject("Access.Application")
'ouverture de la base
appAccess.OpenCurrentDatabase csts
  appAccess.DoCmd.RunCommand acCmdAppMaximize 'mettre la base en plein écran
  appAccess.DoCmd.OpenForm "NomFormulaireAOuvrir" 'ouverture du formulaire souhaité
 appAccess.Visible = True ' rendre l'application visible
End Sub