RECHERCHER :
COMMUNAUTE MP
Identifiez vous ...
Devenir Membre
J'ai oublié mon MDP
DOMAINE MP
Bavardages
Langages Généraux
Langages Web
Langages DotNet
Autres langages
Dev. Jeux Video
Sécurité
Sys. Exploitation
Graphismes
Logiciels
Réseaux
Bases de données
Méthodologies
Emplois High-tech
Aide juridique
Articles juridiques
FORUM
Index des forums
Ajouter un sujet
Rechercher sujet
Contact Responsable
Devenir modérateur
CHAT MP IRC
Votre pseudo ...
Serv: irc.irc-land.org
Chan: #MoteurProg
PARTICIPER
Plus de 3500 emplois.
Rechercher un job
Déposez votre CV
Emplois High-tech

Visiteur MP

 Erreur d'execution 2176

Forum : ACCESS
Sous Catégorie : Aucune
Type du sujet : Sujet Normale
FAQ : FAQ ACCESS

SUIVI DES SUJETS PAR MAIL

SUIVI PAR MAIL INACTIF

RESOLUTION DU SUJET SUJET NON RESOLU
BLOQUAGE DU SUJET SUJET ACTIF
APPARTENANCE A LA FAQ N'APPARTIENT PAS A LA FAQ


PAGE : [1]

POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

FORUM ACCESS

PREMIERE PAGE

PAGE PRECEDENTE

Page précedente

Page suivante

PAGE SUIVANTE

DERNIERE PAGE
dashblade
Nouveau membre
Inscrit : 29/05/2008
Messages : 9
Message
#153593
Posté le 29/05/08 à 11:24
Bonjour a tous,

je voudrais remplir une liste déroulante à l'aide d'une requete sql dans VBA.

Je dois utiliser vba car je veux faire par exemple :
liste 1 : labo
liste 2 : region

Si je selectionne une region ma liste contenant les labos sera restreinte en fonction des regions (apterupdate). Tandis que si aucune régions n'a été sélectionnées la liste comprend tous les labos existant (sur entree). et de même pour la liste region.

Seulement j'ai un pb, une boite de dialogue s'affiche : "erreur d'execution 2176 : le paramètre de ctte propriété est trop long", sachant que la colonne de ma table Intituleunite contient 7000 enregistrements.
Comment puis régler ça?

Voici mon code.


Private Sub nom_lab_Enter() Dim myrst As Recordset Dim db As Database Dim SQL As String Dim s As String nom_lab.RowSource = "" Set db = CurrentDb() SQL = "SELECT DISTINCT Intituleunite FROM base_cnrs" Set myrst = db.OpenRecordset(SQL, dbOpenSnapshot) While Not myrst.EOF res = myrst.Fields("Intituleunite") 'rajout du labo dans la liste deroulante Me.nom_lab.AddItem res myrst.MoveNext Wend myrst.Close End Sub

HAUT DE PAGE

PROFIL MEMBRE LUI ECRIRE 

Publicité
Inscrit : X
Messages : X
Message
#Aucun

HAUT DE PAGE

  

francisHop
Membre newbie
Inscrit : 11/05/2008
Messages : 52
Message
#153626
Posté le 30/05/08 à 00:17
Bonsoir,

Pour contourner le problème il faut donner à la liste comme source : Table/Requête.

Ceci peut se faire pour le cas présent à l'aide de 2 requêtes.
Ou d'une seule dont on modifie le sql par programmation.

Cordialement.
__________________________
Le peu que je sais, c'est à mon ignorance que je le dois. Sacha Guitry

HAUT DE PAGE

PROFIL MEMBRE LUI ECRIRE 

dashblade
Nouveau membre
Inscrit : 29/05/2008
Messages : 9
Message
#153634
Posté le 30/05/08 à 09:09
Bonjour et merci d'avoir repondu,

j'ai finalement fait comme vous me l'avez dit et cela fonctionne tres bien!

cordialement,

Dashblade

HAUT DE PAGE

PROFIL MEMBRE LUI ECRIRE 
POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

PREMIERE PAGE

PAGE PRECEDENTE Page précédente

Page suivante

PAGE SUIVANTE DERNIERE PAGE

FORUM ACCESS



    PAGE : [1]



.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.