Access2003 aide vb ou sql
bartone
Messages postés
22
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
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
Cette fonction fonctionne parfaitement mais je souhaiterais historiser les enregistrements supprimés. Merci de me dire òu et comment je dois ajouter du code à cette procédure pour copier certains champs de l'enregistrement en cours (table "contacts") avant sa suppression dans une nouvelle table ("contacts_ supprimés")
En clair, je voudrais avoir une table "contacts_supprimés" reprenant : numéro / nom / prénom / adresse de ma table "contacts".
Merci
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
Cette fonction fonctionne parfaitement mais je souhaiterais historiser les enregistrements supprimés. Merci de me dire òu et comment je dois ajouter du code à cette procédure pour copier certains champs de l'enregistrement en cours (table "contacts") avant sa suppression dans une nouvelle table ("contacts_ supprimés")
En clair, je voudrais avoir une table "contacts_supprimés" reprenant : numéro / nom / prénom / adresse de ma table "contacts".
Merci
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
Bonjour ,
Juste au passage, ne serait-il pas plus judicieux de marquer l'enregistrent comme suprimer, cela vous évitera de le recopier dans une autre table. Il vous suffit d'une requête qui filtre les bons enregistremnts ....! -
Bonjour,
N'ayant pas de réponse pertinente à ma question, je vais reformuler une nouvelle requête en explorant cette piste.
ça me parait une très bonne idée
merci beaucoup -
Bonjour bartone,
Merci.
Pour bien préciser mon idée, il suffit d'ajouter un champ dans votre table (par exemple Valable = oui/non) et ainsi vous basez votre formulaire de travail sur une requête qui filtre les enregistrements [Valable = oui].
Et dans le formulaire vous avez le champ [Valable] qui vous permet de modifier le statut de l'enregistrement en cour.
