bonjour
dans afterupdate d'une combobox
 
Private Sub ctrgrp_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[groupe] = '" & Me![ctrgrp] & "'"
    Me.Bookmark = rs.Bookmark
End Sub
 
et dans NoInList
 
Private Sub ctrgrp_NotInList(newData As String, Response As Integer)
Dim rst As DAO.Recordset
 
If MsgBox("L'élément [" & _
    newData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
    vbQuestion + vbYesNo) = vbYes Then
    ' Ajouter l'élément à la liste
    Set rst = CurrentDb.OpenRecordset("GROUPE" )
    rst.AddNew
        rst![groupe] = newData
    rst.Update
    rst.Close
    Set rst = Nothing
         
End If
 
' Annuler le message d'erreur d'Access
    Response = acDataErrAdded
 
End Sub
 
apres avoir entré une nouvelle valeur dans la combobox et être passé à la textbox suivante pour entrer une donnée ,celle-ci est affichée dans le 1er enregistrement de la table.
j'ai essayé en supprimant les lignes
 rst.Close
    Set rst = Nothing
mais cela ne change rien
comment resoudre ce probleme?
merci