Discussion :

[adelion7015]

Bonjour,

En faisant des recherches sur ce forum sur l'archivage et l'historisation des données, j'ai reussi a trouver une base exemple, qui a quelques exceptions me convient bien.

J'ai actuellement une base scindée, elle est partagée entre moi et deux de mes collègues, elle comporte des données relatives au budget de 19 structures et consolidé a notre niveau.

Le problème, est que je n'arrive pas a adapter cette base a mes besoins, comme ajouté des champs ou suprimé d'autres, il serait possible aussi, a l'envoi des données vers la table d'archivage de les effacer de la table source.

Merci.

Cordialement.



BDArchivage_.rar

[HDU71000]

Bonjour,

dans ta base exemple, il n'y a rien de sorcier, il est juste question de copier les données d'une table vers une autre à l'aide d'une requête INSERT INTO.

Si tu veux supprimer ensuite les données de la table source, il suffit d'éxécuter une seconde requête, DELETE cette fois-ci.

Donnes plus de détails sur le "où tu bloques"...

A+

[User]

Bonsoir,

En complément, vous pouvez aussi vous servir du créateur de requêtes pour créer votre requête insertion et y ajouter des champs ou un paramètre.

Vous pouvez également basculer en mode SQL pour copier le code, tout ceci est bien décrit ici :

https://jeannot45.developpez.com/art...tionrequetes1/

Cdlt,

[adelion7015]

Bonjour,

Je m'excuse pour le retard, j'ai ces derniers jours pour cause de maladie.

Je vous remercie pour vos réponses, il se trouve que cette petite base exemple est je crois la création de USER.

Pour revenir a mon problème et répondre a la question de HDU71000, c'est qu'actuellement, je n'arrive pas a insérer un nouveau champ [Sigle_dir] ou supprimé un autre [URL], j'ai essayé via le code SQL, ca ne marche pas.

merci

cordialement.

[HDU71000]

Bonjour,
j'espère que ça va mieux.

Tu peux donner la structure de tes 2 tables et le code sql que tu as testé ?

A+

[adelion7015]

Bonjour,

Oui je vais mieux, merci, beaucoup.

A vrai dire je suis en train de faire des tests sur la base exemple avant de passer a ma base, actuellement j'essaye d'insérer le champ [sigle_dire] et ca donne le le code sql suivant :


En l'exécutant j'ai le message d'erreur suivant :



Merci.

[adelion7015]

RE:

le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CmdArchiver_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [Tableau 2] ( id, [no], nuf, titre, url, DateArchive,Sigle_dir ) " & _
"SELECT [Tableau 1].id, [Tableau 1].[no], [Tableau 1].nuf, [Tableau 1].titre, [Tableau 1].Sigle_dir Replace([Tableau 1].url,'dossierA','dossierB') as doc, Date() AS Expr1 " & _
"FROM [Tableau 1]" & _
"WHERE (([Tableau 1].id) Not In (select id from [Tableau 2])) and titre like '" & Nz(Me.ParamTitre, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
End Sub

[HDU71000]

Il te manque une virgule avant le replace.

A+

[adelion7015]

Bonjour,

Effectivement ca marche, mais les données ne sont plus dans l'ordre, c'est a dire que j'ai la date dans le champs [Sigle_dir] et les données de Sigle_dir dans le champs [URL]. Mais bon je verrais ca a en changeant leurs ordres dans la requête.

Je reviens a mon premier poste, est il possible d'effacer la table source après envoi des données vers la table archives ?

Merci.

[HDU71000]

Oui, tu as inverti les 2 dernières colonnes dans ton sql

Pour supprimer, il te suffit d'exécuter une requête suppression ensuite

Code :

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

1
2
3
4
5
6
7
Dim SQLSupp As String
 
SQLSupp = "DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL SQLSupp
DoCmd.SetWarnings True

A+

[adelion7015]

Bonjour,

Merci HDU71000, j'essayerais ce code des que j'aurais fini de l'adapter a mes besoin, justement en essayant de supprimer le champ [URL], j'ai eu le message d'erreur suivant :



J'ai essayé plusieurs cas de figuer "Code" il faut dire que c'est pas aussi mon fort.

merci.

[HDU71000]

Bonjour,

c'est compliqué de corriger le texte d'une copie d'écran.

Mais il y a des coquilles (le &) au lieu du & _ à la fin de la première ligne de ton SELECT, une "," avant le AS doc inutile et tu as laissé intervertis les 2 derniers champs)
Essaies

