Discussion :

[BBPG76]

Bonjour à tous,

Après plusieurs echecs et recherches, je me tourne vers la communauté.

Je souhaite afficher une MsgBox conditionnel 'FOURNISSEUR BLOQUE' après sélection d'un fournisseur dans une liste déroulante d'un formulaire 'EntCommande' dont le champ case à cocher 'Blocage Fournisseur' est 'Oui' au sein de ma table 'Fournisseurs'

J'imagine que la fonction IIF est nécessaire mais je n'arrive pas écrire la ligne de code.

Comptant sur votre aide

Bien amicalement,

[bertiny]

Bonjour
Si l'opération d'affichage ne dépend que du choix d'une valeur sur la liste déroulante Il faut écrire un truc de ce genre sur l'événement sur changement de la liste déroulante.

Code :

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

1
2
3
4
5
If nom_liste_déroulante = "" then 
Me.Nom_zone_texte.Property.visible = False 
Else 
Me.Nom_zone_texte.Property.visible = True 
End If

Tu auras donc à adapter nom_liste_déroulante et Nom_zone_texte à ton cas.

Cordialement

[BBPG76]

Bonjour Bertiny,

Hélas, votre proposition ne repond pas à mon besoin exprimé.

Pour l'instant, je triche en utilisant un filtre au chargement de la liste déroulante qui ne fait apparaître les fournisseurs 'cochés'

Mais, cette duperie m'apporte plus de questions de mes collègues a savoir si le fournisseur qui n'apparaît pas dans la liste déroulante est bloqué ou supprimé.

Donc, il faut absolument une réponse en phase avec ma question.

Merci pour le temps que vous avez consacré à me répondre.

Bien à vous,

[bertiny]

Bonsoir
Désolé je ne vous ai pas bien lu. Pour le faire il faut déjà qu'au niveau du formulaire tu aies la case à cocher avec son état (coché ou décoché)

Code :

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

1
2
3
If me.[blockage fournisseurs].value then 
Msgbox("bloqué")
End if

[marot_r]

Bonjour.

Un truc que j'ai utilisé dans une de mes listes déroulantes avec peu de valeurs est d'afficher l'info de statut après les textes.

Cela donne un truc du genre :

Code sql :

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

1
2
3
select MaTable.Clef, MaTable.Description & iif(not MaTable.EstACtif, " (#Inactif#)", ""), MaTable.EstACtif
from MaTable
order by MaTable.Description

Ma liste est définie avec 3 colonnes de largeur 0; 10; 0.

Donc mon utilisateur voit

Tata (#Inactif#)
Titi
Toto (#Inactif#)

La 3ième colonne (indice 2) peut servir à mettre du code pour afficher un message d'alerte du genre : "Est inactif, ne pas sélectionner" ou à simplement refuser le choix.

Évidement cela ne marche bien que si tu as peu d'incatifs.

Si tu en as beaucoup, alors il faut les mettre en fin de liste pour ne pas à avoir à passer à travers chaque fois qu'on fait un choix.

A+

[BBPG76]

Bonjour Marot,

Merci pour ta proposition qui pourrait fonctionner.

J'ai donc dans le champ combobox ajouter la visibilité de deux colonnes supplémentaires (BLOCAGE et MOTIF);

Maintenant, j'essaye d'utiliser la fonction 'Valide Si' à partir de de la feuille de propriétés mais je bute sur l'écriture de la condition; j'ai essayé column(3)="Oui" et donc Message si erreur : Fournisseur bloqué ! mais j'obtiens un message d'erreur

Comment devrait-on écrire cette condition dans 'Valide Si' ?

Bien à toi,

[marot_r]

Bonjour.

Je ne suis pas sur que les colonnes soit accessible à cet endroit.
Et je ne me sert jamais de cette fonctionnalité.
De plus les colonnes sont numérotés en commençant à 0 donc la 3ième colonne a le numéro 2.
La syntaxe est peut-être

Code :

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

Column(2)=true

ou

Code :

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

[NomTaListe].Column(2)=true

Personnement j'utilise les événements Après MAJ ou/et Avant MAJ et des procédures VBA pour faire mes contrôles de données.
Cela m'offre beaucoup plus de souplesse.

A+

[hyperion13]

Salut,
Ne serait-il pas plus simple de créer un évènement sur DoubleClick() pour la liste déroulante ?

Code :

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

1
2
3
Private Sub Modifiable0_DblClick(Cancel As Integer)
DoCmd.OpenForm "FormulaireFournisseur", , , "idFournisseur = Forms!EntCommande!Modifiable0"
End Sub

Faire en sorte de visualiser dans la liste déroulante la colonne Blocage fournisseur et si l'on veut connaitre les raisons du blocage un double-clic sur la valeur de la liste déroulante.

[BBPG76]

Bonjour Marot,

J'ai donc renseigné la deuxième ligne de code dans le champ 'Valide Si' et cela fonctionne parfaitement bien; le message si erreur renseigné apparaît bien également

En fait, j'avais renseigné la ligne de code proposée avec = "Non" entre guillemets mais il fallait les ôter

Merci pour cette aide, et merci également à tous les autres contributeurs !

Je pense que je reviendrai sur ce forum bientôt

Bien à toi,