Bonjour,
J'avais jusqu'à présent la sub:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub lstFind_AfterUpdate()
 
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N°] = " & Str(Me![lstFind])
    Me.Bookmark = rs.Bookmark
 
 
End Sub
pour rechercher un enregistrement.

J'ai rajouter la sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
  If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If
 
End Sub
pour confirmer les modification mais j'obtiens un message d'erreur lors de l'execution. A quoi cela est il dû ?

De plus, si je modifie un enregistrement puis quitte access, mon message de confirmation apparaît, mais si je sélectionne NON, j'obtiens alors un message d'Access du style: "Impossible d'enregistrer cet objet pour l'instant ..."
Dois je ignorer ce message, par exemple en désactivant les message de confirmation sur fermeture ?

Merci d'avance pour toute aide