Discussion :

[enkie]

Bonjour

Je souhaiterais interdir la selection d'une valeur dans une liste déroulante c'est-à-dire que la personne ne puisse choisir qu'entre certaines valeurs de la liste mais pas la totalité.

Est-ce que vous auriez une petite idée? (et surtout est-ce que c'est possible? )
Je n'ai rien trouvé là dessus dans la FAQ

[LE VIEUX]

bonsoir,
tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Modifiable0_Click()
If Me.Modifiable0 = "CeQueJeVeuxPas" Then
MsgBox ("Selection Interdite Selectionnez une autre ligne")
Me.Modifiable0 = ""'efface la zone sinon l'info reste
 
Cancel = True ' laisse le focus à la modifiable pour la nouvelle entrée
 
End If
 
End Sub

c'est pas hyper sécurisé - tu peux ajouter
limiter à liste à oui
autoriser les modifs à non

[lvr]

Comme il n'y a pas de "Cancel" sur l'event "Click", je mettrais cela plutôt dans l'event Modifiable0_BeforeUpdate

[LE VIEUX]

bonsoir,
exact j'ai essayé les 2, et copié par erreur, les 2 formules
il n'y a pas besoin de cancel dans l'évenement sur click et cela marche pareil
je pense d'ailleurs qu'elle est inutile dans tous les cas.

[enkie]

Bonjour.

Chez moi ça ne marche pas. Serait-ce dû au fait que mes champs se trouve dans un sous-formulaire en mode feuille de données??

Edit: je viens de comprendre pourquoi ça ne marche pas
En fait ma liste est basée sur une requête qui comprend un champ ID et un champ de type texte (j'avais oublié ce détail ) donc moi je mettais la valeur du champ texte au lieu de mettre le N° de l'ID

Par contre j'obtiens une erreur sur la ligne

Code :

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

Me.Id_Cycle = ""

j'ai essayé avec Null mais idem...

[LE VIEUX]

si ton champ et de type numérique tu mets :

Code :

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

Me.Id_Cycle = 0

[enkie]

Oui c'était logique... -.-"

Mais j'ai toujours la même erreur sur la même ligne:
Erreur d'exécution '-2147352567(80020009)': La macro ou fonction attribuée à la propriété AvantMAJ ou ValideSi pour ce champ empêche Microsoft Office Access d'enregistrer les données dans le champ.

Et quand j'ai cherché sur le site de MS aide, cette erreur correspondrait à une exception qui s'est produite...

Edit:
C'est bon j'ai trouvé ^^
En fait faut mettre le code sur AfterUpdate et là ça marche nickel chrome

[LE VIEUX]

salut,

tu as résolu ton problème semble-til, le tag RESOLU dans ce cas est de rigueur, sinon régulateur pas content,
à bientôt pour d'autres aventures !!!!

[enkie]

Me semblait l'avoir fait hier... bizarre

[enkie]

edit