Discussion :

[lg022]

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

[Lou Pitchoun]

Salut,

Dans ta table, tu définis les valeurs par défaut à 0 (non cochée)

[lg022]

Ca marche pas!!!!
j'ai mis la valeur a 0 mais non
tu as une autre idée

[Lou Pitchoun]

Et si tu essayais par un pur hasard de modifier la valeur de la case à cocher.

Et puis, chaque fois que tu coches une case : tu verrouilles tes cases à cocher, tu les déverrouilles quand ?? parce que là j'ai l'impression que tu verrouilles tout.

[Tofalu]

Apparement, ce ne sont pas des cases à cocher dont tu as besoin mais des boutons d'option ...

[lg022]

c'est a dire
tu c je suis pas balaise

[lg022]

j'ai essayé avec le grpe d'option mais lorsque je coche VLE j'ai une date a afficher et avec le grpe j'arrive pas a retrouver les date

merci de m'aider

[Tofalu]

C'est à dire un autre contrôle : celui en forme de rond au lieu de la case carré. Ainsi qu'une seule option ne peut être activée à la fois