---Soumis par Dev Ashish---
Ajouter un item à une liste d'un combo box, en utilisant la procédure événementielle OnNotinList.
(Q) Comment peut-on ajouter automatiquement un item dans
une liste d'un combo box avec OnNotInList?
(A) De baser sur le code suivant comme exemple. Ce code ajoute
une nouvelle entrée dans la table sous-jacente et rafraîchit la liste du
combo-box. Cet exemple utilise également la boîte de message formaté d'Access, avec le code @.
'************ Code Start ********** Private Sub cbxAEName_NotInList(NewData As String, Response As Integer) Dim db As Database, rs As Recordset Dim strMsg As String strMsg = "'" & NewData & "' n'est pas disponible pour cbxAEName" strMsg = strMsg & "@Désirez vous ajouter ce nom dans la liste?" strMsg = strMsg & "@Cliquer sur Oui pour l'ajout; sur Non, autrement." If MsgBox(strMsg, vbQuestion + vbYesNo, "Ajouter un nouveau nom?") = vbNo Then Response = acDataErrContinue Else Set db = CurrentDb Set rs = db.OpenRecordset("tblAE", dbOpenDynaset) On Error Resume Next rs.AddNew rs!AEName = NewData rs.Update If Err Then MsgBox "Une erreur inattendue s'est produite. SVP, réessayer." Response = acDataErrContinue Else Response = acDataErrAdded End If End If End Sub '*********** Code End **************