Discussion :

[lecaire]

Salut Chers développeur,
j'ai un formulaire sur lequel je veux bien affecter une valeur à une zone de texte par un clic sur un bouton d'option.
A cet effet je place un groupe d'option avec 02 options (opt1 et opt2)sur mon formulaire avec une zone de texte(txt1).
Voici le code que je mets dans l'évènement clic du bouton opt1

Code :

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

1
2
3
if Me.opt1.value=true then
             Me.txt1.text=100
          end if

Voici le code que je mets dans l'évènement clic du bouton opt2

Code :

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

1
2
3
4
 
if Me.opt1.value=true then
             Me.txt2.text=200
          end if

A l'execution un clic sur les boutons n'affecte aucune valeur à lma zone de texe.
merci de m'indiquez ce qui ne va pas dans ces codes

[argyronet]

Bonjour,

Tes boutons d'option doivent être dépendant d'un Cadre d'option (Frame).
C'est l'objet Frame qui renvoie la valeur chose qui n'est pas rencontrée en VBA Excel ou Word voire VB6.
Donc ton code , sur l'événement AfterUpdate() du cadre doit être quelque chose comme :

Code :

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

1
2
3
4
Select Case Me!fraOptions
    Case 1 : Me!txt1=100
    Case 2 : Me!txt1=200
End Select

Et plus simple encore (si tes options ont des valeurs de 1 à n et que tu veux un multiple de 100) :

Code :

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

Me!txt1 = Me!fraOptions * 100

Argy

[lecaire]

Code :

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

1
2
3
4
5
6
7
Private Sub Cadre13_AfterUpdate()
 
 Select Case Me!Cadre13
    Case 1:  Me!txtoption = 100
    Case 2: Me!txtoption = 200
 End Select
  End Sub

conformement à vos instructions voici le code que je mets qui n'affecte toujours pas de valeurs à la zone de texte txtoption

A propos est ce un point d'exclamation (!) ou un point (.)que je dois mettre entre le Me et le nom du controle(Cadre13)
J'ai essayé le (.) et le (!) et le code ne fonctionne pas

[FreeAccess]

Bonjour,

Le code est correct.....donc vérifie que la valeur donnée à chaque case d'option correspond respectivement à 1 et 2
(voir propriété Valeur contrôle= xx )

vérifie que ton code est bien associé au cadre d'options que tu as nommé Cadre13

[Invité]

Bonjour

Une peu de lecture : Les Cases à Cocher et les Groupes d'Options dans Access

Philippe

[lecaire]

Ca Marche
en fait, je crois qu'access car tous les codes que j'executais pendant un moment ne fonctionnait pas
Bien Merci