Discussion :

[vautour29]

Salut a tous !

Mon formulaire a trois cases a cocher (oui, non, re-ouvrir). Donc s'il n'y a pas d'autres données a entrer, en cochant la case ''oui'', toutes les entrées ne sont plus accessibles (toutes les cases sont grises). Ca marche très bien avec le formattage conditionnel.
Le seul problème que je rencontre c'est pour 2 autres cases (changement et numéro) a cocher qui ne sont pas dépendantes du reste du formulaire. Elles se grisent avec le formattage conditionnel sans problème, mais lorsqu'on fait des opérations sur ces cases, par exemple, je clique sur la case ''changement'', je peux entrer du texte dans un champ a cote de cette case.e plus, en cochant la case ''chanegment'', la case ''numéro'' ainsi que son champ associé vont devenir inaccessibles. Même chose dans le cas contraire.
Le problème c'est que ces deux cases restent grises sur chaque nouveau enregistrement ce que je ne veux pas. J'ai essayé d'appliquer le formattage conditionnel une seconde fois (la 1ere fois avec la case ''oui'', donc 2 conditions), mais ca ne fonctionne pas.

Quelqu'un a une idée ?

Merci

vautour29

[bitou11]

Salut
dans ces cas là je vois que du formatage conditionnel fait à la main .

En gros je te propose de gérer toi même le grisé de tes cases sur les évènement concerné.
Par exemple aprés mise à jour d'un champ tel control se grise

exemple de mon code (si lacase à cocher prendcours est cocher, alors on affiche le contrôle Pri_COURS) :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub prendcours_AfterUpdate()
 
If prendcours Then
    PRI_COURS.Visible = True
Else
    PRI_COURS.Visible = False
End If
end sub

voilà @+

[vautour29]

Salut bitou,

J'ai essayé ton code, mais le problème est toujours la car une fois le code appliqué, ca se répète sur les autres enregistrements au lieu de n'etre actif que sur les enregistrements ou c'est appliqué.

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
15
Private Sub CR_Click()
   FLO_Alert.Enabled = Not CR.Value
   EDAS_ID.Enabled = Not CR.Value
   If CR.Value Then
   codes.SetFocus
   End If
End Sub
 
Private Sub FLO_Alert_Click()
   CR.Enabled = Not FLO_Alert.Value
   codes.Enabled = Not FLO_Alert.Value
   If FLO_Alert.Value Then
   EDAS_ID.SetFocus
   End If
End Sub

Donc si la case CR est cochée, alors la case FLO_Alert et le champ EDAS_ID vont se griser. Dans le cas contraire, si la case FLO_Alert est cochée, la case CR et le champ ''codes'' vont se griser. Avec ton code, ca se reproduit sur tous les enregistrements. Il faut qu'au prochain enregistrement il y ait une mise a jour, autrement dit que les cases soient pas cochées.

[bitou11]

A ce moment là sur l'évènement Form_Current() du formulaire tu réinitialise tout ou tu refais les test que tu viens de montrer :

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 Form_current()
   FLO_Alert.Enabled = Not CR.Value
   EDAS_ID.Enabled = Not CR.Value
   If CR.Value Then
         codes.SetFocus
   End If
 
   CR.Enabled = Not FLO_Alert.Value
   codes.Enabled = Not FLO_Alert.Value
   If FLO_Alert.Value Then
         EDAS_ID.SetFocus
   End If
end sub

normalement le code est bon
@+

PS: Form_current se "met en route" sur ouverture, changement d'enregistrement etc ...... en fait dés que ta page "change"

[vautour29]

ok ,mais ou je fais mettre le code pour Form_current ? dans les propriétés du formulaire ou bien dans VBA a la toute fin du code ?

Merci

vautour29

[bitou11]

tu va sur les propriétés de ton formulaire et tu clique sur "Sur activation" et les ... qu'il y a au bout.
et tu colle ce que je t'ai donné
voilà @+

(si tu colle dans le VBA de ton form ça marche aussi d'ailleurs !)

[vautour29]

Salut bitou,

J'ai tout entré dans les propriétées du formulaire (On Current). Tout a l'air de bien marcher car sur les prochains enregistrements, la mise a jour se fait bien et ils ne sont plus gris. Par contre, en revenant après avoir fait des tests, j'ai eu ce message : 'Run-time error '2110' Database can't move the focus to control codes''. Cela m'a amene dans le VBA et le code sur Form current, la ligne ''codes.SetFocus'' est en jaune. Il doit y avoir un bug quelque part...

J'ai essayé de séparer les 2 codes avedc 2 form current pour chacun, mais même problème.

[bitou11]

salut,
ça vient juste du champ codes.
Il faut voir pourquoi il ne peu pas lui donner le focus .. il y a des chances que ton control codes est verrouillé, à ce momment là à la fin du code tu met :

autrectrl.Setfocus

voila

@+