Discussion :

[gudule1er]

Bonjour,

J'essaie de remplir une liste déroulante à l'aide d'une requête SELECT puis d'une boucle pour remplir ma liste
La requête me sort bien le premier enregistrement selon la condition que j'ai donné mais ça ne boucle pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim req_secssact As DAO.Recordset
    Dim sql_secssact As DAO.Database
    Set sql_secssact = CurrentDb
    Set req_secssact = sql_secssact.OpenRecordset("SELECT libelle, pk_secssact_code  FROM t_ref_secssact WHERE fk_secact_code=" & v_pk_secact, dbOpenDynaset)
    req_secssact.MoveLast
    Debug.Print req_secssact.RecordCount
    req_secssact.MoveFirst
 
    Do While Not req_secssact.EOF
        fk_secssact_code = req_secssact.Fields(0).Value
        req_secssact.MoveNext
        Loop
        req_secssact.Close

une idée du pourquoi ?

Merci

[tee_grandbois]

bonjour,
je suppose que ta demande fait suite à ce post.
Autant dire qu'il est inutile de multiplier les posts pour avoir plus de réponses, tu devrais plutôt faire des impressions d'écran ou utiliser Excel pour décrire ton besoin. Un schéma est parfois plus parlant que des termes inappropriés.
Une liste déroulante peut être remplie uniquement en précisant une liste de valeurs ou redéfinir sa propriété Contenu avec une requête ou une table.

[gudule1er]

Je n'ai pas fait un nouveau post pour avoir plus de réponse, mais comme le sujet avait changé, j'ai préféré un nouveau post



donc je fais une sélection pour remplir le secteur d'activité (fk_secact_code)
j'ai un événement AfterUpdate sur cette liste qui exécute un SELECT dans une autre table de BDD pour remplir le sous secteur activité (fk_secact_code) avec une clause WHERE
La requète fonctionne mais ne m'affiche qu'un seul enregistrement.
C'est pour ça que je veux mettre le résultat dans une boucle pour afficher toutes mes sous activité

c'est plus clair ou pas ?

[hyperion13]

Salut tee_grandbois, je ne fais que passer

gudule1er
Pour l'idée du pourquoi, tee_grandois vous a indiqué que la sub pour alimenter votre combobox n'est pas approprié.
Il serait plus simple et plus sage d'utiliser la propriété Contenu de l'onglet Données de votre combobox pour l'alimenter à l'aide d'une req SQL
Le champ de la 1ère combobox est une fk, donc vous devez probablement passer par SELECT COUNT(Champ en doublon) As ...
Que contient la clause WHERE de votre 2nd combobox ?

[gudule1er]

la clause WHERE contient l'ID de la première combobox, c'est pour cela que je passe par un sub qui permet de mettre à jour la 2eme combobox lors du changement de la première combobox

[hyperion13]

la clause WHERE contient l'ID de la première combobox, c'est pour cela que je passe par un sub qui permet de mettre à jour la 2eme combobox lors du changement de la première combobox

Vous vous compliquez la vie pour rien
Un solution bien plus simple ici