Discussion :

[Lex O'Mil]

Bonjour à toutes et à tous,

J'ai fini par abdiquer.
Je vous présente mon souci.
Sur un formulaire j'ai 3 contrôles :
date audit
prestataire
site

5 boutons activant un champs txt1 qui tour à tour peut devenir commentaires1, commentaires2, commentaires3, commentaires4,commentaires5.

à chaque bouton (des rectangles en fait) le champs txt1 change de controlsource pour remplir la table tblQuestion

Voici ma table tblQuestion : donc 9 champs
IDQuestion
dateaudit
prestataire
site
commentaire1
commentaire2
commentaire3
commentaire4
commentaire5

j'aimerais à une date donnée, un prestataires donné, sur un site donnée colorer mon bouton commentaire1 par ex. si une donnée a été déja saisie dans le champs commentaire1 ainsi de suite.

Je suppose qu'il faut utiliser recorset mais j'ai du mal à l'appréhender.

Pourriez_vous m'aider????

merci

[yuan]

Voici une suggestion de code à ajouter sur l'évènement "Sur Activation" de ton formulaire :

Code :

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

1
2
3
4
5
6
 
    If Me![commentaire1]<>"" Then
        Bouton1.ForeColor = 26367
    Else
        Bouton1.ForeColor = 10872033
    End If

et dupliquer ce code pour les 4 autres boutons.

[loufab]

Bonjour,

Dans l'événement Sur Activation fais les tests sur tes champs commentaires.

Code :

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

1
2
3
 
If len(me.commentaire1) > 0 then me.moncadre.backcolor = rgb(...
 etc...

Note que le test sur commentaire peut se faire avec Empty() ou Isnull()
Pas besoin de recordset !

Cordialement,

[Lex O'Mil]

Merci pour la considération que vous portez à ma difficulté.

Le souci c'est qu'à l'ouverture du formulaire j'aurais un nouvel enregistrement.
Jusque là pas de souci.

Mais dès que je vais sélectionner la date puis le prestataire et enfin le site : il faudrait que je puisse tester si des enregistrements existe déjà dans les différens champs commentaires pour cette date/prestataire/site si il n'existe pas d'enreistrement tous les boutons ne seront pas coloré je pourrais alors saisir mes infos.
Sinon je pourrai savoir quelles zones commentaires on déjà été saisi.

Vos propositions à l'ouverture d'un nouvel enregistrement vont toujours me renvoyer vide puisqu'il n'y a pas de test.

[loufab]

Bonjour,

Effectivement la demande est légèrement différente.

Mon conseil est de travailler la fonction Dlookup() -Attention cette dernière est très groumande en ressource, elle est à proscrire sur des applications à forte charge-.

Dlookup()

Code :

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

1
2
3
4
5
 
if not isnull(Dlookup("champ","TAble","Critère")) then
   msgbox "rien n'existe"
   ... traitement
endif

• Champ est un champ de la table toujours rempli (donc pas les commentaires).
• Table est le nom de la table.
• Critère est un critère au format SQL (tu peux éventuellement le préparer dans le QBE et l'adapté dans la fonction.

Sinon ADOx peut également faire l'affaire. Voir le tuto ADOx


Cordialement,