Lorsqu'on supprime un enregistrement avec ou non des=20
relations, on a souvent un message d'Access assez=20
indigeste pour l'utilisateur...
Serait-il possible de d=E9sactiver ce genre de message et de=20
remplacer le tout par...
Sub Supprimer()
Reponse =3D MsgBox("=CAtes-vous s=FBr de vouloir supprimer cet=20
article?", 4, "Message...")
If Reponse =3D 7 Then
Else
' Et l=E0 je supprime!
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
Tu peux utiliser cette fonction qui te demandera une double confirmation: Private Sub Form_Delete(Cancel As Integer) Cancel = True If MsgBox("Voulez-Vous vraiment supprimer la commande " & Me.No_Cde, vbYesNo, "Suppression Commandes") = vbYes Then If MsgBox("Confirmez une 2eme fois la suppression !", vbYesNo, "Suppression Commandes") = vbYes Then Cancel = False End If End If End Sub -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Kyvu" a écrit dans le message de news:042701c37f81$3d62f4f0$ Bonjour à tous,
Lorsqu'on supprime un enregistrement avec ou non des relations, on a souvent un message d'Access assez indigeste pour l'utilisateur...
Serait-il possible de désactiver ce genre de message et de remplacer le tout par...
Sub Supprimer() Reponse = MsgBox("Êtes-vous sûr de vouloir supprimer cet article?", 4, "Message...") If Reponse = 7 Then Else ' Et là je supprime! End If End Sub
Merci d'avance pour votre aide.
@micalement.
Kyvu On Line!
Bonjour.
Tu peux utiliser cette fonction qui te demandera une double confirmation:
Private Sub Form_Delete(Cancel As Integer)
Cancel = True
If MsgBox("Voulez-Vous vraiment supprimer la commande " & Me.No_Cde,
vbYesNo, "Suppression Commandes") = vbYes Then
If MsgBox("Confirmez une 2eme fois la suppression !", vbYesNo,
"Suppression Commandes") = vbYes Then
Cancel = False
End If
End If
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Kyvu" <Kyvutran@lemel.fr> a écrit dans le message de
news:042701c37f81$3d62f4f0$a001280a@phx.gbl...
Bonjour à tous,
Lorsqu'on supprime un enregistrement avec ou non des
relations, on a souvent un message d'Access assez
indigeste pour l'utilisateur...
Serait-il possible de désactiver ce genre de message et de
remplacer le tout par...
Sub Supprimer()
Reponse = MsgBox("Êtes-vous sûr de vouloir supprimer cet
article?", 4, "Message...")
If Reponse = 7 Then
Else
' Et là je supprime!
End If
End Sub
Tu peux utiliser cette fonction qui te demandera une double confirmation: Private Sub Form_Delete(Cancel As Integer) Cancel = True If MsgBox("Voulez-Vous vraiment supprimer la commande " & Me.No_Cde, vbYesNo, "Suppression Commandes") = vbYes Then If MsgBox("Confirmez une 2eme fois la suppression !", vbYesNo, "Suppression Commandes") = vbYes Then Cancel = False End If End If End Sub -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Kyvu" a écrit dans le message de news:042701c37f81$3d62f4f0$ Bonjour à tous,
Lorsqu'on supprime un enregistrement avec ou non des relations, on a souvent un message d'Access assez indigeste pour l'utilisateur...
Serait-il possible de désactiver ce genre de message et de remplacer le tout par...
Sub Supprimer() Reponse = MsgBox("Êtes-vous sûr de vouloir supprimer cet article?", 4, "Message...") If Reponse = 7 Then Else ' Et là je supprime! End If End Sub
