bonjour
besoin d'aide

voici mon 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Dépannage_AfterUpdate()
 
    If Me.Dépannage Then
    Me.Réparation.Locked = True
    Me.Travaux.Locked = True
    Me.Visite_Legale_d_Entretien.Locked = True
    End If
 
 
End Sub
 
Private Sub Réparation_AfterUpdate()
 
    If Me.Réparation Then
    Me.Dépannage.Locked = True
    Me.Travaux.Locked = True
    Me.Visite_Legale_d_Entretien.Locked = True
    End If
 
End Sub
 
Private Sub Travaux_AfterUpdate()
 
    If Me.Travaux Then
        Me.Dépannage.Locked = True
        Me.Réparation.Locked = True
        Me.Visite_Legale_d_Entretien.Locked = True
    End If
 
End Sub
 
Private Sub Visite_Legale_d_Entretien_AfterUpdate()
 
    If Me.Visite_Legale_d_Entretien Then
        Me.Dépannage.Locked = True
        Me.Réparation.Locked = True
        Me.Travaux.Locked = True
    End If
 
    If Me.Visite_Legale_d_Entretien And Me.Simple Then
        Me.[Date_prochaine_intervention] = DateAdd("d", 42, Me.[Date__intervention])
    End If
 
    If Me.Visite_Legale_d_Entretien And Me.Etendu Then
        Me.[Date_prochaine_intervention] = DateAdd("d", 42, Me.[Date__intervention])
    End If
 
    If Me.Visite_Legale_d_Entretien And Me.Deux_visites Then
        Me.[Date_prochaine_intervention] = DateAdd("d", 183, Me.[Date__intervention])
    End If
 
    If Me.Visite_Legale_d_Entretien And Me.Quatre_Visites Then
        Me.[Date_prochaine_intervention] = DateAdd("d", 92, Me.[Date__intervention])
    End If
 
 
End Sub
en sachant que Dépannage,Travaux , Réparation et Visite legal d entretien(VLE) sont des a cocher

voici mon soucis:
dans mon formulaire je veux pouvoir saisir une case a la fois (ca c OK)ex je veux comme premiere intervention que ce soit du dépannage mais lorsque je veux re saisir une intervention ex:VLE et bien il ne veut pas->il me garde en mémoire l'ancienne case a cocher donc ici dépannage

donc je suppose qu'il doit exister un moyen de remettre a zero ou autre chose!!

merci d'avance

EDIT Tofalu: Merci d'utiliser les balises codes