Discussion :

[Thoro22]

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 :

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
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 :



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 !

[Jean-Philippe André]

Salut,

soucis 1 : tu ajoutes un INTO TableFinale par exemple

Code :

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

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 =]

[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

[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)...

[Thoro22]

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

Le 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
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 !

[Jean-Philippe André]

Ok,

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

Code :

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

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