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