castours
Messages postés2955Date d'inscriptionlundi 18 septembre 2006StatutMembreDernière intervention31 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