Discussion :

[nico86]

bonjour a tous.

Je rencontre un petit probleme

En fonction de la valeur d'un champs (1, 2 ou 3) d'un formulaire je fais apparaitre un sous formulaire.
Jusque là pas de probleme.

Le soucis que je rencontre c'est que lors de l'ouverture directe de celui-ci, ma macro est prise en compte (macro sur condition).

Alors que lorsque je l'ouvre à partir d'un autre formulaire (evenement sur double clic d'un champ), cette meme macro ne fonctionne pas.

Je voudrais savoir si c'est normal ou pas et ci quelqu'un pouvais m'apporter un correctif je lui en serai fort reconnaissant.

Merci d'avance.

[helas]

Ou se situe la macro qui fait apparaitre ou disparaitre le sousformulaire ?

[nico86]

elle se situe au niveau d'une liste modifiable (sur changement) cette liste fait parti du formulaire principale de la fenetre que j'ouvre par double clic dans le formulaire principal de la base.

[nico86]

visiblement personne n'est inspiré....lol

Je vais essayer de détailler.
J'ai un formulaire devis.
qui est composé de plusieurs sous form.
Le denier est affiché en mode feuille de donnée.
lorsque je double clic sur le champ [opération] j'ouvre un formulaire ou on choisi dans une liste déroulante le nom de l'opération.

En fonction de l'opération choisie, un champ nommé [index OP]est renseigné.
Il me renvoie une valeur de 1 à 3 en fonction du type d'opération choisie. (interne / sous traitance / fourniture)

En fonction de ce numéro j'ai cré une macro qui m'affiche un sous formulaire dans cette fenetre qui est différent suivant le type d'operation.

Le probleme c'est que lorsque j'ouvre ce formulaire de choix d'opération directement l'affichge et le masqage des différents formulaire se passe sans probleme.

Mais lorsque je l'ouvre par double clique sur le champ opération du formulaire devis, il ne se passe rien. (pas de message d'erreur mais pas d'affichage et de masquage non plus.)

[helas]

Est-ce que ça pourrait ressembler à ceci ?

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
 
Private Sub liste_Change()
 
 Me!sousformulaire1.Visible = False
 Me!sousformulaire2.Visible = False
 Me!sousformulaire3.Visible = False
 
 Select Case Me!liste
 Case 1
  Me!sousformulaire1.Visible = True
 Case 2
  Me!sousformulaire2.Visible = True
 Case 3
  Me!sousformulaire3.Visible = True
 End Select
 
End Sub

[nico86]

oui dans l'idée c'est ca , sauf que je ne l'ai pas fait sous VBA mais via une macro avec condition.

[nico86]

En fait, je viens de me rendre compte que le probleme n'est pas lié a la macro, elle fonctionne parfaitement. mais ma requete lié pour renvoyer la valeur d'index ne fonctionne pas lorsque le formulaire est ouvert par double clique u niveau du formulaire devis.

Merci a tous pour votre aide. je vais essayer de résoudre le probleme de la requete.

[helas]

Un récapitulatif :
1 formulaire1 avec un champ Opération qui ouvre un formulaire2 sur Double-Clic
Dans le formulaire2 on selectionne l'opération qui execute une macro qui va afficher les sousformulaires en fonction du choix 1,2 ou 3
la macro ne fonctionne que si le formulaire2 est ouvert directement mais ne fonctionne pas si le formulaire2 est ouvert par le double-clic du champ Opération

J'ai fait l'expérience et ça fonctionne dans les 2 cas
La liste déroulante ListeOperations me donne directement 1,2 ou 3 donc pas besoin de stocker la valeur dans un champ index OP
la macro est lancé par

Code :

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

1
2
3
4
 
Private Sub ListeOperations_Change()
 DoCmd.RunMacro "NomMacro"
End Sub

la macro "NomMacro" contient
1 action DefinirValeur
1 action DefinirValeur
1 action DefinirValeur
1 action Fermer

pour chaque action DefinirValeur
Element = [Formulaires]![FormulairePrincipal]![SousFormulaire1].[Visible]
Expression = VraiFaux([Formulaires]![FormulaireChoixOperations]![ListeOpérations]=1;Vrai;Faux)

le 1 devient 2 pour le second sousformulaire , etc