Discussion :

[AndréPe]

Bonjour,
J'ai utilisé avec succès la FAQ de Papy_Turbo https://access.developpez.com/faq/?p...uvrFormAutrBDD pour afficher un état d'une base distante, mais j'échoue pour ouvrir un formulaire.

la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.FormOpen "NomFormulaire", acDesign

renvoie une erreur : ne trouve pas la procédure en question, alors que tout se passe bien pour les états.
Il indique la possibilité d'ajouter le nom du projet XXX à "Application" sous la forme "ApplicationXXX."formOpen...."
J'ai essayé en vain de remplacer les "xxx" par le nom du projet, mais ça échoue, alors que pour les états j'ai simplement omis les "xxx".
Si vous avez déjà utilisé ce genre de procédure, merci de me dire ce que vous pensez de mon problème.
Cordialement

[marot_r]

Bonjour.

FormOpen n'est pas une procédure de Access mais un procédure définie par l'utilisateur.

Donc à mon avis il suffit d'enlever le Application..

A+

[AndréPe]

Bonjour et merci de ta réponse.
La suppression de "Application." ne change rien.

Je pense que cela provient de la référence,( mais quand on ajoute une référence, le nom est donné par le système et on ne peut le modifier), car dans le Portail où l'état se laisse afficher, le formulaire s'ouvre bien.
Dans un autre Portail (2 bases liées) ça ne va pas pour les 2.
La procédure appelée n'est pas reconnue, alors qu'elle l'est dans le premier Portail.

Je continue à chercher ....
A+

[marot_r]

OK, essaye quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CodeDb.FormOpen

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TaBDQuiAFormOepn.TonModule.FormOpen

A+

[Invité]

bonjour,

en respectant les consignes de papyturbo, ça fonctionne très bien :

1) Relever le nom de la base fille à lier dans Visual Basic Editor : Ouvrir la BDD puis appuyer sur ALT+F11, aller dans le menu 'Outils' puis 'Propriétés de XXX' avec XXX le nom de l'application à conserver. Si ce nom est complexe (espaces, longueur, accents...), il est possible de le simplifier en le renommant par le Nom du Projet après avoir cliquer sur le menu 'Propriétés de XXX'

2) Fermer la base précédente

3) Depuis la base mère, aller dans Visual basic Editor (Alt+F11) : menu outils -> références, cliquer sur parcourir, sélectionner le bon type de fichier dans la liste déroulante (*.accdb ou *.mdb selon le type de bdd à lier) puis sélectionner la bdd et cliquer sur ouvrir.

=> On vient d'ajouter en référence à la bdd mère, la BDD fille. On peut alors appeler les fonctions de la base fille par XXX.MaFonctionPublique(...) et par exemple les fonctions de la faq proposées par pepeturbo qui doivent être présentes dans la base fille (FormOpen, ReportOpen)

[AndréPe]

@galoir
Bonjour,
Tes explications m'ont surtout appris comment modifier la désignation de la base fille, et maintenant le formulaire s'ouvre après avoir signalé qu'il lui manque des éléments , les tables liées, ce qui peut s'expliquer par l'absence de lien avec sa base de données.

Autre point critique : le point entre la désignation de la base fille et le nom de la fonction XXX.MaFonctionPublique(...)
J'ai du le supprimer dans les deux procédures pour ne pas avoir d'erreurs.
Si j'essaie de le mettre, une erreur de compilation ("fin d'instruction attendue") apparaît ligne 1 dans la procédure de la base fille lots de l'écriture du code, 'AdhGest' étant la désignation de la base fille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function AdhGest.FormOpen(FormName As String)
DoCmd.OpenForm FormName
End Function

Merci de ton aide.
Cordialement

[Invité]

Ne pas modifier le nom de la fonction dans la base fille, ce nom doit rester formopen, sans adhgest...

Pour l appel de cette fonction depuis la base mere, ecrire alors adhgest.formopen pour signaler a la base mere que l on appelle la fonction formopen de la base fille adhgest

[AndréPe]

Voici les codes que je pense avoir correctement modifié suivant tes conseils.
Il se produit une erreur ligne 4 de la procédure mère : "ne peut pas trouver la procédure "AdhGest.formOpen".
Base mère appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call AffForm("AdhGest")

Base mère procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub AffForm(Base)
stdocname = "Membres"
FonctNom = Base & ".FormOpen"
Run FonctNom, stdocname
DoEvents
End Sub

Base fille procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function FormOpen(FormName As String)
DoCmd.OpenForm FormName
End Function

.
Ton avis sera le bienvenu.

[Invité]

bonsoir,

ma fonction dans la bdd mère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function RunFunction(ByVal Base As String, ByVal Func As String, ByVal Arg1 As String)
   Run Base & "." & Func, Arg1
End Function

Appel : RunFunction "AdhGest", "FormOpen", "Membres"

[AndréPe]

Bonjour,
J'ai essayé de tenir compte de tes suggestions, mais je dois avouer que je suisunn peu perdu.
Quelle doit être la procédure pour la BD fille ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function FormOpen(FormName As String, OpenArgs As String)
DoCmd.OpenForm FormName, OpenArgs
End Function

ne fonctionne pas.
Merci de ton aide
A+

[Invité]

Bonjour,

Mettre dans la base fille la fonction 'formOpen' de papyturbo

[AndréPe]

C'est fait et ça fonctionne si la base fille n'utilise pas de tables attachées à une autre base.
Mais cei est une autre histoire ....
Meerci donc pour votre aide.
Cordialement