Probleme avec la propriété locked d'une listbox

[capoue]

Bonjour,

Voila mon problème : j'ai un formulaire avec des textbox, des combobok et des listbox. Tous ces champ sont verrouillé. J'ai ensuite un bouton modifier qui permet de déverouiller ces champ avec une procédure évenementielle qui me permet de passer la propriété locked des champ à false. Tout ca marche parfaitement sauf pour mes listbox. La propriété locked ne veut pas passer a false. Et il n'y a que pour cette propriété que ca ne marche pas. Si par exemple je dis que je veut la propriété visible = false, quand je clique sur modifier mes listbox disparaisse mais locked = false elle ne se devérouille pas.

Aidez moi. Merci d'avance

[RobiPMS]

Bonjour.

Je n'ai pas de réponse concernant ton problème avec la propriété locked de tes listbox.
Mais une suggestion : pourquoi, si ton but est de pouvoir verrouiller-déverrouiller tous les champs de ton formulaire, ne pas utiliser plutôt la propriété AllowEdits du formulaire. Sur False, tous les champs sont verrouillés, sur True, ils sont déverrouillés. Tu peux mettre le code à l'ouverture du form :

Code :

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
End Sub

Ton bouton de déverrouillage-verrouillage :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub TonBouton_Click()
If Forms![TonForm].Form.AllowEdits = False Then
Me.AllowEdits = True
TonBouton.ForeColor = RGB(0, 200, 0) 'vert
Else
Me.AllowEdits = False
TonBouton.ForeColor = RGB(255, 0, 0) 'rouge
End If
DoCmd.RunCommand acCmdRefresh
End Sub

Ainsi, tu ne joues plus avec les propriétés de chaque champ un par un.
Cordialement.

[capoue]

Et non je connais ça mais comté j'ai une liste déroulante pour sélectionner une date elle se retrouve verrouiller et donc je ne peux plus choisir mon enregistrement

[RobiPMS]

OK. Je comprend.
As-tu essayé avec la propriété Enabled de ta liste déroulante

Code :

Me.Ta_Liste_Date.Enabled = False

?

[capoue]

Et oui mais ça marche pas comme me formulaire est bloquer

[RobiPMS]

Oui.
Je me suis peut-être mal exprimé. Si tu n'utlises pas la fonction qui permets de bloque ou débloquer le Form dans son ensemble, mais que tu utilises ta méthode de départ

j'ai un formulaire avec des textbox, des combobok et des listbox. Tous ces champ sont verrouillé. J'ai ensuite un bouton modifier qui permet de déverouiller ces champ

, alors au lieu d'utiliser la propriété locked des listBox dans ta procédure, ne peux-tu pas utiliser la propriété Enabled : à l'ouverture du form, tu les mets sur enabled = False (sauf la liste de Dates bien sûr), et ton bouton les mets sur True.
Donc, dans les propriétés de tes listBox, tu mets Activé sur Oui et Verrouillé sur Non.
Sur Form_Open, tu attribues à chaque listbox la propriété Enebled = False, sauf à la liste de dates qui doit rester disponible.
Et ton bouton attribue à ces listBox la propriété Enebled = True.
Cela devrait marcher, me semble-t-il...
Cordialement.

[capoue]

Et non plus car dans ce cas je ne peux plus faire dérouler mes zones de listes. Tu vois le délire? Donc ma ma seule solution c'est la propriété locked mais pourquoi ça ne la débloque pas c'est vraiment bizarre ce truc.

[RobiPMS]

Je viens d'essayer dans un de mes formulaires, où j'ai parmi d'autres une liste déroulante de localités.
Voici mes codes :

Code :

1
2
3
Private Sub Form_Current()
Me.Localité.Locked = True
End Sub

et dans le bouton libérer :

Code :

1
2
3
4
Private Sub Libérer_Click()
Me.Localité.Locked = False
DoCmd.RunCommand acCmdRefresh
End Sub

Tout fonctionne parfaitement.
Est-ce que, par hasard, tes listbox ne se trouveraient pas dans un sous-formulaire? Parce que dans ce cas, le code doit être aménagé :

Code :

Me.Nom_du_sousform.Nom_du_champ.Locked = False

Si ça ne marche pas chez toi, ce n'est pas normal. Dans ce cas, la solution la plus simple est de recréer un nouveau formulaire où tu colles tous tes objets et tes codes. J'ai déjà eu des problèmes dans certains états ou formulaires où ça ne fonctionnait plus normalement et c'est alors la seule solution. J'ai vu dans le forum pas mal de cas similaires.