VBA - Reporter une requête dans une Table

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous :)

Voilà deux jours que je me casse la tête avec un petit problème qui m'avait pourtant assez simple d'apparence :

Je travaille sur un formulaire de recherche qui me permet de sélectionner les données d'un champ dynamique sur une période mensuelle souhaitée, grâce aux quelques lignes VBA/SQL ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Option Compare Database Private Sub cbo_table_AfterUpdate() Me.cbo_champ.RowSource = Me.cbo_table.Value Me.cbo_champ.Requery End Sub Private Sub cmd_recherche_Click() Dim strTable As String, strField As String, strSql As String, strResult As String Dim Criter As Variant strTable = "[" & Me.cbo_table & "]" ' recupère le nom de la table strField = "[" & Me.cbo_champ & "]" ' recupère le nom du champ ' construit la requête sql strSql = "SELECT DISTINCTROW " & strField & "," & "T_Chèques.IdDate" & "," & "T_Chèques.Sep_Type" strSql = strSql & " FROM " & strTable strSql = strSql & " WHERE " & "((T_Chèques.IdDate) Between [Choisissez le premier mois de l'analyse :] And [Choisissez le dernier mois de l'analyse :])" & "AND" & "((T_Chèques.Sep_Type)=[Voulez-vous les valeur en Nombre(2) ou en Montant(2) ?]);" Me.Lst_Resultat.RowSource = strSql ' affecte sql a lst_Resultat Me.Lst_Resultat.Requery ' recalcule la liste End Sub
Comme vous pouvez le constater, j'exporte le résultat de la requête sur une zone de liste. J'aimerais pouvoir l'exporter dans une nouvelle table (ou une table existante), afin de pouvoir exploiter ces données.

Soucis n°1 :

Une requête via le ruban ne me permet pas de choisir le champ dynamiquement, d'où la construction de la requête via des variables sur VBA. La base de donnée allant avoir une centaine d'indicateurs, je me vois mal éditer 100 requêtes ^^
Impossible cependant de récupérer une feuille de donnée après l'export sur la zone de liste...
Quel serait le meilleur moyen pour exporter ces données sur un table où sur une feuille de données ?

Soucis n°2 :

La zone de liste ne me donne que la sélection de données correspondante, sans la période affichée, alors qu'en lançant une requête de sélection via le ruban, une feuille de donnée s'affiche avec les deux paramètres :

Pièce jointe 221947Pièce jointe 221948

Voyez-vous d'où peut venir le problème ?

Je vous remercie d'avance pour avoir pris connaissance de mon problème :)

Bonne journée à vous !

Salut,

soucis 1 : tu ajoutes un INTO TableFinale par exemple

Code:

1
2
3
4
5
6
7
8
 strSql = "SELECT DISTINCTROW " & strField & "," & "T_Chèques.IdDate" & "," & "T_Chèques.Sep_Type INTO TableFinale"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE " & "((T_Chèques.IdDate) Between [Choisissez le premier mois de l'analyse :] And [Choisissez le dernier mois de l'analyse :])" & "AND" & "((T_Chèques.Sep_Type)=[Voulez-vous les valeur en Nombre(2) ou en Montant(2) ?]);"
 
CurrentDb.Execute strSQL
 
Me.Lst_Resultat.RowSource = "SELECT * FROM TableFinale" ' affecte sql a lst_Resultat
    Me.Lst_Resultat.Requery             ' recalcule la liste

avec un test d'existence de table en amont pour ne pas avoir un message d'erreur =]

Soucis 2 :

pense a ajouter le bon nombre de colonnes dans la zone de liste + largeur des colonnes =]

05/10/2016, 15h05
Thoro22

Salut !

Pourquoi n'avais-je pas penser à cette instruction ? Je ne sais pas, d'autant que je suis tombé dessus dans mes recherches....

