Bonjour,

Je souhaite, pour éviter de perdre un lien en raison d'une fausse manipulation, demander à l'utilisateur s'il est sur de vouloir écraser un lien déjà saisi.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
On Error GoTo Err_cmdServeur_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
If IsNull(lien_support_dta) = False Then
    If msgbox("Etes vous sur de vouloir écraser le lien? ", vbYesNo, "Confirmation") = vbNo Then
    Me.Undo
    Else
    stDocName = "ParcourirFormlienDTA"
 
    DoCmd.OpenForm stDocName, , , , acFormAdd
 
    End If
ElseIf IsNull(lien_support_dta) = True Then
 
 
    stDocName = "ParcourirFormlienDTA"
 
   DoCmd.OpenForm stDocName, , , , acFormAdd
Exit_cmdServeur_Click:
    Exit Sub
 
Err_cmdServeur_Click:
    msgbox err.Description
    Resume Exit_cmdServeur_Click
End If
Le hic : quand je sélectionne "non" pour ne pas écraser le lien, le formulaire pour saisir le lien ne s'ouvre pas (comme voulu), mais le lien s'efface quand même!!!

Le Me.Undo ne sert il pas a annuler l'action précédente?

Quelqu'un a une idée?

polo31