Discussion :

[kimar]

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

[jm_force]

Find c'est une "methode" dans ACCESS donc un mot réserver, faudrait de tte façon l'enlever! et apres tu seras déja moins embeter!

[kimar]

Dac' c'est modifié. Mais ca ne change rien au problème .

[jm_force]

c'est quoi le message d'erreur lors de l'execution?!

[kimar]

"Erreur d'execution 2001. Opération annulé."

J'obtien ce message lorsque je modifie un enregistrement, puis que j'en sélectionne un autre et que je choisie NON dans la msgbox.

Le debugeur me surligne cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Bookmark = rs.Bookmark

[jm_force]

Ben souvent quand à abandonne l'exécution de l'opération, cela veut dire que tu lui demande de faire des choses opposées. Donc faudrait que t'enlève un après l'autre tes lignes d'instruction et tu verras bien s'il faut pas les inverser ou faire autrement!

puis j'espère que le deuxieme Sub c'est l'ouverture du formulaire et pas un nom que tu as choisi, car form est aussi un mot réserver!

[guigui5931]

Tu peut essayer d'intercepter l'erreur en utilisant le On Error Goto