J'ai eu un premier code d'erreur 3601 (3 paramètres étaient attendu). J'ai vérifier ma syntaxe, rien ne clochait. J'ai fini par remplacer CurrentDb.Execute par DoCmd.RunSQL !
La requête m'interroge bien sur les variables à rentrer, mais un deuxième code d'erreur est apparu :/ "Erreur d'exécution '3959': Les données calculées ne sont pas autorisées dans les instructions SELECT INTO.

En y réfléchissant, mon champ IdDate est un champ calculé pour me permettre d'avoir le dernier jour du mois d'une date rentrée... Aucun moyen pour utiliser un champ calculé dans un SELECT INTO ?

Merci d'avance !

[EDIT]

Sans surprises, en enlevant le champ IdDate qui est calculé, la procédure fonctionne correctement. Le doit néanmoins être compléter, pour ajouter du nettoyage de table etc...
Pour mon champ calculé je vais essayer de me calculer après l'importation pour contourner le message d'erreur :)
Je mets la discussion en Résolue !

Un grand merci à toi @Jean-Philippe André pour tes réponses :)
05/10/2016, 15h20
Jean-Philippe André

Idealement, tu nous affiches le contenu SQL de la requete, nous ne pratiquons malheureusement pas, malgre notre omnipotence technique, la cristallomancie (a la limite la cleromancie ou la stichiomancie)...

Excuse moi, j'étais en train d'éditer mon post précédent !

Le voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmd_recherche_Click()
 
Dim strTable As String, strField As String, strSql As String, strResult As String
 
    Dim Criter As Variant
 
    strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
    strField = "[" & Me.cbo_champ & "]"         ' recupère le nom du champ
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strField & "," & "T_Chèques.Sep_Type INTO TableFinale"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE " & "((T_Chèques.Sep_Type)=[Voulez-vous les valeur en Nombre(2) ou en Montant(2) ?]);"
        Stop
    DoCmd.RunSQL strSql
 
Me.Lst_Resultat.RowSource = "SELECT * FROM TableFinale"  ' affecte sql a lst_Resultat
    Me.Lst_Resultat.Requery             ' recalcule la liste

Comme je l'ai écrit dans l'édit, je vais tenter de manipuler la table créée après l'importation de strSql dans TableFinale (nom provisoire ;) ) !

Si vous avez des idées, je suis également preneur :)

Bonne fin de journée !

Ok,

alors tu m'enleves cette demande de ta requete et tu passes par un InputBox ou une zone de texte

Code:

1
2
3
4
5
Dim SepType As long
SepType = InputBox("Voulez-vous les valeur en Nombre(1) ou en Montant(2) ?")
strSql = "SELECT DISTINCTROW " & strField & "," & "T_Chèques.Sep_Type INTO TableFinale"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE " & "T_Chèques.Sep_Type=" & SepType

Merci pour tes réponses,

Je me sens un peu bête... Je t'ai donné le mauvais code...

Voici le bon :
Code:

1 2 3 strSql = "SELECT DISTINCTROW " & strField & "," & "T_Chèques.IdDate" & "," & "T_Chèques.Sep_Type INTO TableFinale" strSql = strSql & " FROM " & strTable strSql = strSql & " WHERE " & "((T_Chèques.IdDate) Between [Choisissez le premier mois de l'analyse :] And [Choisissez le dernier mois de l'analyse :])" & "AND" & "((T_Chèques.Sep_Type)=[Voulez-vous les valeur en Nombre(2) ou en Montant(2) ?]);"
Le champ qui pose problème (erreur d’exécution 3959) est : T_Chèques.IdDates

C'est un champ calculé égal à : SérieDate(Année([Date_Val]);Mois([Date_Val])+1;1)-1 (où Date_Val est une date). Cela me permet d'avoir le dernier jour de chaque mois, qui est la date réelle de saisie de la donnée, afin de pouvoir faire des calculs sur des années glissantes.

Même en passant par un InputBox ou une zone de texte, je ne ferais que remplacer la saisie des extimités de la période étudiée souhaitée.

Je vais me creuser les méninges ce soir pour trouver une solution : calculer ce champ après l'exécution de la requête, ou autre chose haha :)

En tout cas, merci !