Discussion :

[ouflala]

Bonjour,

J'ai fait une petite application et j'aimerai lorsqu'on coche une case ne plus pouvoir modifier l'enregistrement que l'on vient de créer.

J'ai donc écrit qques lignes de code pour cela, ca marche pas trop, il y a deux problemes:

Quand je coche la case, tous mes enregistrements sont bloqués (y compris les suivants, donc impossible d'en créer de nouveau!!!

Si je ferme et que je réouvre l'application je peux modifier tous mes enregistrements.... Or ce n'est pas le but recherché...

Voici le code que j'ai tapé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If [Cocher36] = True Then
 
            [Observations].Locked = True
            [Id inspection].Locked = True
            [Id bénéficiaire].Locked = True
            [Id exploitation].Locked = True
            [Date_de_la_visite].Locked = True
 
        End If
 
End Sub

[Tofalu]

Pour un formulaire continu, il faut utiliser la mise en forme conditionnelle qui permet de verrouiller un controle (ligne par ligne et non toute la colonne)

Cf http://warin.developpez.com/access/mfc/

[ouflala]

En fait je me suis peut etre mal expliqué...

Ce n'est pas un seul contrôle que je veux bloquer, mais toute une page ( de mon formulaire)

Car une page de mon formulaire correspond a un enregistrement dans lequel il y a plusieurs champs (case à remplir).

Il s'agit de tous ces champs que je veux bloquer. Or quand je mets en place le code que j'ai tapé, ca bloque bien tous les champs de la page en cours mais aussi tous les champs de toutes futures pages ...

voila j'espere que j'ai été un peu plus clair...

[Mariboo]

Et bien il te suffit d'écrire le code à l'ouverture du form (FormOpen) et sur activation (Form_Current) , en plus de l'événement After_update de ta case...

et bien sur tu rajoute :

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
If [Cocher36] = True Then

[Observations].Locked = True
[Id inspection].Locked = True
[Id bénéficiaire].Locked = True
[Id exploitation].Locked = True
[Date_de_la_visite].Locked = True

else
[Observations].Locked = false
[Id inspection].Locked = false
[Id bénéficiaire].Locked = false
[Id exploitation].Locked = false
[Date_de_la_visite].Locked = false

End If

pour débloquer les champs

[ouflala]

Merci pour les infos, mais je ne suis pas un crac en access, donc est ce que tu pourrai un peu plus développer à propos de :

" l'ouverture du form (FormOpen) "
" sur activation (Form_Current) "
" l'événement After_update de ta case..."

Merci d'avance...

[Mariboo]

Il te faut mettre ce 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
If [Cocher36] = True Then
 
[Observations].Locked = True
[Id inspection].Locked = True
[Id bénéficiaire].Locked = True
[Id exploitation].Locked = True
[Date_de_la_visite].Locked = True
 
else
[Observations].Locked = false
[Id inspection].Locked = false
[Id bénéficiaire].Locked = false
[Id exploitation].Locked = false
[Date_de_la_visite].Locked = false
 
End If

Sur l'événement "Sur Ouverture" (Form_Open) de ton formulaire , sur l'événement "Sur activation" (Form_Current) de ton form ....
Bon normalement il suffit juste de le mettre sur "Form_Current" mais moi j'aime bien le mettre sur les deux car on est jamais trop prudent ...

Et bien sûr il faut que tu mette ce code sur l'événement "Après Mise à jour"(Cocher36_AfterUpdate) de ta case à cocher... mais je suppose que ça tu l'avais déjà fait puisque tes champs se vérouillaient quand tu cochait la case.

[ouflala]

Salut

Ca marche...

Un grand merci!

Et voila un pb de resolu...


Encore merci