[VBA] remise a zero

**lg022** · 07/02/2007, 14h30

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** · 07/02/2007, 14h36

Salut,

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

**lg022** · 07/02/2007, 14h41

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

**Lou Pitchoun** · 07/02/2007, 14h44

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** · 07/02/2007, 14h45

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

**lg022** · 07/02/2007, 14h46

c'est a dire
tu c je suis pas balaise

**lg022** · 07/02/2007, 14h47

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** · 07/02/2007, 14h48

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

**lg022** · 07/02/2007, 14h49

mes cases se verouillent lorsque je coche une case
ex:des que je coche dépannage les autre se verouillent(voir le prg si c ca!!!)car niveau prg je suis une debutante
merci

**Lou Pitchoun** · 07/02/2007, 14h51

Envoyé par 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

C'est pas plus difficile. Il suffit de tester la valeur du groupe.
Tu as 4 options : pour tester la 4ème :

Code :

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

1
2
3
If Me.MonGroupe = 4 Then
....
End If

**lg022** · 07/02/2007, 14h53

oui mais mes cases a cocher sont des cases oui/non qui proviennent d'une table intervention donc ce sont des champs(cela peut poser un probleme)

**lg022** · 07/02/2007, 14h57

oui mais le groupe d'option peux t'il se faire avec des champs!!!
car si je me trompe pas, pour faire un groupe on crée des news boutons,non?
et pas avec champs sinon mes competence la sont depassé!!!
merci de m'aider

**Lou Pitchoun** · 07/02/2007, 14h58

Et bien tu as 2 solutions : la bonne et celle de la direction.. euh la moins bonne.

Soit tu gères tout avec ton groupe à option et là tu n'as plus qu'un champ dans ta table.
Et là tu sais que si la valeur est 1 alors c'est tel chose, 2 tel autre etc.

Soit tu gardes tes cases à cocher mais là il faut faire des

Code :

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

1
2
3
4
Me.Macase1 = True
Me.Macase2 = False
Me.Macase3 = False
...

partout et c'est galère...

A toi de voir.

**Tofalu** · 07/02/2007, 15h01

Je ne comprend pas votre acharnement messieurs

Option 1 : Source controle => Champ1
Option 2 : Source controle => Champ2
Option 3 : Source controle => Champ3
Option 4 : Source controle => Champ4

**lg022** · 07/02/2007, 15h04

j'essaye de faire un groupe et je vous tiens au courant
(et pour info je suis une fille)

**Tofalu** · 07/02/2007, 15h04

Non pas besoin de groupe, juste des boutons d'options

**Lou Pitchoun** · 07/02/2007, 15h04

Envoyé par lg022

oui mais le groupe d'option peux t'il se faire avec des champs!!!
car si je me trompe pas, pour faire un groupe on crée des news boutons,non?
et pas avec champs sinon mes competence la sont depassé!!!
merci de m'aider

Utilise l'assistant pour créer un groupe d'options.
Ca va tout seul.

Tu crées ton groupe,
Tu donnes les différentes valeurs possibles
Tu choisi l'option : Stocker la valeur
tu sélectionnes le champ ou stocker la valeur
Et hop c'est fini : il n'y a eu qu'à cliquer.

**lg022** · 07/02/2007, 15h11

ca marche merci

mais encore une toute petite question :comment faire pour que quand je saisie une nouvelle inter dans mon formulaire il ne garde pas la case cocher en mémoire( c'est comprehensible ou pas car je ne sais pas trop comment l'expliquer)

**Lou Pitchoun** · 07/02/2007, 15h15

C'est à dire

Si tu vas sur un nouvel enregistrement tu devrais avoir des options vierges.
enfin vide quoi...
je ne comprend pas ta question...

**lg022** · 07/02/2007, 15h18

oui c ca!!(excuse si je me suis mal exprimer)
je veux que mes cases soient vide(non coché)

puis je te posé une autre question?
si oui voila
maintenant grace a ce formulaire je veux un etat qui me gere que les depannage? est ce possible?
merci

[VBA] remise a zero

VBA Access

Discussions similaires

Partager

Partager