Discussion :

[roman33]

Bonjour,
Je checrhe le code suivant pour modifier la police de certains champs de mon formulaire, si la valeur d'un champ=x alors champ en gris et verrouilé (impossible de saisir).
Auriez vous une astuce pour crée ce code? sachant que sur ce champ j'ai déjà un code en if.
Merci pour vos suggestions et joyeux noël

Roman

[Invité]

Bonjour

Si tu as déjà un If dans ton champ, ce serait bien de donner l'ensemble de ton code, car sinon le code qui pourrait t'être fourni ne servira à rien s'il n'est pas intégré correctement dans le code existant.

De plus en faisant des recherches sur la FAQ (ce qui est à faire avant de poser des questions), tu trouveras des choses comme :

http://access.developpez.com/faq/?pa...l#VerrCtrlForm

Et intéresse toi à la propriété Enabled d'un contrôle.

Philippe

[roman33]

Merci Philippr,
J'ai regardé kes FAQ mais c'est vrai que je bloque un peu...
Voici le code que j'ai crée

Code :

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

1
2
3
4
5
6
7
Public Sub MTT_BASE_Enter()
If Abs(Nz(num_rayon, 0)) = 50 Then
        MTT_BASE = Me.SAISIE_REGUL_PLS_JANVIER.Form!MTT_BASE
        MTT_BASE.BackColor = QBColor(1)  'pour du bleu
 
End If
End Sub

J'ai donc déjà une condition IF et dans le résultat si TRUE, alors calcul à effectuer + couleur de fonc en bleu.
Est ce que cette syntaxe est "propre"? seul problème: l'ensemble des champs MTT_BASE se mettent en bleu et pas seulement ceux dont le num rayon=50.

Aurais je fait qque chose à l'envers?

Joyeux noël

[roman33]

Bonjour,
J'ai modifié ma formule pour la lancer à l'ouverture de mon form comme suit:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
      If [num_rayon].Value = 50 Then
Me![MTT_BASE].BackColor = vbYellow
Else
Me![MTT_BASE].BackColor = vbRed
End If
End Sub

Mais le résultat est le même, tous les champs se mettent en rouge et le champ dont le num_rayon = 50 reste en rouge ...
Je ne comprends plus là...

Mon formulaire est en mode continu....n'est ce pas problèmatique??

[Invité]

RE

Mon formulaire est en mode continu....n'est ce pas problèmatique??

Aie : Passes par la mise en forme conditionnelle : http://warin.developpez.com/access/mfc/

Philippe

[roman33]

Merci j'ai trouvé ma solution avec les mises en forme conditionnelle, sans VBA, du coup ça limite un peu les choses car je voulais verrouiller les cellules en fonction de la valeur....as possible avec le menu des mise en f. c

Merci encore Philippe