Discussion :

[Daniel MOREAU]

Bonsoir,

Je cherche une solution pour éviter des mises à jour intempestives de la table recordsource de mon formulaire (dès que je fais une saisie par erreur, un nouvel élément est créé dans ma table. comment éviter cela ?)

J'ai cherché dans les cours et tutoriels sans succés. Pouvez-vous m'aiguiller ?

j'ai pensé à la méthode clone d'un recordset, mais je ne sais pas si cela résoudre mon problème.

Merci d'avance.

Daniel

[Pierre Fauconnier]

Bonjour

Si tu veux éviter toute modification, tu peux basculer la propriété Modif autorisée à la valeur NON pour le formulaire.

Si tu souhaites pouvoir alors modifier les enregistrements à la demande, tu places un bouton sur ton formulaire, et tu gères l'évènement Clic du bouton

Code :

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

1
2
3
4
 
Private Sub cmdModification_Click()
    Me.AllowEdits = Not Me.AllowEdits
End Sub

Tu peux aussi permettre la modification et intercepter l'évènement BeforeUpdate du formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim Reponse As VbMsgBoxResult
 
    Reponse = MsgBox("Acceptez-vous la modification?", vbYesNo + vbQuestion, "Modification")
    Select Case Reponse
        Case vbNo
            Cancel = True
    End Select
End Sub

Ok?

[Daniel MOREAU]

Bonsoir,

Je n'avais pas pensé à cette solution.

Je vais la tester.

Merci.

Daniel

[cavo789]

Tu peux aussi déconnecter ton formulaire càd ne plus le baser sur une table. Tu prévois un bouton "Update" qui fera l'écriture c-à-d qui construira on-the-fly une instruction SQL style

Code :

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

DoCMD.RUnSQL "UPDATE MaTable Set MonChamps='" & edtChamps.Value & "'"