renvoi d'une couleur dans une etiquette

**chuspyto** · 03/10/2009, 21h56

bonsoir j' ai un probleme,je me suis inspiré d'un agenda V17 pour la gestion des modification des couleurs mais le probleme que je rencontre c'est que lors de la mise a jour il me renvoi dans l'etiquette concernée toujours la meme couleur noire.il ne prend pas en compte les couleurs rentrée.voici un extrait du 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
Do While (RsPL!N° = N°)
          If Not IsNull(RsPL!DateA) Then
         Color = RsPL!COULEUR                            
             If (RsPL!DateA <= (DateDebut + 6)) And (RsPL!DateF > DateDebut) Then
           nomAutorisation = RsPL!nomAutorisation
           Activité = RsPL!Activité
            Col1 = IndiceColonne(RsPL!DateA)
 
            Col2 = IndiceColonne(RsPL!DateF - 1)
 
               If (Col1 < 1) Then
               Col1 = 1
               End If
 
               If (Col2 > 7) Then
               Col2 = 7
               End If
 
            Forms!FrmOuverture!SF_Planning.Form("creneau" & i & "_" & Col1).Caption = nomAutorisation
            Forms!FrmOuverture!SF_Planning.Form("creneau" & i & "_" & Col1).Width = 1900 * (Col2 - Col1 + 1)
            Forms!FrmOuverture!SF_Planning.Form("creneau" & i & "_" & Col1).BackColor = Color
            Forms!FrmOuverture!SF_Planning.Form("activité" & i & "_" & Col1).Caption = Activité             '
            Forms!FrmOuverture!SF_Planning.Form("activité" & i & "_" & Col1).BackColor = Color

merci

**User** · 03/10/2009, 22h19

Salut,

As-tu regardé dans ta table si le champs Couleur est bien renseigné ...

**chuspyto** · 03/10/2009, 22h33

Oui,la table est bonne j'ai repris la même que dans l' agendav17

**User** · 03/10/2009, 22h38

Vu le code que tu as donné,

tu as fait un mixe entre la base geshotv.., avec des étiquettes qui s'élargissent horizontalement et tu as ajouté le code de l'agendav.. pour saisir une couleur dans la table:

Tu peux joindre ton fichier au format 2000 ou 2003..

**chuspyto** · 04/10/2009, 12h09

le fait d'avoir du noir est parce que dans une table j'avais valeur par defaut 0(noir).j'ai enlevé cette valeur,mais depuis plus rien.comme en ce moment je fais des essais cela va etre complique d'envoyer mon fichier.

**chuspyto** · 04/10/2009, 15h53

j'ai essayé d'utiliser un dlookup sur la table couleur, il me renvoi bien la couleur selectionné mais tout ce que je saisie garde cette meme couleur,il ne tient pas compte de la couleur que je change. voici la ligne.

Code :

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

1
2
 If Not IsNull(RsPL!DateA) Then
         Color = DLookup("[Couleurs]", "Table_Couleur", "[NCouleur]")

**User** · 04/10/2009, 15h55

Verifie dans ta table si le champ couleur contient un entier <>0

Sinon pour debugger dans ton code fais un:

Code :

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

1
2
debug.print RsPL!COULEUR
Color = RsPL!COULEUR

la valeur de ta couleur devrait s'afficher dans la fenêtre d'exécution.

**chuspyto** · 04/10/2009, 16h04

il me sort que RsPL!Couleurs = null

**User** · 04/10/2009, 16h15

oui ton champ couleur n'est pas renseigné, pour le renseigner il faut utiliser la technique des agendas v15..21

Note que la table T_RendezVous est reliée à la table T_Couleur, pour afficher les couleurs sur le planning, peut-être que le lien n'est pas fait...

**chuspyto** · 04/10/2009, 16h20

la j'ai du mal acomprendre,mon champ couleur de la table n'a aucune valeur nulle,ou vide

**User** · 04/10/2009, 16h24

Croisement,

la table T_RendezVous doit-être reliée à la table T_Couleur, pour afficher les couleurs sur le planning, peut-être que le lien n'est pas fait..

il faut faire une requete qui fasse le lien...

**chuspyto** · 04/10/2009, 16h40

le lien n'etait effectivement pas fait, mais j'ai tjs le meme resultat avec le debug print il me sort null

**User** · 04/10/2009, 16h47

Je n'ai pas Access sous la main:

mais je crois me souvenir que ca fonctionne comme ça:

tu a la table T_Couleur(Indice,Couleur)

et tu as la table T_RendezVous(NR,...,IndiceCouleur)

et tu dois faire le lien dans le sql:

Code sql :

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

where T_Couleur.Indice=T_RendezVous.IndiceCouleur

et dans le select :

Code sql :

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

select T_RendezVous.NR,...,T_Couleur.Couleur

DONNES NOUS TON SQL, STP

A+

**chuspyto** · 04/10/2009, 17h08

Code :

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

1
2
3
4
5
LeSql = "SELECT Véhicules.N°, Véhicules.Immatriculation, Autorisation_Temporaire.Couleurs, Autorisation_Temporaire.TypeCouleur, Autorisation_Temporaire.NR, Autorisation_Temporaire.NA, Autorisation_Temporaire.Activité, Autorisation_Temporaire.nomAutorisation, Autorisation_Temporaire.DateA, Autorisation_Temporaire.DateF " & _
      "FROM Véhicules LEFT JOIN Autorisation_Temporaire ON Véhicules.N° = Autorisation_Temporaire.N° " & _
      "ORDER BY Véhicules.N°, Autorisation_Temporaire.DateA; "
 
Set RsPL = CurrentDb.OpenRecordset(LeSql, dbOpenForwardOnly)

**User** · 04/10/2009, 17h23

ta requête est assez complexe, ca risque de compliquer les choses si on rajoute un table et une condition, donc il te faut reprendre avec un dlookup, du style:

tu as une table Table_Couleur (NCouleur, Couleurs)
et une table Autorisation_Temporaire(...,Couleurs)

et tu dois faire le lien entre Table_Couleur.NCouleur et Autorisation_Temporaire.Couleurs

ton champ Couleurs de ta table Autorisation_Temporaire représente l'indice de couleur contenu aussi dans la table Table_Couleur (NCouleur)

ce champ Couleurs doit contenir des indices de couleur (1,2,3,4,5...12)

et alors tu peux faire dans ton code.

Code :

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

1
2
If Not IsNull(RsPL!DateA) Then
         Color = DLookup("[Couleurs]", "Table_Couleur", "[NCouleur]=" & RsPL!Couleurs)

**User** · 04/10/2009, 17h36

Sinon,

comment réalises-tu la saisie de ton indice de couleur dans le champ couleur ???

**chuspyto** · 04/10/2009, 17h39

j'ai fais mes liaison et maintenant j'ai une erreur de synthaxe a ce niveau:

Code :

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

"[NCouleur]="

**User** · 04/10/2009, 17h46

C'est vraiment compliqué de t'aider sans ton fichier..

**chuspyto** · 04/10/2009, 18h04

je te remercie pour ton aide mais la je vais laisser tomber.je vais rester avec la fonction qbcolor meme si les couleurs données par moment sont trop sombre.

**User** · 04/10/2009, 18h08

Désolé,

mais ton idée de personnaliser les couleurs était bonne, je la retiens

renvoi d'une couleur dans une etiquette

IHM

Discussions similaires

Partager

Partager