Discussion :

[SpyesX]

Bonsoir!
J'ai un petit problème sur un de mes formulaires portant sur une facture.
Je m'explique:
Une facture peut être "En cour", "Réglée", "Offerte", "Impayée". Pour cela j'ai utilisé un groupe d'options. Cette même facture peut être réglée en "Espèces", "Chèque", "Virement", " - - - -"(si elle n'a pas encore été réglée).Pour cela j'ai utilisé une zone de liste modifiable.

Mon souci c'est qu'une facture "En cour" (Valeur 2 dans le groupe d'options) est obligatoirement non réglée donc "----" dans ma zone de liste modifiable.

Alors j'aimerais désactiver ou "griser" ou rendre impossible à modifier ma zone de liste si la facture est "En cour".
Inversement si une facture est "Réglée", payée en chèque, si je la met en "En cour", ma zone de liste mdifiable reprendra la valeur par défault donc "----".

Mais je n'ai aucune idée de la marche à suivre et en tant que débutant... je suis un peu perdu.
Auriez vous une piste afin de me guider??

[User]

tu peux utiliser les évènement AfterUpDate de ton group d'options (group):

et l'évènement Current de ton form:

donc dans ton group d'option valeur=1 pour "En cours"
et sur AfterUpDate:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Group_AfterUpdate()
 
   If Group.Value = 1 Then
   Liste.Enabled = False
   Else
   Liste.Enabled = True
   End If
 
End Sub

et sur l'évènement Current de ton form:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
   If Group.Value = 1 Then   ' "En cours" 
   Liste.Enabled = False  ' désactive la liste 
   Else
   Liste.Enabled = True
   End If
 
End Sub

@+

[SpyesX]

Merci je vais essayer ça
@+

[SpyesX]

Merci de ta réponse User mais j'ai un petit problème.

Voilà mon code sur ma zone d'option

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Reglement_AfterUpdate()
 
   If Reglement.Value = 2 Then
   Modifiable108.Enabled = False
   Else
   Modifiable108.Enabled = True
   End If
 
End Sub

mais je ne comprend pas où mettre la suite. Donc ce code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current() 
 
   If Reglement.Value = 2 Then   ' "En cours" 
   Modifiable108.Enabled = False  ' désactive la liste 
   Else 
   Modiafiable108.Enabled = True 
   End If 
 
End Sub

Je ne trouve pas l'évènement Current... Est-ce Lors de la modification des données? Ca je ne voit que ça et, ça ne marche pas

[SpyesX]

Non ben non en fait tt marche bien!!!
Pas besoin d'utiliser Current. Ca marche sans
Merci BEAUCOUP User

Mais comment faire prendre la valeur "- - - -" à ma liste modifiable lorsque "En cour" est cochée?

EDIT:
Non en fait j'ai trouvé il suffit de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Reglement_AfterUpdate()
 
 
   If Reglement.Value = 2 Then
   Modifiable108.Value = 1 'id_ModeDeReglement dans la table correspondante qui donne la valeur "- - - - - - "
   Modifiable108.Enabled = False
   Else
   Modifiable108.Enabled = True
   End If
 
 
End Sub