Ouvrir un formulaire dans une autre base

Question

Exemple je suis dans la base bd1 et je veux ouvrir le formulaire &#171;ABC&#187; dans la base bd2 et rendre celui-ci actif.
Quelqu'un peut m'aider?

ORDINO

jhary69 · Answer

salut,

a priori je dirais qu'il faudrait :

1/ que tu cr&#233;es une appli Access.Application (une en plus de celle qui a ouvert ta base bd1) 

2/ que tu ouvres ta base bd2 avec cette objet access.application 

3/ que tu ouvres ton formulaires ABC 

4/ que tu rendes actif et au 1er plan ta 2eme appli Access (celle qui affiche ABC)

Sinon sans 2eme appli Access je ne vois pas trop comment faire !

A+

Christophe.

Doro81079 · Answer

bonsoir,
je suppose que tu fais du vba
logiquement c'est possible car tu as 2 facons d'ouvrir une bd en vba a partir d'un formulaire
voici les codes a mettre dans le form load du formulaire

set BD2 = currentproject.connection
pour la BD &#224; partir de laquelle tu veux ouvrir les 2 BD

et pour la BD externe

BD2.open"Provider microsoft.jet.oledb.4.0;datasource=C:\chemin de BD2\BD2.mdb"

et il te reste plus qu'a mettres le code pour les tables
je te dis &#231;a de t&#234;te mais je ne pense pas m'&#234;tre tromper mais si jamais je te le ferais savoir

salut 
doro

Doro81079 · Answer

oups je croyais que tu voulais ouvrir des tables mais essayes quand meme en ajoutant la syntaxe pour ouvrir le formulaire
doro

cs_ordino · Answer

J'ai trouv&#233; ce code dans l' aide access que j'ai adapt&#233; &#224; ma base.
Apr&#232;s ex&#233;cution, si je fais alt+ctrl+del une 2i&#232;me application est ouverte mais je n'ai pas trouv&#233; le moyen d'y acc&#233;der. Il manque quoi?

OpenCurrentDatabase Method Example


'The following example opens a Microsoft Access database from another application through Automation, then opens a form in that database.


'You can enter this code in a Visual Basic module in any application that can act as a COM component. For example, you might run the following code from Microsoft Excel, Microsoft Visual Basic, or Microsoft Access.


'When the variable pointing to the Application object goes out of scope, the instance of Microsoft Access that it represents closes as well. Therefore, you should declare this variable at the module level.


' Include following in Declarations section of module.



'Sub DisplayForm()
Dim appAccess As Access.Application
Dim strDB As String


    ' Initialize string to database path.
    'Const strConPathToSamples = "C:\Program " & "Files\Microsoft Office\Office\Samples\Northwind.mdb"
Const strConPathToSamples = "e:e/employeurs/employeurs.mdb"
    'strDB = strConPathToSamples & "Northwind.mdb"
        strDB = strConPathToSamples & "employeurs.mdb"


    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strConPathToSamples
    ' Open Orders form.
    appAccess.DoCmd.OpenForm "MENU G&#201;N&#201;RAL"
     appAccess.Forms("MENU G&#201;N&#201;RAL").SetFocus
End Sub

ORDINOORDINO

Ouvrir un formulaire dans une autre base

4 réponses

Discussions similaires