Discussion :

[JGLord]

Actuellement sous Access 2003, j'essaie de créer un "drop down list" dont les valeurs disponibles proviennent d'un code VBA (voir plus bas). Grosso modo, j'essaie d'afficher dans mon drop down list le nom des tables d'une autre base de données Access. Tout fonctionne très bien, sauf qu'il m'est impossible de sélectionner une valeur, et ce, même si la propriété "Verrouillé" de ma liste est à "Non".

J'aimerais pouvoir faire ma sélection (le nom d'une table) et ensuite utiliser la propriété "ItemData" de ma liste pour passer sa valeur comme un argument à une autre fonction.

J'ai lu dans ce forum sous le libelle "Impossible de sélectionner une valeur dans la liste déroulante" qu'il est possible d'avoir ce problème lorsqu'on est sur une zone de liste déroulante qui est liée à un champ d'une table. Apparemment, il faut créer un contrôle indépendant puis utiliser la commande "Docmd.FindRecord". Concrètement, je ne sais pas comment appliquer ce conseil... Quelqu'un pourrait-il m'aider?

Merci!

L'image associée à mon formulaire est en pièce jointe.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Form_Open(Cancel As Integer)
 
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim qdf As DAO.QueryDef
    Dim sSql As String
 
    'Défini la base de données cible
    Set db = DBEngine.OpenDatabase(Form_fSelectDB!tBrowse)
 
    ' Création de la requête
    sSql = "SELECT [Name] FROM msysobjects WHERE ([type] =1 and Flags = 0) or [type] = 6;"
 
    ' Ouverture du recordset cible
    Set rs = db.OpenRecordset(sSql, dbOpenForwardOnly, dbReadOnly)
 
    ' Création d'une vue temporaire (requête)
    Set qdf = CurrentDb().CreateQueryDef("tmpQuery", sSql)
    qdf.Close
    rs.Close
 
    ' Initialisation de la DropDownList
    Me!ddlTable.ColumnHeads = False
    Me!ddlTable.ColumnCount = 1
    Me!ddlTable.ColumnWidths = "4320;4320"
    Me!ddlTable.RowSourceType = "Table/Query"
    Me!ddlTable.RowSource = "tmpQuery"
 
End Sub

[MC2]

Bonjour,
je me trompe peut-être mais il me semble que ce n'est pas faisable ton truc, à moins d'insérer la liste de tes tables dans une table locale et de faire pointer le contenu de ta liste sur ta table locale.

Par ailleurs, si tu te sers ultérieurement de "db", il faudrait définir ta variable au niveau formulaire et pas seulement en local dans le Form_Open car une fois la proc finie, toutes les variables sont ré-initialisées et "db" fermée.

[azertix]

Si ce n'est pas faisable, ça expliquerait le nombre de topic qui parlent de ça en ce moment, mais bon, j'espère que quelqu'un aura une solution

[MC2]

ou alors, transformer le type de contenu de ta combo en liste de valeurs plutôt que table et construire cette liste soit en lisant les valeurs de [Name] une par une, soit en utilisant un tableau et rs.GetRows...

[Jeannot45]

Bonjour,

J'opterai pour la proposition de MC2 concernant la liste de valeurs que tu pourrais créer à partir de ton Recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With rs
    Do While Not .EOF
        strListeTables= strListeTables& ";" & .Fields(0) & ";" & .Fields(1)
        .MoveNext
    Loop
End With
 
' suppression de la virgule superflue en début de chaine
strListeTables= Right(strListeTables, Len(strListeTables) - 1)
 
' Récupération des données à afficher
with ddlTable
      .ColumnCount = 2
      .ColumnWidths = "4320;4320"
      .RowSourceType = "Value List"
      .RowSource = strListeTables
End With

[MC2]

détail, comme je suis fainéante : il est inutile de supprimer le ";"...

[Jeannot45]

Je sais, mais malheureusement, je suis un peu maniac

[JGLord]

Merci beaucoup pour toutes vos réponses!

Je viens tout juste de trouver mon problème... C'est disons très gênant, mais je ne partais pas d'un formulaire vierge et je n'avais pas porté attention à la propriété du formulaire "Modif autorisée". Je regardais simplement la propriété "Verrouillé" de ma liste...

Merci encore!