Absent de la liste déroulante

**PascalJ** · 09/06/2009, 21h18

Bonjour,

autre question :

comment détecter si le row choisi dans une liste déroulante est issu des données de la table ou pas ?

Merci

**al_bert** · 09/06/2009, 21h34

Bonjour,

je ne comprends pas très bien ce que tu veux dire... Est-ce que tu désires tester l'existence d'une valeur de la liste dans une table?

Salutations,

**PascalJ** · 09/06/2009, 21h59

Envoyé par al_bert

Bonjour,

je ne comprends pas très bien ce que tu veux dire... Est-ce que tu désires tester l'existence d'une valeur de la liste dans une table?

Salutations,

en fait, en me relisant, je ne me comprends pas non plus

a l'ouverture du formulaire, ma liste déroulante contient des données issues d'une table

Par exemple :

AAA
BBB
DDD
EEE
JJJ

Je veux :
1 : Détecter si la valeur saisie, par exemple ZZZ était dans la liste initiale donc effectivement si elle existe dans la table
2 : Si la valeur choisie n'existe pas la créer dans la table et faier un requery sur la liste déroulante

Merci

**al_bert** · 09/06/2009, 22h19

Bonjour,

ce n'est peut-être pas la manière la plus optimale, mais ce code fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim table As DAO.Database
Dim enregistrement As DAO.Recordset
 
Set table = CurrentDb
 
Set enregistrement = table.OpenRecordset("SELECT * FROM TABLE_DONNES WHERE TABLE_DONNES.nom = '" & listeDeroulante.Value & "'")
 
If enregistrement.RecordCount = 0 Then
 
       DoCmd.RunSQL "INSERT INTO TABLE_DONNES (nom) VALUES ('" & listeDeroulante.Value & "') "
 
End If

dans l'événement "après mis à jour" de la liste déroulante. La liste est indépendante et sa source est une requête SQL se type "SELECT" sur les données de ma table. Si l'usager sélectionne un nom qui existe déjà, il ne se passe rien. En revanche, s'il entre un nom qui n'existe pas, la requête d'insertion crée une nouvelle entrée dans la table.

En espérant que cela te donne un petit coup de pouce,
Salutations