Problème avec une liste déroulante sous Access 2003

Résolu
cs_eric03 Messages postés 20 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 2 mai 2005 - 2 févr. 2005 à 14:38
cs_eric03 Messages postés 20 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 2 mai 2005 - 2 févr. 2005 à 19:00
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

antoineraymond Messages postés 99 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 4 décembre 2008
2 févr. 2005 à 17:17
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
cs_eric03 Messages postés 20 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 2 mai 2005
2 févr. 2005 à 19:00
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
0