Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/11/2010, 13h40   #1
Membre régulier
 
Lorenzo Checchi
Inscription : septembre 2007
Messages : 120
Détails du profil
Informations personnelles :
Nom : Lorenzo Checchi
Âge : 49
Localisation : Luxembourg

Informations forums :
Inscription : septembre 2007
Messages : 120
Points : 87
Points : 87
Par défaut Liste déroulante (Indépendante)

Bonjour,

Dans un formulaire de type continu, j’ai une liste déroulante qui copie la donnée sélectionnée dans un champ :

Code :
Code :
1
2
3
Sub Modifiable1_AfterUpdate()
Forms![FrmExemple]!Champ1= Forms![FrmExemple]!Modifiable1.Column(0)
End Sub
Mon problème est que la valeur sélectionnée dans la liste déroulante reste affichée dans le contrôle Objet, ce qui prête une certaine confusion lorsqu’il y a déjà plusieurs enregistrements dans le formulaire (affichage en cascade).

Le problème est solutionné lorsque je ferme et ré-ouvre le formulaire, mais lors d’un travail d’encodage, cela fait perdre énormément de temps.

Comment puis-je faire en sorte que les contrôles reviennent à blanc après exécution du contrôle ?

Merci pour votre aide.

A bientôt
Lorenzole+bo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/11/2010, 14h12   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Essaie
Code :
1
2
3
4
Sub Modifiable1_AfterUpdate()
Me.Champ1= Me.Modifiable1.Column(0)
Me.Modifiable1=Null
End Sub
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 23h03.


 
 
 
 
Partenaires

Hébergement Web