Discussion :

[micheline]

Salut,

Je suis un débutant novice qui n'y connaît rien au code VBA dans ACCESS : y'a t-il une ame charitable qui puisse me dire comment on fait pour que dans un formulaire, à chaque fois qu'on entre une donnée, qu'on en modifie une ou bien qu'on en supprime une, il y ai un message de confirmation avant execution de l'action. Message du style "Voulez-vous enregistrer les modifications apportées à X" où X serait la donnée ajoutée, modifiée ou supprimée.

je suis vraiment coincé (j'ai une assoce et on gère 200 élèves) : il faut que je trouve un moyen pour ne pas supprimer ou modifier des données par erreur.

MERCI MERCI MERCI d'avance

[Papy Turbo]

Dans l'évènement Form_BeforeUpdate() (Avant MAJ), tu peux annuler la sauvegarde de tout l'enregistrement :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("Etes vous sûr des modifications apportées ?", _
                vbYesNo + vbQuestion, _
                "Titre de l'appli") = vbNo Then
        Cancel = True
    End If
End Sub

Pour la suppression de l'enregistement, tu fais ça
- dans Form_Delete() (une fois par enregistrement) ou
- dans Form_BeforeDelConfirm() (une seule fois pour tous les enregistrements, s'il y en a plusieurs).
Ceci dit, il y a déjà un message de confirmation de suppression, mais tu peux le changer...

[micheline]

Dans l'évènement Form_BeforeUpdate() (Avant MAJ), tu peux annuler la sauvegarde de tout l'enregistrement :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("Etes vous sûr des modifications apportées ?", _
                vbYesNo + vbQuestion, _
                "Titre de l'appli") = vbNo Then
        Cancel = True
    End If
End Sub

Pour la suppression de l'enregistement, tu fais ça
- dans Form_Delete() (une fois par enregistrement) ou
- dans Form_BeforeDelConfirm() (une seule fois pour tous les enregistrements, s'il y en a plusieurs).
Ceci dit, il y a déjà un message de confirmation de suppression, mais tu peux le changer...

Nickel, c génial merci beaucoup Papy Turbo
Cependant, j'aurais 1 petite remarque : comment savoir si on n'a pas modifié un truc par inadvertance en même tant qu'on a changé qqchose de plein gré (tu me comprends?).

[Papy Turbo]

Oui et non, mais je crois surtout qu'il faut pas s'inquiéter tant que cela.

Sinon, tu finiras par mettre un message à chaque zone de texte. Tu peux : dans l'évènement Control_BeforeUpdate, (ou 'Control' est le nom de chaque liste, zone de texte...) tu peux faire la même chose, mais ça deviendrait un cauchemar de saisir quoi que ce soit.

Je n'ai jamais utilisé ce genre de "précaution" que contraint et forcé par des utilisateurs qui font de l'informatique préhistorique. Non, je rigole, mais ce genre de requête vient en général des gens habitués aux gros systèmes ou on ne peut pas faire autrement que "Modifier" puis "Valider" ou "Annuler" puis "Enregistrer" puis "Confirmer"...

Aucun utilisateur Access ne s'est jamais plaint de cela. C'est tellement facile, quand on s'est trompé, de revenir corriger l'erreur...
Au pire, ils se plantent 2 ou 3 fois au début, et puis ils font attention.

[micheline]

Ouais, t'as surement raison.

On va s'en tenir à ce que tu m'as donné plus haut (le meilleur est l'ennemie du bien)

Re-Merci

[Papy Turbo]

Merci de ne pas oublier le tag [Résolu]