Discussion :

[Joze28]

Bonjour,

Je voudrais que mon champs "Conformité" qui est à cocher se fasse automatique lorsque mon autre champs est de couleur vert ou jaune.

Explique :

1er champ contient une mise en forme de couleur (rouge, vert, jaune) lorsque celui-ci est vert ou jaune j'aimerais que ma case à cocher "Conformité" se coche automatiquement. Mais lorsqu'il est rouge, je ne veut pas qu'il soit cocher. Est-ce possible?

[marot_r]

Quelles sont les conditions du changement de couleur ?

À mon avis il va falloir implanter les mêmes conditions, via du VBA, pour ta case à cocher.

A+

[Joze28]

Donc voici mes conditions

1) Valeur du champ inférieur à : Date()-365 (se mets en rouge)
2) Valeur du champ entre : Date()-365 et Date()-62 (se met en vert)
3) Valeur du champ entre : Date()-62 et Date() (se met en jaune)

Merci!

[jimbolion]

Joze28,

Tu peux récupérer les valeurs d'un contrôle en utilisant la propriété BackColor.

En fonction de la valeur (vérifie d'abord les codes) un select case te permettra facilement de cocher ta case.

JimBoLion

[marot_r]

Merci Jean-Marie, je n'y avais pas pensé.

@Joze28 :

• Ta case à cocher est-elle associée à un champ booléen dans ta source de donnée ?
• Es-tu dans un formulaire en mode continu ou "1 enr à la fois" ?

A+

[Joze28]

Merci pour vos conseils, mais je suis vraiment qu'à mes débuts dans Access. Comment exactement j'applique vos recommandations?
Techniquement comment je fais?
Qu'est-ce qu'un champ booléen? Mon formulaire est de ce qui est le plus simple, un enregistrement à la fois!

Meric de votre patience...

[jimbolion]

Joze28,

A la relecture de ton message je vois que tu parles de condition de mise en forme.

Tu vas donc gérer sur les mêmes conditions ton chekBox que ta mise en forme conditionnelle ainsi sur la propriété événement :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Diff_Date = DateDiff("d", Me.Dte_Condition, Date)
    Select Case Diff_Date
    '
    Case Is <= 62
        Me.ChkBox.Value = True
    Case Is <= 365
        Me.ChkBox.Value = True
    Case Else
        Me.ChkBox.Value = False
    End Select

Attention, il faut que ton champ soit dépendant de la source de données que tu utilises, dans le cas contraire c'est l'ensemble des CheckBox qui sera coché ou décoché. Pourquoi ne pas exécuter une requête avant le lancement de ton formulaire qui permettrait de faire ce calcul. Cette requête pourrait être ainsi réutilisée lors de différents appels et pas nécessairement à l'affichage de ton formulaire...



JimBoLion

[marot_r]

Un champ booléen est un champ qui peut contenir 3 valeurs seulements : Null, Vrai, Faux. Pour représenter Vrai/Faux on utilise aussi Oui/Non ou -1/0. On les appelle aussi champ Vrai/Faux ou champ Oui/Non.

Note culturelle :-), booléen vient de M. BOOLE l'inventeur de la logique binaire (http://fr.wikipedia.org/wiki/George_Boole).

On se sert généralement de case à cocher pour les afficher.

Un champ lié (ou associé) est un champ d'un formulaire qui affiche et permet de modifier un champ correspondant dans la source de données.

Personnellement j'associerai une procédure à l'événement sur Activation (OnCurrent) de l'enregistrement et je mettrai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
select case me.NomTonChampColore 'Me. représente le formulaire courrant.
   case < Date()-365 'Rouge
      me.NomTaCase=false
 
   case Date()-364 to Date()-62 'Vert
      me.NomTaCase=true
 
   case Date()-61 to Date() 'Jaune
      me.NomTaCase=true
 
   case else
      Error(5) 'Cas impossible, juste pour attraper d'éventuelles erreurs dans la logique de sélection.
 
end select

Si tu veux travaller avec les couleurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
select case me.BackColor 'Me. représente le formulaire courrant.
   case VbRed       
      me.NomTaCase=false
 
   case vbGreen
      me.NomTaCase=true
 
   case vbYelow      
      me.NomTaCase=true
 
   case else
      Error(5) 'Cas impossible, juste pour attraper d'éventuelles erreurs dans la logique de sélection.
 
end select

VbRed, VbGreen et vbYelow sont des couleurs 'standard', il se peut qu'elles ne correspondent pas à celles que tu as choisies. Dans ce cas là les remplacer par leur "Valeur" (ex : vbRed=255) indiquée dans la propriété du contrôle.

