j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y
connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons :
- annuler (fermer le formulaire sans enregistrer les modifs)
- valider (fermer le formulaire en enregistrant les modifs)
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
Argyronet
Bonjour,
Il vous faut regarder du coté de la propriété Dirty... dans l'aide. Ca donne un truc du style : Option Compare Database Option Explicit
Private Sub cmdAnnuler_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
Private Sub cmdValider_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
-- Argy http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons : - annuler (fermer le formulaire sans enregistrer les modifs) - valider (fermer le formulaire en enregistrant les modifs)
merci d'avance
Bonjour,
Il vous faut regarder du coté de la propriété Dirty... dans l'aide.
Ca donne un truc du style :
Option Compare Database
Option Explicit
Private Sub cmdAnnuler_Click()
Dim intReponse As Integer
If Me.Dirty Then
intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf &
"Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler")
If intReponse = vbYes Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close acForm, Me.Name
End If
End Sub
Private Sub cmdValider_Click()
Dim intReponse As Integer
If Me.Dirty Then
intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf &
"Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler")
If intReponse = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Else
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close acForm, Me.Name
End If
End Sub
--
Argy
http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y
connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons :
- annuler (fermer le formulaire sans enregistrer les modifs)
- valider (fermer le formulaire en enregistrant les modifs)
Il vous faut regarder du coté de la propriété Dirty... dans l'aide. Ca donne un truc du style : Option Compare Database Option Explicit
Private Sub cmdAnnuler_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
Private Sub cmdValider_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
-- Argy http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons : - annuler (fermer le formulaire sans enregistrer les modifs) - valider (fermer le formulaire en enregistrant les modifs)
merci d'avance
Benoit1024
Merci, je regarde :)
Bonjour,
Il vous faut regarder du coté de la propriété Dirty... dans l'aide. Ca donne un truc du style : Option Compare Database Option Explicit
Private Sub cmdAnnuler_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
Private Sub cmdValider_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
-- Argy http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons : - annuler (fermer le formulaire sans enregistrer les modifs) - valider (fermer le formulaire en enregistrant les modifs)
merci d'avance
Merci, je regarde :)
Bonjour,
Il vous faut regarder du coté de la propriété Dirty... dans l'aide.
Ca donne un truc du style :
Option Compare Database
Option Explicit
Private Sub cmdAnnuler_Click()
Dim intReponse As Integer
If Me.Dirty Then
intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf &
"Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler")
If intReponse = vbYes Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close acForm, Me.Name
End If
End Sub
Private Sub cmdValider_Click()
Dim intReponse As Integer
If Me.Dirty Then
intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf &
"Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler")
If intReponse = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Else
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close acForm, Me.Name
End If
End Sub
--
Argy
http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y
connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons :
- annuler (fermer le formulaire sans enregistrer les modifs)
- valider (fermer le formulaire en enregistrant les modifs)
Il vous faut regarder du coté de la propriété Dirty... dans l'aide. Ca donne un truc du style : Option Compare Database Option Explicit
Private Sub cmdAnnuler_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous annuler tout de même ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
Private Sub cmdValider_Click() Dim intReponse As Integer If Me.Dirty Then intReponse = MsgBox("Des changements ont été effectués..." & vbCrLf & "Voulez-vous les prendre en compte ?", vbExclamation + vbYesNo, "Annuler") If intReponse = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdUndo End If DoCmd.Close acForm, Me.Name End If End Sub
-- Argy http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
bonjour,
j'ai un problème qui doit être simple à résoudre, mais comme je ne m'y connais pas en programmation, je ne trouve pas la solution.
j'ai un formulaire où je peux effectuer des modifications.
je souhaiterais simplement avoir 2 boutons : - annuler (fermer le formulaire sans enregistrer les modifs) - valider (fermer le formulaire en enregistrant les modifs)
