Discussion :

[Benj24]

Bonjour a tous,

Je souhaite deverouiller la saisie pour les controles d'un form, a condition que l'utilisateur ait tout d'abord selectionne un identifiant dans une liste deroulante.
L'identifiant en question est un numero de 6 a 7 chiffres, clee de ma table.

Voici le code que j'ai employe:
- Pour verouiller:

Code :

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

1
2
3
4
Private Sub Form_Load()
Me!nom_list = ""
Nom_control1.Locked = True
Nom_control2.Locked = True

- Pour deverouiller:

Code :

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

1
2
3
Private Sub nom_list_AfterUpdate()
Nom_control1.Locked = (Len(nom_list) > 1)
Nom_control2.Locked = (Len(nom_list) > 1)

Mon probleme est que pour environ un quart des valeurs selectionnables dans la liste, leur selection ne deverouille pas les controles en question (alors que pour les 3/4 des valeurs restantes, le deverouillage fonctionne.

Je precise que l'objectif est d'empecher toute saisie tant qu'un identifiant (valeur clee) n'a pas ete selectionne dans une liste deroulante.

En esperant avoir ete clair, je remercie ceux qui prendront le temps de m'aider.

[Invité]

Bonjour

Ces valeurs qui ne permettent pas le déverrouillage (donc le test) ont-elles une particularités par rapport aux valeurs qui déverrouillent ?

Philippe

[Benj24]

Non, les valeurs de la liste deroulante qui deverouillent semblent n'avoir aucune parrticularite. Par exemple, les valeurs 100081 et 100005 deverouillent alors que les valeurs 100099 et 156345 ne deverouillent pas.
Apres reverification avec une grande partie des valeurs de la liste ce serait plutot 1/4 des valeurs de la liste qui deverouillent et les 3/4 restants qui ne deverouillent pas... Donc si quelqu'un a une idee

[Benj24]

Finallement j'ai utilise une autre solution, qui bloque l'ensemble du formulaire sauf la liste, puis deblocage du formulaire dans l'evenement "after_update" de la liste.
Soit:

Blocage:

Code :

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

1
2
3
4
5
Dim ctl as Control
for each ctl in Me.Controls
On Error Resume Next
If not ctl.Name="leNomDeLaListe" Then ctl.Enabled=False
Next

Deblocage

Code :

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

1
2
3
4
5
Dim ctl as Control
for each ctl in Me.Controls
On Error Resume Next
If not ctl.Name="leNomDeLaListe" Then ctl.Enabled=True
Next

Merci quand meme.