[Access] Activation liste/Zone texte Résolu/Fermé

Question

Bonjour,

Suite à de longues recherches, j'ai trouvé au sein de ce forum des réponses à mes questions. Mon problème concerne la mise en oeuvre de ces solutions.

Je suis sur Access 2007, j'ai un formulaire relié à une table. Ce formualire est composé de listes déroulantes dépendantes les unes des autres (par l'intermédiaire de requêtes) et de zones textes. 

Mon but: Sur l'évenement "Après Maj" d'un groupe d'options (2 options composent ce groupe),je souhaite désactiver une liste déroulante et une zone de texte. Ce groupe d'option peut prendre les valeurs "1" ou "2" selon l'option choisie. à l'ouverture du formulaire, la valeur par défaut du groupe d'option est "2".

J'ai inséré le code suivant sur l'événement "après Maj" du groupe d'option (pour le moment je me suis concentré sur la désactivation de la zone texte):

Private Sub groupeoption_AfterUpdate()
If Me.optiongroupe.Value = 1 Then
Me.DATER.enable = False
Else
Me.DATER.enable = True
End If
End Sub

/optiongroupe: est le nom de mon groupe d'option
/DATER: est le nom de ma zone texte

Ce code n'a absolument aucun effet sur ma zone texte.

Je vous remercie d'avance.

Cordialement, 

Stéphane

blux · Answer

Salut,

- as-tu fait un affichage de ta valeur saisie : msgbox Me.optiongroupe.Value pour voir si elle vaut 1
- aucune action, dis-tu ? y-a-t'il un message d'erreur ?
- dans ton code, ce n'est pas 'enable' qui devrait être, mais 'enabled'...

Je viens de faire un test chez moi, ça marche bien :Private Sub Cadre0_AfterUpdate()
MsgBox Cadre0.Value
If Cadre0.Value = 2 Then
Liste1.Enabled = False
Else
Liste1.Enabled = True
End If
End Sub--

A+ Blux            "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

zenon · Answer

Bonjour, 

Tu pourrais essayer:


If Me!optiongroupe = 1 Then 
Me!DATER.enable = False 
Else 
Me!DATER.enable = True 
End If 
End Sub 

Si ça ne marche pas, essaie d'indiquer le "chemin" complet:

If Forms!NomDuFormulaire!NomDuGroupeOptions = 1 Then
Forms!NomDuFormulaire!DATER. Enable = False ...

stef99 · Answer

Salut Blux,

Merci pour ta réponse. 
Bon alors je viens de me rendre compte en essayant de visualiser la valeur saisie avec la commande msgbox Me.groupeoption.Value qu'il me demande lorsque j'essaye d'executer le code, le nom d'une macro. Etant donné que je n'ai pas crée de macro je n'ai rien à lui proposer.
J'ai écrit ce code en lancant le générateur de code, aurais je du écrire le code en lancant le générateur de Macro? Si oui, je l'ai déjà fait et n'ai pas réussi (dc besoin d'explication).

J'ai la sensation que le code ne s'execute pas, qu'il ne se passe rien.

Je n'ai dc pas de message d'erreur si ce n'est cette fenêtre qui s'ouvre pour me demander de séléctionner une macro lorsque j'execute le code.



Salut Zenon,

J'ai éssayé ta méthode, mais je pense pas que le problème vient du code. Hormis l'erreur du enabled que j'avais faite.

blux · Answer

C'est parce que ton objet 'groupeoption' n'existe pas... Il a sûrement un autre nom ! (cadre0 ?) groupeoption est peut-être le nom de l'étiquette rattachée...

Pour avoir le nom, il faut faire un simple clic sur le cadre qui entoure les boutons d'options (en mode création) et en choisissant dans les propriétés l'onglet 'autres' on voit son 'vrai' nom...

stef99 · Answer

Nan le nom est bien groupeoption. Ce n'est pas le nom de l'étiquette. J'ai vérifié en faisant la procédure que tu m'as indiqué.

blux · Answer

je viens de regarder en détail :

Private Sub groupeoption_AfterUpdate()
If Me.optiongroupe.Value = 1 Then

Un coup, ça s'appelle groupeoption, un coup optiongroupe ! Ca ne va pas aller du tout ! Mets-toi d'accord avec toi-même et tu contenteras sûrement ACCESS :-)

stef99 · Answer

