Discussion :

[lolo_bob2]

Bonjour à tous

voila j'ai une case à cocher nommée "bon à utiliser" et j'ai deux champ date un nommé "date de contrôle" l'autre nommé " validé conforme le"
Quand je rempli mon formulaire je rempli la date de contrôle en premier et apres une serie d'autre champ ainsi que liste déroulante...et 2 autres cases à cocher "à rebuter" et "a reparer"
Je voudrais que lorsque que j'arrive à la case a cocher "bon à utiliser" et que je la coche, la date de controle se retrouve dans le champ date "validé conforme"
Est ce que cela est possible ?
Merci beaucoup
A+

[gbuxo]

Salut,
Sur l'évènement "Sur clic" de ta case à cocher tu mets :
If Case_à_cocher.value=true then date2.value = date1.value
A+

[Shansson]

En créant un évenement _Click sur la case à cocher du style :

Code :

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

1
2
3
Private Sub MaCaseCocher_Click()
MonChampDateValide.Value = MonChampDateControle.Value
End Sub

[lolo_bob2]

merci beaucoup a vous deux

j'essaye tt ca dès demain..et je vous dis si ca fonctionne

A+

[gbuxo]

J'avais oublié, pour être complet tu rajoute :

Code :

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

If.......then......else date2.value = ""

Tu vides ton champs Date2 en décochant.
A+

[lolo_bob2]

Ok merci beaucoup ça fonctionne mais j'ai toujours un problème :

Lorsque je coche ma case à cocher la date que je voulais apparait bien et disparait bien par contre cette date apparait dans un autre champ pourtant la case à cocher et ce champ ne sont pas liés
voici les autres codes que j'ai avec ce formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If A_réparer_need_repairs.Value = True Then
   Niveau_de_réparation_level_of_repair.Enabled = True
Date_de_réparation_date_of_repair.Enabled = True
  Else
   Niveau_de_réparation_level_of_repair.Enabled = False
Date_de_réparation_date_of_repair.Enabled = False
  End If
 
  If Accord_client_customer_approval.Value = True Then
Date_accord_client_date_customer_approval.Enabled = True
  Else
    Date_accord_client_date_customer_approval.Enabled = False
  End If

la c'est sur activation du formulaire

et ces codes là sur apres mise a jour

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
Private Sub A_réparer_need_repairs_AfterUpdate()
If A_réparer_need_repairs.Value = True Then
   Niveau_de_réparation_level_of_repair.Enabled = True
Date_de_réparation_date_of_repair.Enabled = True
  Else
   Niveau_de_réparation_level_of_repair.Enabled = False
Date_de_réparation_date_of_repair.Enabled = False
  End If
End Sub
Private Sub Accord_client_customer_approval_AfterUpdate()
If Accord_client_customer_approval.Value = True Then
Date_accord_client_date_customer_approval.Enabled = True
  Else
    Date_accord_client_date_customer_approval.Enabled = False
  End If
End Sub

Est ce que je devrais pas ajouter le nouveau code de la case àcocheraussi sur apres mise à jour ?

c'est à dire

Code :

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

1
2
3
4
5
6
7
Sub Private  Utilisable_ok_for_use_AfterUpdate()
If Utilisable_ok_for_use.Value = True Then
Validé_conforme_le_validated_conform.Value = Date_du_contrôle_checking_date.Value
Else
Validé_conforme_le_validated_conform.Value = ""
End If
End Sub

Merci beaucoup
A+