Acces2003 aide codeVba

bartone -  
Bonjour,

Dans un formulaire j’ai crée un bouton « supprimer » (à l’aide de l’assistant) qui me permet de supprimer l’enregistrement en cours.

Actuellement le code est le suivant :

Private Sub Étiquette71_Click()
On Error GoTo Err_Commande40_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande40_Click:
Exit Sub

Err_Commande40_Click:
MsgBox Err.Description
Resume Exit_Commande40_Click
End Sub

Je souhaiterais historiser les enregistrements supprimés. Merci de me dire òu et comment je dois ajouter du code pour copier l'enregistrement en cours avant sa suppression dans une nouvelle table.

Merci
Configuration: Windows XP Internet Explorer 7.0

3 réponses

  1. cocotehier
    Re : bonjour, dans le mode "on" vous aura prévenu il peut y avoir..

    rep=MsgBox "Vous soulez vraiment supprimer ce contact, sur sur sur ?", vbYesNo, "Vraiment suprimer ?"

    If (rep = vbYes) Then
    DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings True
    End If

    1. bartone Auteur
      Merci beaucoup mais je ne pense pas avoir la réponse à la question posée, j'ai déjà une fenêtre m'indiquant :

      Vous allez supprimez 1 enregistrement(s)
      Cliquez sur oui pour effacer ces enregistrements de manière permanente.
      Vous ne pourrez plus annuler ce changement.

      Oui Non

      Ce que je veux, c'est la possibilité de copier cet enregistrement dans une nouvelle table avant sa suppression.

      Merci encore
      1. Jean_Jacques
        Bonjour Bartone,

        Afin de constituer un historique, j'ai eu recours, dans le passé, à SQL. Avec INSERT INTO et une clause where je suis parvenu à mes fins. Malheureusement je n'ai pas gardé de documentation à ce sujet ....

        Sur ce site j'ai retrouvé la syntaxe standard
        http://sql.1keydata.com/fr/sql-insert-into.php

        c.à.d.
        INSERT INTO "nom de table" ("colonne 1", "colonne 2", ...)
        VALUES ("valeur 1", "valeur 2", ...)

        Tout ceci pour faire avancer le schmilblick car j'ai très peu recours à SQL

        Cordialement