A+

[Joze28]

Dans quoi je mets l'événement : "sur clic", "Avant MAJ", "Ap`res MAJ".... je n'ai pas sur Activation (OnCurrent) de l'enregistrement

[Joze28]

à JM : Dans quel propriété d'événements j'inscris le code??? Dois-je me positionner sur mon champs de couleur (date) ou sur ma case à cocher?

[jimbolion]

Joze28,

Quand tu parles que ton premier champ contient une mise en forme de couleur (97 n'utilisant pas la forme conditionnelle j'exclue cette hypothèse), c'est que la couleur calculée est forcément associé à un événement existant (sur entrée / sur chargement ou sur clic mais quelque part et je n'ai pas le formulaire sous les yeux pour te le dire).

Une fois localisé cet événement, il te suffit juste de rajouter ou intégrer le checkbox (Me.ChkBox.Value = False) dans les conditions.

plus simplement peux tu m'envoyer l’événement associé voire mieux ton application (si pas de données sensibles bien évidemment). Dans ce cas indique mois le nom du formulaire.


JimBoLion

[Joze28]

aide.doc

Je ne peux pas t'envoyer mon fichier Access car il y a trop d'info confidentiel. Mais je t'ai préparer un résumé avec des capture d'écran dans le fichier joint.

Merci!

[jimbolion]

Joze28,

Même si c'est pas la panacée j'y vois un peu plus clair donc il va falloir créer un événement sur le changement d'onglet

Donc tu sélectionne ton onglet et sur la liste des propriétés tu cherches Sur Changement puis le bouton ... à droite. Tu choisis ensuite générateur de code.
Tu vas ensuite avoir le nom de ta procédure et son end (il faudra taper entre ces lignes).

Ton onglet possède 2 choix (détails de l’unité et conformité), il faut bien veiller à gérer l’événement sur l'onglet 2 (dont la valeur est représentée par 1) car l'onglet 1 sa valeur vaut 0.

Lorsque dans ton code on aura mis le test il faudra calculer la différence de date et cocher la case correspondant. Alors imaginons que ton onglet s’appelle CtlTab_Detail, que ton champ Date reçu signé en mise à jour s’appelle PCA_dateMAJ et que ta case s’appelle chk_dateMAJ ton code devrait ressemble à peu près à çà :

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
Private Sub CtlTab_Detail_Change()
    '
    If Me.CtlTab_Detail = 1 Then
	If isdate(Me.PCA_dateMAJ) then		' contrôle si le champ est bien de type date
	    	Diff_Date = DateDiff("d", Me.PCA_dateMAJ , Date) ' calcule la difference de date en Jours à la date d'aujourd'hui
    		Select Case Diff_Date
   		 '
    		Case Is <= 62				' entre 0 et 62 jours
        			Me.chk_dateMAJ .Value = True
    		Case Is <= 365				' entre 62 et 365
        			Me.chk_dateMAJ .Value = True
    		Case Else					' dans les autres cas
        			Me.chk_dateMAJ .Value = False
   		 End Select
	End if
    End If
    '
End Sub

Voili voilou

Il n'y a plus qu'à enregistrer et vérifier ce qui se passe !

JimBoLion

[Joze28]

:-( Ça ne fonctionne pas. Voir ma pièce jointe pour le message d'erreur.

PS : Mon onglet se nomme : CltTab54
Mon champ date : PCA_date_MAJ
Ma case à cocher : Conformite_PCA

[jimbolion]

Joze28,

Regarde bien mon code et le tien. Tout est dit dans le message....


Ton Select Case il est ou ?

JimBoLion

[Joze28]

Désolé de mon ignorance, je suis vraiment débutante.... mais c'est quoi mon select case??? Mon 2e onglet?

[Joze28]

Ok je viens de comprendre... j'essai!

[jimbolion]

Joze28,

Le select case correspond aux cas de situation renvoyé par le nombre de jours s'écoulant entre la date d'aujourd'hui et la date calculée.


JimBoLion

[Joze28]

JJimBoLion,
Ok je comprends, mais maintenant un nouveau message d'erreur..... je suis découragé...

[jimbolion]

Joze28,

En forgeant on devient forgeron

Sans même avoir ton projet, vérifies le nom de ton contrôle... sur tes exemples je vois 2013_...

Mais ta solution est proche ... courage


Donc à chaque ligne d'erreur tu avances


JimBoLion