OVH Cloud OVH Cloud

Demande confirmation modification enregistrements

3 réponses
Avatar
PO2B
Bonjour à tous,

Sur fermeture de mon formulaire, je demande confirmation en cas de
modification

J'ai bien la msgbox avec la demande de modification, mais que je réponde oui
ou non, la modification s'effectue ???

Voilà le code utilisé :
----------------------------------------------------------------------------
--------------------------
Private Sub Form_AfterUpdate()

'Demande confirmation modification
If MsgBox("Confirmez-vous les modifications ?", vbYesNo,
"Modifications") = vbNo Then
Me.Undo
Cancel = True
End If

End Sub
----------------------------------------------------------------------------
-------------------------

Pouvez-vous m'aider, Merci

Patrice

(Question subsidiaire, peut-on en plus ajouter une image dans la msgbox type
"VbExclamation" et si oui où le placer ?)

Merci

3 réponses

Avatar
Pierre CFI [mvp]
bonjour
ce serait mieux sur beforeupdate

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"PO2B" a écrit dans le message de news:
Bonjour à tous,

Sur fermeture de mon formulaire, je demande confirmation en cas de
modification

J'ai bien la msgbox avec la demande de modification, mais que je réponde oui
ou non, la modification s'effectue ???

Voilà le code utilisé :
----------------------------------------------------------------------------
--------------------------
Private Sub Form_AfterUpdate()

'Demande confirmation modification
If MsgBox("Confirmez-vous les modifications ?", vbYesNo,
"Modifications") = vbNo Then
Me.Undo
Cancel = True
End If

End Sub
----------------------------------------------------------------------------
-------------------------

Pouvez-vous m'aider, Merci

Patrice

(Question subsidiaire, peut-on en plus ajouter une image dans la msgbox type
"VbExclamation" et si oui où le placer ?)

Merci




Avatar
Yann
Salut,
If Msgbox("Blabla",vbYesNo + VbExclamation) = .........

Bye
Yann

-----Message d'origine-----
Bonjour à tous,

Sur fermeture de mon formulaire, je demande confirmation
en cas de

modification

J'ai bien la msgbox avec la demande de modification,
mais que je réponde oui

ou non, la modification s'effectue ???

Voilà le code utilisé :
---------------------------------------------------------
-------------------

--------------------------
Private Sub Form_AfterUpdate()

'Demande confirmation modification
If MsgBox("Confirmez-vous les modifications ?",
vbYesNo,

"Modifications") = vbNo Then
Me.Undo
Cancel = True
End If

End Sub
---------------------------------------------------------
-------------------

-------------------------

Pouvez-vous m'aider, Merci

Patrice

(Question subsidiaire, peut-on en plus ajouter une image
dans la msgbox type

"VbExclamation" et si oui où le placer ?)

Merci


.



Avatar
PO2B
Merci à tous deux, mes 2 questions sont réglées.

Patrice

"PO2B" a écrit dans le message de news:

Bonjour à tous,

Sur fermeture de mon formulaire, je demande confirmation en cas de
modification

J'ai bien la msgbox avec la demande de modification, mais que je réponde
oui

ou non, la modification s'effectue ???

Voilà le code utilisé :
--------------------------------------------------------------------------
--

--------------------------
Private Sub Form_AfterUpdate()

'Demande confirmation modification
If MsgBox("Confirmez-vous les modifications ?", vbYesNo,
"Modifications") = vbNo Then
Me.Undo
Cancel = True
End If

End Sub
--------------------------------------------------------------------------
--

-------------------------

Pouvez-vous m'aider, Merci

Patrice

(Question subsidiaire, peut-on en plus ajouter une image dans la msgbox
type

"VbExclamation" et si oui où le placer ?)

Merci