Discussion :

[Jo_Hey]

Bonjour à tous.

Je pense que ma question est basique mais je bloque quand même. Merci d'avance pour votre aider.

Pour faire simple, j'ai une table des employés de l'entreprise créé au moyen d'un formulaire.
Dans le cas où un employé nous quitte, je voudrais ajouter un bouton sur ce formulaire qui copie les informations d'un employé dans une autre table ("archive des employés") et le supprime de la table "employé".
J'ai trouvé sur google des réponses, mais je n'arrive pas les mettre en place. Pouvez-vous m'aider ?

Réponse de Google :
- j'ai donc fait un bouton avec une éxécution de deux requetes :
1 en ajout de la base arrivées vers archives
2 en suppréssion de la base arrivées
et ca fonctionne super bien
-Tu peux passer par l'exécution de deux requêtes, 1 ajout et 1 suppression.

Code SQL :

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

1
2
INSERT INTO Table2 SELECT Table1.* FROM Table1
WHERE (((Table1.Lenom)=[Formulaires]![Formulaire1]![Lenom]));

Code SQL :

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

1
2
DELETE Table1.* FROM Table1
WHERE (((Table1.Lenom)=[Formulaires]![Formulaire1]![Lenom]));

sans passer par suppression d'enregistrement du menu Access.

Je suppose que dans mon cas, je remplace cela par :

Code SQL :

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

1
2
INSERT INTO Employes_Archive SELECT Employes.* FROM Employes
WHERE (((Employes.Employes_Nom)=[Formulaires]![Formulaire1]![Employes_Nom])) ;

Mais je ne sais pas ce que je dois écrire dans les parties "formulaire".

Encore merci à la personne qui pourra m'aider

[User]

Bonjour,

Vous pouvez avoir 2 employés avec le même nom, avez-vous un champ identifiant vos employés, comme une clé numéroAuto ?

[Jo_Hey]

Bonjour,

Oui, j'ai laissé en clé primaire un numéro auto. Je n'y touche pas avec le formulaire, je le laisse se faire tout seul

[User]

Oui, on y touche pas, on est d'accord , mais on va juste s'en servir pour savoir quel enregistrement archiver.

Si ce champ se nomme "Employes_N", vous l'insérez dans le formulaire, puis vous exécutez ce code sur l'événement clic du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sSQL As String
 
sSQL = "INSERT INTO Employes_Archive SELECT Employes.* FROM Employes " & _
        "WHERE Employes.Employes_N=" & Me![Employes_N]
 
CurrentDb.Execute sSQL, dbFailOnError
 
sSQL = "DELETE * FROM Employes " & _
        "WHERE Employes.Employes_N=" & Me![Employes_N]
 
CurrentDb.Execute sSQL, dbFailOnError
 
Me.Requery ' rafraîchit le formulaire

Bien faire une sauvegarde de la base avant

[Jo_Hey]

Merci beaucoup pour votre réponse ! Je vais tester ça
Par contre, pouvez vous me dire où je dois le noter ? Je découvre à peine le SQL mais ça ne m'a pas l'aire d'en être ?

[User]

Vous créez un bouton "cmdArchiver" sur votre formulaire, puis vous le sélectionnez et vous affichez sa feuille des propriétés (bouton situé sur le ruban).
Ensuite, vous choisissez [Procédure événementielle] sur la ligne correspondant à l'événement "Au clic" :



Enfin, vous cliquez sur [...] tout à droite de la ligne, et vous collez le code dans la procédure événementielle :

[Jo_Hey]

Je vous embrasserai bien !

Merci

Et bonne journée

[User]

Oui c'est comme ça

Bonne journée