Discussion :

[theBinette]

Bonjour à tous

J'ai dans un formulaire 2 combo box, l'une avec les mois de l'année, et l'autre avec différentes années (2014, 2015, 2016 etc...).

Je voudrais, un fois avoir sélectionner le mois et l'année, créer une table dont le nom sera le mois et l'année que j'ai sélectionné. (exemple tbl_Juin_2014).

J'ai réussi à faire une textbox qui récupère et concatène la valeur des 2 combo box, par contre je ne sais pas comment faire dans ma requete sql pour récupérer cette valeur lors de la création de table.

Si vous avez une idée, merci d'avance de votre aide.

TheBinette

ps: sinon existe t'il une commande vba pour renommer une table existante, cela serait du coup plus simple je pense.

[madefemere]

Bonjour,

Je ne sais pas si c'est possible de récupérer ces informations "directement" dans la requête.
Mais avec un peu de code VBA sur un bouton de ton formulaire, tu peux faire :
Tu crées un bouton qui va lancer le code sur son évènement SurClick :

Code :

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

1
2
3
4
5
Private sub TonBouton_SurClick()
Dim strSQL as string
strSQL = "SELECT LaTable.Champ1, LaTable.Champ2 INTO tbl_" & ComboMois & "_" & ComboAnnee & " FROM LaTable"
Currentdb.Execute strSQL, dbFailOnError
End Sub

Cordialement,

[PipoWIL]

Bonjour,

L'instruction SQL pour créer une table est CREATE TABLE.
Imaginons le formulaire suivant avec les deux listes (cmbAnne et cmbMois) et un bouton :
Pièce jointe 190274
Tu peux ajouter quelque chose comme ceci à l'évènement OnClick 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
14
15
Option Compare Database
Option Explicit
 
Private Sub Command0_Click()
Dim strNomTable As String
Dim strSQL As String
'creation du nom de la table
strNomTable = "TBL_" & Me.CmbAnnee.Value & Me.cmbMois
 
'commande SQL pour créer la table avec 6 colonnes de natures variées.
strSQL = "CREATE TABLE [" & strNomTable & "] (ID Counter constraint ID PRIMARY KEY, Nom char (50), quantite single, Jour date, Taille double, Vrai YESNO)"
 
CurrentDb.Execute strSQL
 
End Sub

[theBinette]

Merci beaucoup Pipo, ca marche niquel, j'avais entre temps trouvé une solution pas terrible, de créer la table avec un nom fixe et de la renommé avec ma valeur variable.