Discussion :

[swizerman]

c'est la premiere fois que je fais du access.

J'ai un form (Recherche) dans lequel j'ai 2 radio bouton :

Hardware
Software

J'aimerais que lorsque je click sur le radio bouton hardware (OptHardware). Il me enabl;e ma liste qui correcpond a ma liste de hardware LstHard.

Lorsque je clockl sur le radio bouton du software (OptSoftware) il me enable ma liste qui correspond a software soit LstSoft.

J'aimerais aussi que je puisse ''slectionner" 1 des 2 radio bouton afin que de pas pouvoir enabler les 2 liste deroulantes....

J'ai fait ce code la jusqu a present mais ca ne semble pas fonctionner....

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
Private Sub OptHardware_Click()
 
If OptHardware.OnClick Then
OptSoftware.Enabled = False
Else
LstHard.Enabled = True
End If
 
 
End Sub
 
Private Sub OptSoftware_Click()
 
If OptSoftware.OnClick Then
OptHardware.Enabled = False
Else
LstSoft.Enabled = True
End If

[LedZeppII]

Bonsoir,

Le problème dans ton code est que tu testes la propriété OnClick au lieu de Value.

Je pense que Les Cases à Cocher et les Groupes d'Options pourrai t'aider.

Les groupes d'options peuvent contenir plusieurs cases d'option ou plusieurs cases à cocher.
Au sein d'un groupe d'options, un seul élément (case d'option ou case à cocher) ne peut être coché à la fois.
Lorsqu'on en sélectionne un, ça de-sélectionne tous les autres.

A+

[swizerman]

J'ai regardé dans link et j'ai produit le code suivant.

Est ce que c'Est possible de savoir qu'elle est mon erreur ?

J'ai fais le code suivant :

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
Private Sub OptHard_Click()
 
 
If OptHard.Value = Checked Then
LstHard.Visible = True
LstSoft.Visible = False
OptSoft.Value = Unchecked
End If
 
 
End Sub
 
Private Sub OptSoft_Click()
 
If OptSoft.Value = Checked Then
LstSoft.Visible = True
LstHard.Visible = False
OptHard.Value = Unchecked
End If
 
 
End Sub

[swizerman]

Je viens de voir mon erreur ... merci

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
If OptHard.Value = true Then
LstHard.Visible = True
LstSoft.Visible = False
OptSoft.Value = Unchecked
End If
 
 
End Sub
 
Private Sub OptSoft_Click()
 
If OptSoft.Value = true Then
LstSoft.Visible = True
LstHard.Visible = False
OptHard.Value = Unchecked
End If