Je sais, j'avais remarqué aussi en relisant les postes, mais c'est corrigé et retesté. Tjs sans succès.
Dc pour récapituler, j'ai ce code là dans l'évenement Après Maj:

Private Sub groupeoption_AfterUpdate()
MsgBox groupeoption.Value
If groupeoption.Value = 1 Then
DATER.Enabled = False
Else
DATER.Enabled = True
End If
End Sub

/DATER est ma zone de texte qui doit se griser lorsque groupeoption = 1

Bilan: Rien ne se passe ds le formulaire en mode affichage.
         Lorsque que j'execute le code ds la Page Microsoft virtual Basic, une fenetre me demandant de sélectionner une macro s'ouvre.

Merci pour ton aide

blux · Answer

Si tu mets un msgbox "toto", l'affiche-t-il ?

Dans le cas contraire, cela veut dire que tu n'as pas mis le code sur le bon évènement (ou sur le bon objet)...

stef99 · Answer

Quand je met msgbox "toto" même problème. Il me demande toujours de lui spécifier une macro. Dc même problème.
Voici la procédure exacte que j'ai appliquée pour inscrire ce code à mon groupe option:

1. Je click sur le cadre du groupeoption de manière à ce qu'il soit surligné.
2. Je tape F4 pour afficher les propriétés
3. Je séléctionne l'onglet évenement et click sur les "..." dans la partie "Après Mag"
4. Je lance le générateur de code (la fenêtre virtual Basic s'ouvre)
5. Je tape le code puis je l'enregistre (en cliquant sur la petite disquette)
6. Je ferme la fenêtre Visual Basic.
7. Je retourne à mon formuaire en mode Création
8. Je vérifie ce qu'il y a d'écrit dans la partie Evenement, "Après Maj" : [Procédure événementielle]
9. J'enregsitre mon formulaire
10. Je le ferme et le réouvre pour le tester en Mode Affichage
11. Je remarque que rien n'a changé. (Je reçois pas de message d'erreur). Lorsque que je cliique sur l'option de mon groupe d'option correspondant à la valeur 1 et la zone de texte qui est censée se désactiver, ne se désactive pas.
12. Je retourne dc dans la fenêtre Visual Basic (pour essayer dans lancer le code de manière manuelle) et lance l'execution du code avec la petite fleche
13. Et la il me demande de spécifier une macro

Qu'est ce qui n'est pas bon dans ma méthode?

N.B: Juste pour rappeler que je suis sur Access 2007

stef99 · Answer

Nan. Il se passe rien du tout. Juste une fenêtre s'ouvre pour me demander de spécifier une macro (comme auparavant)

stef99 · Answer

Ce problème occure pour d'autre code que j'essaye de faire fonctionner sur d'autres objet. CAD pas d'action. 
J'ai reverifié si le code était au bonne endroit, sur le bon évenement, et dans le bonne objet.

Dc ma question: Y a t'il une option dans access 2007 qui permet d'activer ou de désactivité la partie évenement des propriétés d'un objet? 
Si non, une autre idée?

blux · Answer

Je viens de t'envoyer un mail avec mon adresse...

blux · Answer

J'ai bien reçu, ça marche parfaitement chez moi !!!

Je viens de regarder sur google. As-tu désinstallé récemment une version d'access ? As-tu eu 2 (ou plus) versions d'access simultanément installées sur ton poste ?

Voudrais-tu désinstaller/réinstaller access ?

stef99 · Answer

Bon me revoila.
Je viens de désinstaller et réinstaller le pack office 2007 pro. Rien a changé. 
ça marche parfaitement bien chez toi sur Access 2002? (sans rien changer à ce que j'ai fait?)

Bon je pense que la conclusion est que l'Access 2007 pro est bugué. Et que la solution du problème est de migrer sur 2002 ou 2003.
Ou as tu une dernière idée?

N.B: Merci pour avoir supprimé mon mail.

stef99 · Answer

Bonjour,

Voici la conclusion de ce problème: Je n'ai pas réussi à executer les codes VBA sous Access 2007 pro, ma solution a été de migrer sous 2003. Et la tout fonctionnnnnnnnnnneeeeeeeeeeeeeeeee !!!!!!!

Encore Merci Blux pour ton aide.

N.B: Je n'ai sais pas ou faut il clicker pour indiquer que le problème est résolue

[Access] Activation liste/Zone texte

15 réponses

Discussions similaires