Code :

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

1
2
3
4
leSQL = "INSERT INTO [Tableau 2] ( id, no, nuf, titre, Sigle_dir, DateArchive ) " & _
"SELECT [Tableau 1].id, [Tableau 1].[no], [Tableau 1].nuf, [Tableau 1].titre, [Tableau 1].Sigle_dir , Date() AS DateArviche " & _
"FROM [Tableau 1]" & _
"WHERE (([Tableau 1].id) Not In (select id from [Tableau 2])) and titre like '" & Nz(Me.ParamTitre, "*") & "';"

A+

[adelion7015]

Bonjour,

Ok ca marche super bien merci.

Pour la suppression j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CmdArchiver_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [Tableau 2] ( id, no, nuf, titre, Sigle_dir, DateArchive ) " & _
"SELECT [Tableau 1].id, [Tableau 1].[no], [Tableau 1].nuf, [Tableau 1].titre, [Tableau 1].Sigle_dir , Date() AS DateArviche " & _
"FROM [Tableau 1]" & _
"WHERE (([Tableau 1].id) Not In (select id from [Tableau 2])) and titre like '" & Nz(Me.ParamTitre, "*") & "';"
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
Dim SQLSupp As String
 
SQLSupp = "DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
End Sub

Bon, ca archive toujours, mais la table source contient toujours les données, mais je pense surtout que j'ai fait n'importe quoi, je ne sais pas pourquoi mais j'ai cette impression.

Merci.

[tee_grandbois]

bonjour,
surement parce que tu n'exécutes pas le bon sql:

Code :

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

1
2
3
4
SQLSupp = "DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL

[adelion7015]

Re bonjour,

J'ai corrigé le code que voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CmdArchiver_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [Tableau 2] ( id, no, nuf, titre, Sigle_dir, DateArchive ) " & _
"SELECT [Tableau 1].id, [Tableau 1].[no], [Tableau 1].nuf, [Tableau 1].titre, [Tableau 1].Sigle_dir , Date() AS DateArviche " & _
"FROM [Tableau 1]" & _
"WHERE (([Tableau 1].id) Not In (select id from [Tableau 2])) and titre like '" & Nz(Me.ParamTitre, "*") & "';"
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
Dim SQLSupp As String
 
SQLSupp = "DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL SQLSupp
DoCmd.SetWarnings True
End Sub

Ca ne donne vide pas la table source.

Merci.

[tee_grandbois]

Ca ne donne vide pas la table source.

enlèves temporairement les SetWarnings pour voir les messages, le premier devrait te donner le nombre d'enregistrements à supprimer et si il n'y en a pas, il faut regarder pourquoi dans la clause Where: combien d'enregistrements devraient contenir Me.ParamTitre dans le champ Titre, par exemple

[adelion7015]

Bonjour,

Voila j'ai supprimé les deux warning et ca donne ce message:



Merci.

[HDU71000]

Tu peux mettre

Code :

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

msgbox SQLSupp

après la ligne

Code :

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

SQLSupp = "DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"

Et indiquer ce qu'elle retourne ?

A+

[tee_grandbois]

bonjour,
classique (et je ne l'avais même pas remarqué): il y a un espace en trop entre l'apostrophe et les guillemets qu'il faut enlever

Code :

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

"DELETE FROM [Tableau 1] WHERE [Tableau 1].titre like ' " & Nz(Me.ParamTitre, "*") & "';"

[adelion7015]

Bonjour,

j'ai le message box d'Access, puis des que je clique sur "OK" j'ai le message que j'ai posté avant.

voila.

Merci.