[VBA] remise a zero

Version imprimable

Voir 40 message(s) de cette discussion en une page

[VBA] remise a zero

bonjour
besoin d'aide

voici mon code:

Code:

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

07/02/2007, 14h36
Lou Pitchoun

Salut,

Dans ta table, tu définis les valeurs par défaut à 0 (non cochée)
07/02/2007, 14h41
lg022

[VBA]remise a zero

Ca marche pas!!!!
j'ai mis la valeur a 0 mais non
tu as une autre idée
07/02/2007, 14h44
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.
07/02/2007, 14h45
Tofalu

Apparement, ce ne sont pas des cases à cocher dont tu as besoin mais des boutons d'option ...
07/02/2007, 14h46
lg022

re

c'est a dire
tu c je suis pas balaise
07/02/2007, 14h47
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
07/02/2007, 14h48
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
07/02/2007, 14h49
lg022

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
07/02/2007, 14h51
Lou Pitchoun
Citation:

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:

1 2 3 If Me.MonGroupe = 4 Then .... End If
07/02/2007, 14h53
lg022

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)
07/02/2007, 14h57
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
07/02/2007, 14h58
Lou Pitchoun
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:

1 2 3 4 Me.Macase1 = True Me.Macase2 = False Me.Macase3 = False ...
partout et c'est galère...

A toi de voir.
07/02/2007, 15h01
Tofalu

Je ne comprend pas votre acharnement messieurs :mouarf:

Option 1 : Source controle => Champ1
Option 2 : Source controle => Champ2
Option 3 : Source controle => Champ3
Option 4 : Source controle => Champ4
07/02/2007, 15h04
lg022

j'essaye de faire un groupe et je vous tiens au courant
(et pour info je suis une fille)
07/02/2007, 15h04
Tofalu

Non pas besoin de groupe, juste des boutons d'options ;)
07/02/2007, 15h04
Lou Pitchoun

Citation:

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.
07/02/2007, 15h11
lg022

ca marche merci :D
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)
07/02/2007, 15h15
Lou Pitchoun

C'est à dire :koi:

Si tu vas sur un nouvel enregistrement tu devrais avoir des options vierges.
enfin vide quoi...
je ne comprend pas ta question...
07/02/2007, 15h18
lg022

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

Voir 40 message(s) de cette discussion en une page