Discussion :

[lisepouliot]

Bonjour,

Est-ce possible dans un formulaire tel que celui-ci:


de pouvoir visualiser en jaune tous les samedis et dimanches et à partir de ces deux tables



d'aller chercher et d'attribuer les couleurs déjà établies dans la table [DescriptionJourFeries] directement dans mon formulaire du départ de ma demande.

[Jean-Philippe André]

Salut,

tu peux regarder les solutions proposees ici :
http://arkham46.developpez.com/artic...ss/formdialog/
et la :
http://arkham46.developpez.com/artic...utboxplus/doc/

[User]

Bonjour,

Le code mentionné dans les liens permet de choisir une couleur à partir d'une palette de couleurs.

Personnellement, pour le champ Couleur, plutôt que d'utiliser un type texte avec les paramètre RGB, j'utiliserai plutôt un type entier long.

RGB(195,80,77)=5066944
RGB(59,129,178)=9732411
RGB(255,242,0)=62207
RGB(237,28,36)=2366701

Ensuite, il faudrait faire le lien dans une requête R_JourFerie, entre les 2 tables sur le champ IDJRFerie :

Code sql :

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

1
2
SELECT T_JourFerie.JourFerie, T_DescriptionJourFerie.Description, T_DescriptionJourFerie.Couleur
FROM T_JourFerie INNER JOIN T_DescriptionJourFerie ON T_JourFerie.IDJRFerie = T_DescriptionJourFerie.IDJRFerie;

Enfin, utiliser cette requête sur l'événement changement de la zone de texte contenant le jour sur le formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DateJour_Change()
Dim Couleur As Long
 
   If Nz(Me.DateJour.Text, "") <> "" Then
      Couleur = Nz(DLookup("Couleur", "R_JourFerie", "JourFerie=#" & Format(Me.DateJour.Text, "mm/dd/yyyy") & "#"), vbWhite) 'Renvoie la couleur associé au jour férie, si le jour n'est pas trouvé renvoi la couleur blanc.
   Else
      Couleur = vbWhite
   End If
 
   Me.DateJour.BackColor = Couleur
 
End Sub

Ici, je suppose que la zone de texte se nomme DateJour.

Je vous joins la base pour tester...

Cdlt,

[lisepouliot]

Super ça marche, j'ai une autre question sur ce procédé. Puis-je interdire la saisie de données ou voir un message si la date d'un jour férié est sélectionnée?

[User]

Tant mieux,

Pour afficher un message si le jour est férié, il faut modifier légèrement le code comme suit :

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
Private Sub DateJour_Change()
Dim Couleur As Long
 
   If Nz(Me.DateJour.Text, "") <> "" Then
      Couleur = Nz(DLookup("Couleur", "R_JourFerie", "JourFerie=#" & Format(Me.DateJour.Text, "mm/dd/yyyy") & "#"), vbWhite)
      Me.DateJour.BackColor = Couleur
 
         If Couleur <> vbWhite Then ' si férié
            MsgBox "Jour férié - Saisie des rendez-vous impossible !", vbExclamation
         End If
   Else
      Couleur = vbWhite
      Me.DateJour.BackColor = Couleur
   End If
 
End Sub

Dans ce code j'utilise la fonction MsgBox, pour afficher un message dans le cas où un jour férié a été choisi.

Code :

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

MsgBox "Jour férié - Saisie des rendez-vous impossible !", vbExclamation

Note : l'option vbExclamation permet d'afficher un point d'exclamation avec le message...

Cdlt,

[lisepouliot]

Tout fonctionne bien mais lorsque j'apporte ma base au bureau ça ne fonctionne pas car ici au bureau nous avons ACCESS 2013 et à la maison je suis sous ACCESS 2007 comment puis-je régler mon problème concernant le type de données Date/Heure que je veux qui soit à la couleur correspondante au congé férié et qui empêche de saisir des données.

[User]

Bonjour,

Quand vous dites que ça ne fonctionne pas, vous avez un message d'erreur ou la zone de texte reste blanche quand vous choisissez un jour férié ?

Cdlt,