Discussion :

[remi59]

Bonjour,

Ca à l'air tout simple, mais je me galère depuis un bon moment là-dessus :

J'ai sur un formulaire une liste déroulante, basée sur une table.
A l'ouverture du formulaire, je souhaiterais ajouter une valeur à cette liste, sans pour autant l'ajouter à ma table.

J'ai beau chercher cans la FAQ, je ne trouve pas réponse à ma question.

Code :

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

Me!MyList.RowSource=Me!MyList.RowSource & ";NouvelElement"

Ceci est apparemment réservé aux listes de valeurs...

Est-ce que quelqu'un peut m'aider ?
Merci d'avance !

[ptitdragon_eric]

Si ta liste est basée sur une table, tu ne peux pas rajouter des valeurs qui ne sont pas présentes.

La seule solution c'est de baser ta liste sur des valeurs et de rajouter les valeurs a l'ouverture de la table et de les enlever à la fermeture du formulaire. Mais attention que ta liste respecte bien les liens entre les tables si la valeur attribuée est dans un champs d'une table

[Muhad'hib]

Ou alors tu base ta liste sur une requete union qui fait la somme de ta table et ta valeur.

[remi59]

Bonjour, j'ai finalement trouvé solution à mon problème : ajouter par le code toutes les valeurs de ma table, puis après la valeur supplémentaire.

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_Current()
    Dim qdf As DAO.QueryDef
    Dim rcs As DAO.Recordset
    Dim ma_req As Variant
    Dim nb_enreg As Integer
    Dim i As Integer
 
    ma_req = "RQ"
 
    Set qdf = CurrentDb.QueryDefs(ma_req)
    Set rcs = qdf.OpenRecordset
 
    rcs.MoveLast
    rcs.MoveFirst
    nb_enreg = rcs.RecordCount
 
 
For i = 1 To nb_enreg
    If i = 1 Then
        rcs.MoveFirst
        MaListe.RowSource = rcs![champ]
    Else
        rcs.MoveNext
        MaListe.RowSource = MaListe.RowSource & ";" & rcs![champ]
    End If
Next
        MaListe.RowSource = MaListe.RowSource & ";Ma valeur supplémentaire"
 
End Sub

Merci à ceux qui ont bien voulu m'aider !

[Muhad'hib]

Attention : cette méthode a ses limites. Tu est limité dans la taille de ta liste. Voir le post :
http://www.developpez.net/forums/vie...light=#2455551