Home
Home

---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 **************