liste de valeurs dans une liste deroulante

**averooès** · 29/09/2008, 13h01

Bonjour
J’ai créé une liste de valeurs pour un champ dans une table, la liste et modifiable et je veux quand cas d’une valeur qui n’existe pas, qu’on puisse la rajouter a partir du formulaire.
Le voila mon code et je ne sais pas pour quoi ca ne marche pas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Groupe_d_appartenance_NotInList(NewData As String, Response As Integer)
Dim ctlComboBox As ComboBox
Set ctlComboBox = Me!Groupe_d_appartenance
If MsgBox("Cette valeur n'est pas dans la liste. Souhaitez vous l'ajouter ?", _
    vb0kcancel) = vb0K Then
    Response = acDataErrAdded
    ctlComboBox.RowSource = ctlComboBox.RowSource & ";" & NewData
Else
    Response = acDataErrContinue
    ctlComboBox.Undo
End If
End Sub

**DMboup** · 29/09/2008, 13h20

Il faut mettre un requery à la fin pour actualiser les modifications.

Code :

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

1
2
 
me.Groupe_d_appartenance.Requery

Ca c'est juste pour le faire apparaitre.

Je crois aussi qu'il faut prendre l'événement sur MAJ.

Maintenant pour l'enregistrer de manière permanente dans les valeurs de ta liste, il faut que le formulaire soit en mode création/modification.

**averooès** · 29/09/2008, 14h21

Merci pour ton aide, j’ai réessayé et ca ne marche toujours pas,
Le revoilà le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Groupe_d_appartenance_NotInList(NewData As String, Response As Integer)
Dim ctlComboBox As ComboBox
Set ctlComboBox = Me!Groupe_d_appartenance
If MsgBox("Cette valeur n'est pas dans la liste. Souhaitez vous l'ajouter ?", _
    vb0KCancel) = vb0K Then
    Response = acDataErrAdded
    ctlComboBox.RowSource = ctlComboBox.RowSource & ";" & NewData
Else
    Response = acDataErrContinue
    ctlComboBox.Undo
End If
Me.Groupe_d_appartenance.Requery
End Sub

Invité · 29/09/2008, 14h35

Bonjour

D'où vient ce code ?
Pourquoi utiliser une variable objet

Code :

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

Dim ctlComboBox As ComboBox

As-tu lu le code de la

http://access.developpez.com/faq/?page=zdl#AddItem

Starec

**averooès** · 29/09/2008, 14h55

Pour le code je me suis inspirer du livre VBA pour ACCES 2003, as-tu une idée pour quoi le code e marche pas

Invité · 29/09/2008, 15h04

Re

Je connais ce livre, et je ne suis pas d'accord avec ce code. Si tu as ce livre sous les yeux, tu verras page 219 que ce type de manipulation donne une liste provisoire.

Je te conseil le lien que je t'ai donné de la FAQ, rien que l'ajout d'un élément.

Starec

**averooès** · 29/09/2008, 16h33

Re
Regard ce code et ca marche toujours pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub test_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste?", _
                       vb0KCancel) = vb0K Then
        DoCmd.RunSQL "INSERT INTO Table1(test) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        test.Undo
    End If
End Sub

**averooès** · 29/09/2008, 17h00

voila le code car dans le dernier je me suis troper de table

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub test_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste?", _
                       vb0KCancel) = vb0K Then
        DoCmd.RunSQL "INSERT INTO Table2(liste) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        test.Undo
    End If
End Sub

je tiens a savoire pour quoi ce code ne marche pas, et pour quoi j'ai pas de message d'erreurs qund il marche pas?

Invité · 29/09/2008, 17h17

Re

Je te conseille d'utiliser une requête d'insertion de ce type : http://access.developpez.com/sql/#L2.2.5.a sans le Select.

De plus, pour que la liste soit mise à jour, il faut faire un requery dessus (un petit coup de

sur le mot Requery.

Starec

**Jacques-Henri** · 29/09/2008, 23h24

Bonsoir,
Bien que je ne suis que débutant ,je me permets d'ajouter un petit commentaire. Ne serait-ce pas mieux de placer d'abord ton code sur l'événement "absence dans liste" de ta liste déroulante.Essayes et tu repostes après.Il me semble que avoir vu cela quelque part, tout simplement parce que je cherche à résooudre un problème avec une mise à jour (différence avec ajoute ) à partir d'une liste déroulante.Je vais devoir poster pour une solution . Bonne chance.

**Jacques-Henri** · 29/09/2008, 23h35

Sorry, je me rends compte maintenant que ton code débute sur l'événement " sur absence dans liste.Mille excuses. Mais , j'ai peut-être une piste pour toi. Je recherche demain et je te tiens au courant. Il me semble (mais de mémoire) il faut appeler la bonne référence que tu vas utiliser , du genre

Code :

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

dim ... as ...

, celle dont tu fais appel n'est sans doute pas la bonne.A demain.

**averooès** · 06/10/2008, 12h54

Bon jour
Je relance ma question à propos de ma liste déroulante dans mon formulaire.
En fait j’ai 2 tables table1 avec le champ test et table2 avec le champ liste.
Le champ test contient une liste déroulante générer par une requête qui select les valeurs dans le champ liste de la table2
Je veux que quand on a une nouvelle valeur a partir du formulaire on la rajoute a la liste déroulante et donc au champ liste de la table2
J’espère que j’été claire pour expliquer mon problème
Voila le code que j’ai créé et ca marche pas
Si vous avez des propositions n’hésitez pas s’il vous a donné le code complet avec des explications sur les méthodes utilisé
Merci d’avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub test_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste ?", _
                       vbOKCancel) = vbOK Then
    strSQL = "INSERT INTO Table2(liste)" & _
    "VALUES ( & NewData & )" & _
    "FROM Table2;"
    DoCmd.RunSQL
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        test.Undo
    End If
    End Sub

**Renardo** · 06/10/2008, 19h07

bonjour,
essai se code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Test_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste?", _
                        vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO Table2(liste) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
      Test.Undo
    End If
 
End Sub

sur la propriétée limiter a liste mettre oui