Discussion :

[rjl]

Bonjour à tous,

Je me débats pour essayer de faire fonctionner un formulaire avec une cible variable.
D'un menu général, je transmets ma variable Choix (déclarée en Public).
Le module qui la reçoit ouvre le Formulaire ( DoCmd.OpenForm "F_MajAdh_A2", , , Nclub >= Choix ) sans reconnaitre la variable (et pose la question comme pour un paramètre).
Voici le code d'appel, sachant que la valeur voulue se trouve bien dans la variable :

Code :

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

1
2
3
4
5
6
On Error GoTo MaJ_Choix_Club_Err
   If (Choix <= 0) Then                         ' Traitement impossible)
            MsgBox "Choix 0 impossible Indiquez le Club à traiter"
            Exit Sub
   End If
            DoCmd.OpenForm "F_MajAdh_A2", , , Nclub >= Choix

Pire, même en frappant le bon code pour un Club, ses éléments s'affichent correctement ou pas du tout (!!) sur le formulaire (problème à dissocier).

J'utilise le même mécanisme pour une sélection de club en état et là ça marche bien !

J'ai essayé d'autres approches mais bloque toujours sur un point ou un autre !
Où suis-je en faute ? Ce n'est que le Formulaire principal qui doit être complété d'un sous formulaire pour le club !
Merci de votre aide, de vos indications et corrections.
@bientôt RJL9812

[Taoueret]

je pense qu'il te manque des " "

Code :

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

1
2
 
DoCmd.OpenForm "F_MajAdh_A2", , , "Nclub >= " &Choix

[rjl]

Bonjour Taoueret,

Merci de ta réponse ; bien que pensant avoir fait cet essai, j'ai récidivé mais, de quelque manière que je mette les Quotes, ça me produit une erreur ed compilation !
Normal, ce sont 2 zones numériques et il ne faut de Quotes que pour les zones alphanumériques (textes ou mémos).
Ca ne fait rien, on va chercher d'autres possibilités.
@+ RJL9812

[rjl]

Bon, je vous tiens informé ; ce n'est pas satisfaisant mais ça a progressé ;

J'ai maintenant l'affichage normal de ce qui a été recherché (et trouvé !).
J'ai simplement après la commande sur la table ajouté un Refresh du Formulaire (Me.Refresh).

Pour le "Choix", je peux appeler avec une autre zone, c'est celle qui se trouve dans le SELECT du Formulaire qui est prise en compte. J'avais changé de variable et ça m'interrogeait sur la nouvelle variable !
En fait, c'est la transmission de la variable (bien qu'elle soit en Public) qui ne se fait pas ! J'ai eu la même interrogation sur "Choix" en indiquant une valeur numérique !!
J'ai tenté de communiquer directement (et même avec un Cint) la valeur du contrôle de ma liste déroulante ( [Forms].[MenuAR22].[ChxClub].[Column(0)] ) d'où provient le contenu de la variable Choix... Peine perdue : je bloque sur le SELECT de la table avec un message (non référence) "Propriété ou méthode non gérée par cet Objet"

La vraie question : Comment communiquer une constante à une Commande
DoCmd.OpenForm "F_MajAdh_A2", , , Nclub >= Choix
sachant que la Commande dans l'état actuel de mes déclarations refuse de reconnaître Choix (Variable déclarée en Public) ?

Je ne fais pas le poids pour comprendre ce qui bloque :

Merci aux costaux ou à ceux qui ont déjà résolu ce type de problème s'ils peuvent me communiquer une solution.

@ bientôt RJL9812

[Jeannot45]

Où as-tu déclaré ta variable Choix

Pour quelle soit reconnue Public pour tout le projet, celle-ci doit être déclarée dans un module à part.

Bonne continuation

[rjl]

Bonsoir Jeanot45,

Merci de ta réponse ; je pense que la variable est définie comme il faut juste sous Explicite en tête de Module avant la première Sub.
De plus, j'ai découvert le mde ; la conversion en mde fait un grand travail de contrôle sur les modules ; je n'ai plus d'erreurs mais rien n'a changé sur le problème posé !
Je clos cette discussion car en 4 semaines, j'en ai lancé 18 et vais faire une "Synthèse/Mise au point" dans "Paramètres non reconnus en transmissions ce soir même.
@bientôt et encore merci RJL9814