Discussion :

[hugodu28]

bonjour, j'ai un état où pour un champ de type date j'ai soit une date soit rien.

Je souhaite qu'en mode impression, si le champ date est vierge, la case est alors rouge.

voilà mon code en ouverture

Code :

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

1
2
3
4
5
6
 
if me.date.value="" then
me.date.backcolor = vbred
else
me.date.color=vb vhite
end if

lorsque j'ouvre le document, ça me dit champ inexistant.

??? Merci de votre aide

[marot_r]

Sur quelle ligne de code ?

L'espace dans

Code :

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

=vb vhite

est-il une faute de frappe dans ton message ou c'est réellement dans ton code ?

A+

[Invité]

Bonjour

De plus avoir un champ de type Date est loin d'être une bonne idée, c'est une fonction VB et tu risque d'avoir une ambiguitée d'interprétation.

A lire : Les conventions typographiques en VBA (illustrées sur Access)

Philippe

[jeanpierre78]

Bonsoir,

Avec la mise en forme conditionnelle tu dois résoudre ton problème.

Jean-Pierre

[hugodu28]

en fait je crois savoir d'où viens mon erreur,
j'ai 2 tables, une avec des noms d'UV et date d'obtention,
une seconde avec nom d'UV et thematique.

La requete lie les deux tables via l'UV avec
tous les enregistrements uv/thematique seulement ceux egal UV/date.

L'état me liste donc tous les Uv avec soit des dates soit un champ vide.
Mais c'est un vide qui "n'existe pas "

Donc je ne peux pas demander à quelquechose qui n'existe pas de ce colorier.

C'est ça?

[marot_r]

De plus avoir un champ de type Date est loin d'être une bonne idée

Je pense que Philippe JOCHMANS voulait dire qu'avoir un champ nommé "Date" qui n'est pas une bonne idée. Personnellement je nomme toujours mes champs date "DateQuelqueChose" ou "DateHeure" si je n'ai pas de quelque chose ce qui évite qu'il soit confondu avec la fonction Date() du système.

Je ne comprend pas bien ta notion de qui n'existe pas. Tu ne joues pas avec la couleur de fond ?

A+

[WarrenJones]

J'ai a peu près le même type de problème, je vous explique: dans un sous formulaire j'aimerais que le remplissage d'un champ (avec la couleur verte) s'effectue après le complément de celui avec une valeur. Pour un champ appelé "champ5" on le compléte grace à une liste de choix de 2 valeurs, 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
Private Sub champ5_AfterUpdate()
 
If [champ5].Value = "..." Then
 
   Me![champ5].BackColor = vbGreen
 
Else
   If [champ5].Value = "..." Then
       Me![champ5].BackColor = vbGreen
 
   End If
End If
 
End Sub

Les deux conditions étant des noms de personnes. En espérant être assez clair...

[marot_r]

Et ton problème est où ?

Sinon tester en dur un nom de personne dans du code n'est pas généralement une bonne idée car si la personne quitte il te faut modifier ton code et dépolyer une nouvelle version de ton application.

Quand on a faire cela on crée habituellement une table de paramétrage qui contient la liste des personnes concernées comme cela si la personne s'en va il suffit de retirer son nom de la table et d'ajouter son remplaçant éventuel. Ceci sans aucun impact sur l'application.

A+

[WarrenJones]

Mon problème étant que la case ne se remplit pas.
Il est vrai, merci du conseil en ce qui concerne le nom, j'ai mis ce code avec le nom car c'est le seul que j'ai réussi à écrire a peu près correctement.

L'objectif du code est juste que le champ se remplisse en vert lorsque qu'il est compléter (d'ou mon idée de after_update) sauf que ce champ se complète grace à une liste de choix (de deux noms). J'ai tenté la mise en forme conditionnelle mais elle ne fonctionne pas.

Merci de ton aide!

[marot_r]

Il faudrait vérifier que le code s'exécute bien.

Tu peux y mettre un point d'arret ou ajouter un msgbox().

et si oui essaye d'ajouter :

Code :

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

1
2
me.repaint
doevents

après le changement de couleur.

A+

[WarrenJones]

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
 
Private Sub champ5_AfterUpdate()
MsgBox ("activer couleur")
If [champ5].Value = "..." Then
 
Me![champ5].BackColor = vbGreen
Me.Repaint
DoEvents
 
Else
If [champ5].Value = "..." Then
Me![champ5].BackColor = vbGreen
Me.Repaint
DoEvents
 
End If
End If
 
End Sub

Voila mon nouveau code, la msgbox fonctionne mais pas la mise en forme de la cellule, même après avoir fermé et réouvert mon formulaire.

Est ce qu'une alternative comme un code qui permettrais de changer la couleur de la cellule apres que celle ci soit remplie peut importe la valeur qui s'y trouve pourrait fonctionner?

[marot_r]

Vérfie que les instructions de changement de couleur sont bien exécutées.

comme il y a un test avant il se peut, si ton test est faux qu'elle ne soient jamais exécutée.

Autre question es-tu sur un formulaire en mode continu ou unique ?

A+

[WarrenJones]

J'ai enlever la condition et mon instruction couleur ne fonctionne pas j'en déduit qu'elle est fausse sauf que je n'ai une connaissance que très limitée en VBA et je n'arrive pas à réaliser un code juste.

Merci pour ton aide en tout cas!

[marot_r]

Ci-joint une BD de test qui fait cela.

à l'arrivée sur une energistrement la case est rouge si elle est vide, verte si elle est pleine.

Une fois modifiée elle passe au vert.

Tu noteras que le code est très semblable au tien et je n'ai même pas eu à mettre le Me.Repaint et doevents. Je ne vois pas d'où cela vient dans ton appli.

J'espère que ma BD t'aidera trouver ce qui cloche dans ton appli.

A+

[WarrenJones]

Je suis desespéré, J'ai recopier ton code excatement de la ¨même manière en changeant le nom du champ mais cela ne fonctionne toujours pas. Ca à pourtant l'air d'une question anodine mais je ne comprend vraiment pas pourquoi cela ne fonctionne pas.

Je vais abandonner je pense, en plus je commence avoir de sérieux soucis de base qui rame de plus en plus.

Je te remercie de ton aide en tout cas

[marot_r]

As-tu pu faire fonctionner ma base telle qu'elle est ?

Pour la base qui rame essaye de la compresser, ça aide généralement.

Sous Access 2007 c'est dans le menu principal puis le choix gérer il me semble.

A+

[WarrenJones]

Oui pour ta base j'ai réussi à la faire fonctionner et le code fonctionne.

(J'ai déplacer mon fichier vers la racine du disque et je l'ai compresser, cela à fonctionner)

C'est peut être le fait que mon champ se remplit grace à une liste de choix que ce ne fonctionne pas?

[marot_r]

C'est peut être le fait que mon champ se remplit grace à une liste de choix que ce ne fonctionne pas?

Je ne vois pas pourquoi. Tu peux toujours faire un essai en remplaçant ta liste déroulante par une zone de texte.

Sinon, peux-tu m'envoyer ta BD à mon email perso. Je vais regarder cela en fin de semaine. Je t'envois mon email en message privé.

A+