Discussion :

[Clonn2b]

Bonjour à tous.
Le pauvre débutant que je suis bute sur le problème suivant:

J'ouvre, en mode modification, un formulaire access qui comporte un sous-formulaire (en mode tabulaire) dont les enregistrements sont composés de plusieurs champs "texte".

Dans ce formulaire, je voudrais interdire à l'utilisateur de modifier n'importe quel champ de l'enregistrement dés lors que le champ "OS" de l'enregistrement en question a déjà été renseigné (lors de saisies antérieures).

Dans le cas contraire (c.a.d. si OS est Null), l'utilisateur pourra modifier n'importe quel champ de l'enregistrement.

Je ne sais pas si c'est clairement exprimé, mais je vous remercie d'avance pour toute suggestion.

[ClaudeLELOUP]

Bonjour,

l'endroit idéal pour exprimer toutes tes intentions est l'événement "sur activation" de ton formulaire.
Reviens si tu as des difficultés avec le code.

[Renardo]

bonjour
essai comme cela

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If IsNull(Me.OS) Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If
End Sub

[jojo5650]

vas dans les propriétés du ou des champs textes concerné
traite l'évnement beforeupdate (avant maj en francais) dans la procédure évenementielle introduit ce code en adpatant les noms avec ceux de ton formulaire

Code :

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

1
2
3
4
5
6
7
 
Private Sub Texte0_BeforeUpdate(Cancel As Integer)
if me.os = "ce que tu cherche" then
   msgbox "demande refusée"
   cancel = true
end if
End Sub

jojo5650

[jojo5650]

La methode de "renardo" agit sur la totalité des champs du record ce sera tous ou aucun , et plus aucun dès l'instant ou la condition de verouillage est active
La méthode agit avant d'enregistrer le contenu d'un champs texte.
On pourrais aussi renvoyer vers un autre champs si os est remplis.

l'avantage aussi de la méthode de renardo c'est qu'une fois qu'os est rempli le record sera verouillé pour le formulaire.
jojo5650

[Clonn2b]

Merci à la Communauté de s’être penchée sur mon problème … qui reste malheureusement entier !

J’ai testé la suggestion de Jojo5650.

Code :

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

1
2
3
4
5
6
Private Sub Texte0_BeforeUpdate(Cancel As Integer)
if me.os <> "" then
   msgbox "modification interdite"
   cancel = true
end if
End Sub

Problème: lorsque je tente une modification du champ « libellé » par exemple, ( j’en efface une partie du contenu, chose qui ne devrait pas être acceptée dans le cas où le champ "OS" est rempli), cette modification s’inscrit tout de même dans le champ "libellé".
Ce n’est que lorsque je clique sur un autre champ que la Msgbox apparaît… mais il n’y a plus alors aucun moyen ni de la faire disparaître ni de rétablir le contenu initial du champ.
Seule possibilité: fermer access (qui me confirme alors que l'enregistrement n'a pas été effectué)

Pour ce qui concerne la solution de Renardo, j'avoue mon incompétence : j'ai du mal à comprendre à quel évènement du formulaire rattacher "private Sub Form Current()".
J'ai testé avec divers évènements (sur activation, après modif de données... )
mais aucun ne fonctionne (ce dont je me doutais avant même de lancer l'essai, vu que le code ne mentionne pas "Form Current" mais "Form_BeforeUpdate" ou autre, selon l'évènement testé).

Ai-je zappé un épisode ?

[ClaudeLELOUP]

1°

je voudrais interdire à l'utilisateur de modifier n'importe quel champ de l'enregistrement dés lors que le champ "OS" de l'enregistrement en question a déjà été renseigné

Code :

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

if me.os <> ""

Ce n'est pas la même chose que

Code :

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

 if not Isnull(Me.os)

2°

j'ai du mal à comprendre à quel évènement du formulaire rattacher "private Sub Form Current()".

Form Current (version anglaise) = sur activation du formulaire (version française).
Dans l'événement sur activation tu colles ceci :

Code :

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

1
2
3
4
5
If IsNull(Me.OS) Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If

entre les 2 lignes que Access a mises d'office :

Code :

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

1
2
3
4
Private Sub Form_Current()
 
 
End Sub

Les 2 solutions qui te sont proposées sont correctes.

Celle de Renardo, explicite la mienne, elle vaut pour tous les contrôles.
Celle de JoJo te permet d'affiner tes restrictions contrôle par contrôle.

[Clonn2b]

J'avais testé plutôt avec l'évènement "sur entrée" (Private Sub objet_Enter()) en "éjectant" (pas très académique comme expression) vers un contrôle quand os <> Null...
Mais je dois avouer que ça me paraissait plutôt du "bricolage".

La solution "sur activation" est beaucoup plus élégante et, surtout, marche impeccablement bien !

Un grand merci à vous.

[jph86]

1°

Code :

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

if me.os <> ""

Ce n'est pas la même chose que

Code :

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

 if not Isnull(Me.os)

2°


Form Current (version anglaise) = sur activation du formulaire (version française).
Dans l'événement sur activation tu colles ceci :

Code :

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

1
2
3
4
5
If IsNull(Me.OS) Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If

entre les 2 lignes que Access a mises d'office :

Code :

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

1
2
3
4
Private Sub Form_Current()
 
 
End Sub

Les 2 solutions qui te sont proposées sont correctes.

Celle de Renardo, explicite la mienne, elle vaut pour tous les contrôles.
Celle de JoJo te permet d'affiner tes restrictions contrôle par contrôle.

Bonjour,
J'ai à peu pres le meme probleme.
Si l'on veut empecher seulement la modification du champs OS apres enregistrement comment faire ?

[ClaudeLELOUP]

Bonjour,

Si tu veux limiter le verrouillage à un seul contrôle de ton formulaire, l’instruction est :

Code :

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

Me.CeContrôle.Locked=true

[jph86]

Bonjour,

Si tu veux limiter le verrouillage à un seul contrôle de ton formulaire, l’instruction est :

Code :

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

Me.CeContrôle.Locked=true

Merci pour cette reponse rapide.
voici ce que j'ai ecrit comme code sur "activation" du formulaire:

Code :

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

1
2
3
4
5
If Len(Me.NUM) Is Not Null Then
Me.NUM.Locked = True
Else
Me.NUM.Locked = False
End If

le probleme c'est que ca me bloque le champs [NUM] meme si je veux ajouter un enregistrement dans la base.
Alors que le but est juste d'empecher la modification du champs [NUM] des enrregistrements mais pas d'en ajouter.
Merci par avance si vous pouvez m'aider