Utilser evement NotInList

Fermé
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 20 mai 2012 à 18:56
Bonjour,
En access 2003
J'utilise ce code sur l'evenement NotInList dans une liste déroulante.
Si la variable rst est définie seule cela fonctionne.
Si la variable rst est définie comme cela
Dim rst As Recordst ou Dim rst As DAO.Recordset
cela ne fonctionne pas.
Pouvez vous m'expliquer les raisons.
Je vous remercie de votre aide.

Private Sub Elève_NotInList(NewData As String, Response As Integer)

Response As Integer
'Cela fonctionne
Dim rst
'Cela ne fonctionne pas
'Dim rst As Recordset
'Dim rst 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