Discussion :

[AgriPhilou]

Bonsoir à tous,

Dans un groupe d'option j'ai 8 valeurs, lorsque je clique sur l'une d'autre elle je voudrais renvoyer un texte dans un champ du formulaire qui s'appelle "Libelle".

J'ai fais des essais avec ce code mais sans résultat.
Pourriez-vous m'aider ?

Le code :

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
Private Sub Cadre52_AfterUpdate()
Dim x As Integer, Libelle As String
Select Case x
  Case 1: Me.Libelle = "A"
  Case 2: Me.Libelle = "B"
  Case 3: Me.Libelle = "C"
  Case 4: Me.Libelle = "D"
  Case 5: Me.Libelle = "E"
  Case 6: Me.Libelle = "F"
  Case 7: Me.Libelle = "G"
  Case 8: Me.Libelle = "H"
  Case Else: Me.Libelle = "Inconnu"
  Me.Libelle.Requery
End Select
End Sub

Merci d'avance.

[ClaudeLELOUP]

Bonjour,

Ceci est en cause :

Code :

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

Select Case x

C'est la valeur de ton cadre que tu dois tester.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cadre52_AfterUpdate()
 
Select Case Cadre52
  Case 1: Me.Libelle = "A"
  Case 2: Me.Libelle = "B"
  Case 3: Me.Libelle = "C"
  Case 4: Me.Libelle = "D"
  Case 5: Me.Libelle = "E"
  Case 6: Me.Libelle = "F"
  Case 7: Me.Libelle = "G"
  Case 8: Me.Libelle = "H"
  Case Else: Me.Libelle = "Inconnu"
  End Select
End Sub

Mais tu peux faire plus court :

Code :

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

1
2
3
Private Sub Cadre52_AfterUpdate()
Me.Libelle = Chr(64 + Me.Cadre52)
End Sub

[jimbolion]

AgriPhilou,

Tu dois récupérer la valeur de ton x quelque part je suppose :

X=moncontrole.value, ensuite tu peux utiliser le select case à ta guise.
Concernant le requery il est à mon humble avis inutile

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
18
19
20
21
22
23
24
Private Sub Cadre52_AfterUpdate()
Dim x As Integer, Libelle As String
Select Case x
  Case 1
    Me.Libelle.Caption = "A"
  Case 2
    Me.Libelle.Caption = "B"
  Case 3
    Me.Libelle.Caption = "C"
  Case 4
    Me.Libelle.Caption = "D"
  Case 5
    Me.Libelle.Caption = "E"
  Case 6
    Me.Libelle.Caption = "F"
  Case 7
    Me.Libelle.Caption = "G"
  Case 8
    Me.Libelle.Caption = "H"
  Case Else
    Me.Libelle.Caption = "Inconnu"
End Select
    Me.Libelle.Requery
End Sub

JimBoLion

[jimbolion]

Claude,

Nous nous sommes encore empressés de répondre à la même question, bien le bonjour

JimBoLion

[AgriPhilou]

Un très grand merci à vous deux,

Bonne journée.

@Bientôt.