Verrouiller et deverrouiller des champs dans un formulaire

Bonjour,

j'ai un formulaire appelé " Recherche_eleve "
avec des formulaires: nom ; prenom ; ne_le ; A ; sexe ; statut ; classe ; photo
je voulais verrouiller/déverrouiller les champs du formulaire par un bouton. mais qui marche pas.
le code:
sub verrouillage_click()
Me!nom.Locked = True
Me!prenom.Locked = True
Me!ne_le.Locked = True
Me!A.Locked = True
Me!sexe.Locked = True
Me!statut.Locked = True
Me!classe.Locked = True
Me!photo.Locked = False
Me.AllowEdits = True
End sub

sub deverrouillage_Dblclick()
Me!nom.Locked =False
Me!prenom.Locked = False
Me!ne_le.Locked = False
Me!A.Locked = False
Me!sexe.Locked = False
Me!statut.Locked = False
Me!classe.Locked = False
Me!photo.Locked = False
Me.AllowEdits = True
Me.AllowEdits = True
Me.Refresh
End sub