Problème avec une liste déroulante sous Access 2003 [Résolu]

Signaler
Messages postés
20
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
2 mai 2005
-
Messages postés
20
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
2 mai 2005
-
Bonjour à tous !

Voici mon problème :
Sur un formulaire d'access, j'ai une liste déroulante avec une table comme source. Si le texte entré dans la liste déroulante est différent des enregistrements de la table, j'aimerai que la valeur entrée s'ajoute à la table. Comment puis-je faire, SVP ?

Merci !

Eric

2 réponses

Messages postés
99
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
4 décembre 2008

Avec la fonction NotInList de la liste déroulante

Private Sub Modifiable0_NotInList(NewData As String, Response As Integer)
Dim intReponce As String
intReponce = MsgBox(NewData & " n'est pas dans la liste. Voulez-vous l'ajouter ?", vbYesNo)


If intReponce = vbYes Then
Dim temp As String
temp = "INSERT INTO Table1(Test) VALUES('" & NewData & "')"
DoCmd.RunSQL (temp)
Response = acDataErrAdded
Else
MsgBox ("Veillez choisir un élément dans la liste.")
Response = acDataErrContinue
End If
End Sub

Antoine
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 197 internautes nous ont dit merci ce mois-ci

Messages postés
20
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
2 mai 2005

Merci pour le code, il fonctionne super ! (enfin quand on oublie pas de changer 'test')

C'est vraiment sympa et ça m'a beaucoup aidé !

Merci beaucoup !!!!

Eric