Discussion :

[USnico]

Bonsoir a tous,

J'ai une application Access 2000 dans laquelle j'aimerais creer dynamiquement des tables d'extraction. Je m'explique:

En aval d'un formulaire demandant de choisir un nom de service et une date de reference, j'ai cree un query qui permet a partir d'une table MASTER d'extraire les donnees correspondant aux criteres (service + date de reference) et de les stocker dans une table.

Le souci: Je voudrais que le nom de la table creee soit la concatenation du nom du service et de la date de reference. Ainsi, 2 tables creees pour des services differents et pour des dates de reference differentes n'auront pas le meme nom. J'ai bien essaye de modifier le SQL sous-jascent du query mais jusque-la, c'est pas brillant...

Quelle est donc la syntaxe a employer pour faire accepter au SQL la concatenation du contenu des 2 controles (service et date de reference) du formulaire en guise de nom de table a creer?

Merci d'avance pour vos contributions.

[Invité]

Quand tu dis

En aval d'un formulaire demandant de choisir un nom de service et une date de reference, j'ai cree un query

Que veux tu dire exactement ?

Tu as un bouton sur lequel tu cliques et en VBA tu créé ta requête SQL ?

C'est ça ?

Peux-tu nous montrer ton code ?

[random]

avec un formulaire nommé monformulaire et deux controle nommés
service et madate cela pourrait ressembler à ça

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Private Sub monbouton_Click()
Dim nom As String
Dim sql As String
nom = Me!service & Day(Me!madate) & Month(Me!madate) & Year(Me!madate)
sql = "SELECT * INTO " & nom & " FROM matable WHERE service=Formulaires!monformulaire!service And madate=Formulaires!monformulaire!madate;"
DoCmd.RunSQL sql
End Sub

[USnico]

Le formulaire ne sert qu'a choisir un service (controle Dept) et une date (controle Text37) puis il lance la requete qui ira rechercher les enregistrements de MASTER qui correspondent et les stocker dans une table.

Voici le code SQL du query:

SELECT [MASTER].[Noposition], [MASTER].[Lastname], [MASTER].[Firstname], [MASTER].[Dept], [MASTER].[SKill], [MASTER].[Lsite], [MASTER].[Osite], [MASTER].[Wtime], [MASTER].[TA], [MASTER].[TypC], [MASTER].[Actime]

INTO EXTRACT_MASTER

FROM MASTER

WHERE ((([MASTER].[Dept]) Like [Forms]![F_EXTRACT_BY_DEPT].[Dept]) And (([MASTER].[Startdate])<=[Forms]![F_EXTRACT_BY_DEPT].[Text37]) And (([MASTER].[Enddate])>[Forms]![F_EXTRACT_BY_DEPT].[Text37] Or ([MASTER].[Enddate]) Is Null));

Pour l'instant, le query genere une table nommee EXTRACT_MASTER. Ce que je voudrais, c'est pouvoir generer une table dont le nom soit la concatenation du service concerne (Dept) et de la date concernee (Text37) en lieu et place de EXTRACT_MASTER.

Question de syntaxe peut-etre?

Cordialement.

[Invité]

Le code de Random ne te convient pas !?

Quand tu dis

puis il lance la requête

comment est-elle lancée ? Quel code utilises tu ?

A+

[USnico]

J'ai adapte le code de random et ca fonctionne

Je ne pensais pas passer par VBA mais plutot modifier le code SQL de la requete existante, mais ca marche pile poil comme cela.

Un grand merci a vous!