Discussion :

[bysad70]

Bonjour!
J'aimerais pouvoir archiver les élèves exclus ou transférés vers un autre établissement au lieu de les supprimer de la base de données. En cas d'erreur restaurer: un élève peut être archiver par inadvertance ou le conseil de classe revenir sur sa décision.

Merci par avance

[User]

Bonjour,

Vous pouvez filtrer la table sur le champ exclu dans votre base.

Mais le mieux je pense est de transférer les données des élèves exclus dans une table archive :

Il faut donc d'abord créer une requête ajout :

Code SQL :

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

1
2
3
4
INSERT INTO T_Eleves_Archives ( IdEleve, NomEleve, Exclu )
SELECT IdEleve, NomEleve, PrenomEleve
FROM T_Eleves
WHERE Exclu=True;

Puis, une requête suppression pour supprimer les lignes exportées :

Code SQL :

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

1
2
3
DELETE
FROM T_Eleves
WHERE Exclu=True;

A éxécuter bien sûr dans cet ordre

Cdlt

[bysad70]

Bonjour!
J'aimerais pouvoir archiver les élèves exclus ou transférés vers un autre établissement au lieu de les supprimer de la base de données. En cas d'erreur restaurer: un élève peut être archiver par inadvertance ou le conseil de classe revenir sur sa décision.

Merci par avance

Merci pour le soutien. Mais comment restaurer ensuite en cas de besoin les lignes qui ont été supprimées de T_eleves?

[hyperion13]

Salut
Vous avez déjà la réponse. Il suffit d'inverser le nom des tbl dans le 1er code fourni par @User que je salue au passage !

Code :

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

1
2
3
4
INSERT INTO T_Eleves ( IdEleve, NomEleve, Exclu )
SELECT IdEleve, NomEleve, PrenomEleve
FROM T_Eleves_Archives
WHERE Exclu=True;

Merci pour le soutien. Mais comment restaurer ensuite en cas de besoin les lignes qui ont été supprimées de T_eleves?

[bysad70]

Salut
Vous avez déjà la réponse. Il suffit d'inverser le nom des tbl dans le 1er code fourni par @User que je salue au passage !

Code :

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

1
2
3
4
INSERT INTO T_Eleves ( IdEleve, NomEleve, Exclu )
SELECT IdEleve, NomEleve, PrenomEleve
FROM T_Eleves_Archives
WHERE Exclu=True;

Je joins une image de ce que je veux faire

[User]

Il faudrait essayer ce code sur le clic du bouton restaurer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private boutonRestaurer_Click()
 
    Dim strSQL as string
 
    strSQL = "INSERT INTO T_Eleves ( IdEleve, NomEleve, Exclu ) " & _
    "SELECT IdEleve, NomEleve, PrenomEleve " & _
    "FROM T_Eleves_Archives " & _
    "WHERE IdEleve=" & nz(Me.IdEleve,0) & ";"
 
    currentdb.execute strSQL, dbFailOnError 
 
end sub

Les noms des champs et des tables doivent bien sûr être adaptés à votre base.

Cdlt

[bysad70]

Il faudrait essayer ce code sur le clic du bouton restaurer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private boutonRestaurer_Click()
 
    Dim strSQL as string
 
    strSQL = "INSERT INTO T_Eleves ( IdEleve, NomEleve, Exclu ) " & _
    "SELECT IdEleve, NomEleve, PrenomEleve " & _
    "FROM T_Eleves_Archives " & _
    "WHERE IdEleve=" & nz(Me.IdEleve,0) & ";"
 
    currentdb.execute strSQL, dbFailOnError 
 
end sub

Les noms des champs et des tables doivent bien sûr être adaptés à votre base.

Cdlt

Le code marche. Merci beaucoup
Mais j'ai un autre souci. J'ai rencontrer l'erreur 3022 en cliquant par mégarde sur le bouton archiver d'une ligne déjà archivée dans T_eleves_archives. Ceci m'a été notifié: "Modifications non effectuées: risque de doublons dans champ index, clé principale ou relation interdisant les doublons, etc"
Comment gérer cette erreur?

[hyperion13]

Selon votre photo, il n'y a pas de champ (colonne) Exclu, style checkbox !
Autre point si vous excluez un élève de la liste de élève pour le transférer dans la tbl archive, une fois archivé il ne doit plus être présent dans la liste.
Donc une idée en pj.

[User]

Bonjour,

Oui, une fois archivé et supprimé de la table T_Eleves, un Me.Requery à la fin du code pour archiver devrait le supprimer de la liste.

Cdlt

[bysad70]

Selon votre photo, il n'y a pas de champ (colonne) Exclu, style checkbox !
Autre point si vous excluez un élève de la liste de élève pour le transférer dans la tbl archive, une fois archivé il ne doit plus être présent dans la liste.
Donc une idée en pj.

Merci! C'est parfait