Absence dans liste déroulante

**mystikgirl30** · 23/05/2007, 10h56

Re bonjour à tous !!

Je suis en présence d'un formulaire de saisie. Grace à la FAQ, j'ai trouvé comment proposer d'ajouter un élément dans une liste si celui-ci est absent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub genre_NotInList(NewData As String, Response As Integer)
 
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des genres ?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
    DoCmd.RunSQL "insert into genre(nom_genre_latin) select """ & NewData & """ ;"
Else
    Response = acDataErrContinue
    genre.Undo
End If
    Me.genre.Requery
 
End Sub

Tout marche nickel sauf qu'après avoir valider l'ajout de l'élément, un message d'erreur apparait en me disant "enregistrez le champ en cours avant d'exécuter l'action actualiser @" Lorsque je mets fin, on me dit que l'élément saisi n'appartient pas à la liste et si je mets débogage ça me surligne de jaune

Code :

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

me.genre.requery

J'ai essayé avec le "update" et ça ne marche pas non plus.

Auriez-vous une idée ou une piste à me filer, svp ??

Merci beaucoup !

**snoopy69** · 23/05/2007, 11h15

Bonjour ...

Juste une petite question : Comme s'appelle ta zone de liste déroulante ?

Car dans l'exemple que tu mentionnes et que je remets :

Code :

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

1
2
3
4
5
6
7
Private Sub genre_NotInList(NewData As String, Response As Integer) 
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des genres ?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.RunSQL "insert into genre(nom_genre_latin) select """ & NewData & """ ;" 
Else  Response = acDataErrContinue genre.Undo 
End If  
Me.genre.Requery   
End Sub

La zone de liste déroulante s'appelle : genre

L'erreur que tu as à la ligne :

Code :

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

Me.genre.requery

peut venir quand le nom de la liste déroulante ne correspond pas.

En espérant t'avoir aider ...

**mystikgirl30** · 23/05/2007, 11h18

Tu veux dire que le nom "genre" ne serait pas celui de la liste ??

**snoopy69** · 23/05/2007, 13h03

Exactement ...

Regarde le nom de ta liste ... peut être que cela ne correspond pas ...

**Tofalu** · 23/05/2007, 14h38

Bonjour,

Un exemple issu de la FAQ

Code :

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

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

**mystikgirl30** · 24/05/2007, 09h05

C'est exactement ce que j'ai mis mais je voudrais que ma liste se mette à jour (et j'ai vérifié, c'est le bon nom !!). D'ou mon requery sur la liste et donc mon problème !

**mystikgirl30** · 30/05/2007, 08h40

Up !

Désolée de revenir à la charge avec ça !

J'ai toujours le même problème mais pas sur la même liste. C'est à dire que la première fonctionne très bien (avec "genre") mais sur la seconde, ça ne marche à nouveau pas.

Si vous pouviez m'aider....

Merci et bonne journée à tous !