Evenement NotInList

Fermé
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 21 mai 2012 à 11:22
Bonjour,

J'essaie d'utilisé cette procédure sur un liste deroulante.
Lorsque que je déclare la variable Dim rst As Recordset ou Dim rst As DAO.Recordset, cela ne fonctionne pas.
Cela bloque sur la ligne:
Set rst = CurrentDb.OpenRecordset("ELèves")
Pouvez vous m'expliquer?
Je vous remercie


Private Sub Elève_NotInList(NewData As String, Response As Integer)
'Response As Integer
Dim rst
'As Recordset
'As DAO.Recordset
If MsgBox("L'élémént [" & NewData & "] ne figure pas dans la liste.Voulez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
'Ajouter un élément a la liste

Set rst = CurrentDb.OpenRecordset("ELèves")

rst.AddNew
rst!Nom = NewData
rst.Update
rst.Close
Set rst = Nothing
End If
'Annuler le message d'erreur d'access
Response = acDataErrAdded

End Sub