Discussion :

[fransous]

Bonjour,

Je dois renommer une table avec la date contenu dans un champ de la même table.

ex: «date_nbrTRXparRep» pour «20061128_nbrTRXparRep».

1. Est-ce que je peux faire une requête création de table qui tiens compte d'un champ dont la valeur va changer à toute les fois qu'elle sera lancé ?

2. Quelles sont les étapes que je dois suivre pour renommer la table «date_nbrTRXparRep» pour «20061128_nbrTRXparRep» si la solution est en VBA?

P.S. je ne suis pas programmeur, mais j'apprends beaucoup avec vous.

Merci

[tee_grandbois]

Bonsoir,
essaie ceci :

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
Function RenameTable(sParmNomChamp As String, sParmNomTable As String)
 
Dim sNomTable As String
Dim sNewNomTable As String
Dim sDate As String
 
' Rechercher la date dans la table
sDate = Format(DLookup(sParmNomChamp, sParmNomTable), "YYYYMMDD")
 
' Nommer la nouvelle table
sNewNomTable = sDate & "_" & sParmNomTable
 
' Copier la table de destination vers la nouvelle table
DoCmd.CopyObject , sNewNomTable, acTable, sParmNomTable
 
End Function

tu l'utilises comme ceci sur clic d'un bouton, par exemple

Code :

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

Call RenameTable("mydate","date_nbrTRXparRep")

[Tofalu]

Ceci dit, renommer une table en fonction d'une valeur d'un champ de celle-ci, je n'en vois pas l'intéret et c'est souvent le signe d'une erreur de modélisation

[fransous]

Merci beaucoup pour votre réponse. Cela m'a grandement aidé.

Le but de l'exercice est de pourvoir garder un historique de certaines tables pour consultation ultérieure par des vérificateurs.