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 26/08/2011, 16h44   #1
Membre du Club
 
Homme Cédric MERSCH
Ordonnanceur
Inscription : novembre 2009
Messages : 48
Détails du profil
Informations personnelles :
Nom : Homme Cédric MERSCH
Localisation : France

Informations professionnelles :
Activité : Ordonnanceur
Secteur : Industrie

Informations forums :
Inscription : novembre 2009
Messages : 48
Points : 46
Points : 46
Par défaut Liaison dynamique activex <-> enregistrement

Bonjour,

Voici les données de mon problème:
- 1 table comprenant un champ nommé "Avancement" de type integer
- 1 formulaire sur lequel j'affiche les valeurs de champ de ma table
- 1 contrôle ActiveX de type Slider

Est-il possible de lier dynamiquement les valeurs de mon controle ActiveX et de mon champ "avancement" ?

Merci d'avance...
mc.schmer est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/08/2011, 18h47   #2
Membre du Club
 
Homme Cédric MERSCH
Ordonnanceur
Inscription : novembre 2009
Messages : 48
Détails du profil
Informations personnelles :
Nom : Homme Cédric MERSCH
Localisation : France

Informations professionnelles :
Activité : Ordonnanceur
Secteur : Industrie

Informations forums :
Inscription : novembre 2009
Messages : 48
Points : 46
Points : 46
Par défaut Tout va pour le mieux

Après pas loin de trois heures de reflexion et de recherche, je suis parvenu à régler mon probleme.
En effet le contrôle ne permet des procédure que sur Updated, gotfocus, lostfocus...
Mais en cherchant bien dans l'éditeur, d'autres procédures sont dispos en haut à droite de l'écran dont notamant Scroll.
Et cela donne:
Code :
1
2
3
Private Sub Slider6_Scroll()
Me.Label1.Caption = Me.Slider6.Value & "%"
End Sub
Pardon pour le dérangement
mc.schmer est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 03h12.


 
 
 
 
Partenaires

Hébergement Web