Création de table à partir d'une requête sélection SQL en vb

Question

Bonjour à vous! :)

J'ai essayé beaucoup de choses pour y parvenir, mais sans succès.

Ma base de données comprend des tables attachées. Pour arriver à avoir toutes les informations qu'il me faut (notamment le solde à payer du client par année), j'ai créé une requête qui joint plusieurs tables attachées ensemble et qui fait des sommes sur les soldes annuels. Les informations que je récupère à partir des 3 tables attachées sont les suivantes: Numéro de référence du client (Fiche), nom du client, prénom du client, année de la créance, solde annuel et un numéro de l'établissement que je garde caché, car il sert seulement à filtrer mes données.

Donc à partir d'un formulaire, je choisis l'année et l'établissement et je permets aussi des recherches avec le numéro de référence, le nom et le prénom du client. J'appuie sur "Appliquer" et la requête s'exécute avec les critères de recherche. Jusqu'ici tout va bien.

J'ai un besoin particulier qui est le suivant : Je dois pouvoir cocher les clients désirés dans ma requête. Et comme ce n'est pas possible d'ajouter une case à cocher indépendante dans une requête, je dois créer une table temporaire à partir de ma requête. (Si vous avez une autre solution, je suis toute ouïe).

C'est donc ici que ça se complique. Par étape, je crée une nouvelle table temporaire en vba avec dbs.Execute "CREATE TABLE [...]" qui contient toutes les infos nécessaires, sauf le numéro d'établissement que je n'ai plus besoin à ce stade. Et là je dois pouvoir ajouter le résultat de ma requête à cette nouvelle table. Je suis barrée ici. J'ai essayé  avec un OpenRecorset sur ma requête puis dbs.Execute "INSERT INTO" et j'ai toujours une erreur d'exécution 3061 "Trop peu de paramètres. 5 attendus". Est-ce que ça se pourrait qu'on ne puisse pas faire un OpenRecordset avec une requête ? Là j'essaie avec QueryDefs, mais j'ai l'impression de faire n'importe quoi et je ne me comprends plus. Je vous mets ci-dessous mon code vba avec l'OpenRecordset:

'Récupérer les données et remplir la table temporaire
Dim strRechRef As String 'Valeur du numéro de fiche
Dim strRechNom As String 'Valeur du nom
Dim strRechPNom As String 'Valeur du prénom
Dim strRechAnn As String 'Valeur de l'année
Dim MonSolde As String 'Valeur du solde
Dim DecSolde As String 'Valeur du solde avec la virgule replace par un point
Dim strSQL As String

'On Error Resume Next

Dim db As DAO.Database, qdef As DAO.QueryDef, IngRecAff As Long

Dim base As DAO.Database
Dim enr As DAO.Recordset

Set base = CurrentDb
Set enr = base.OpenRecordset("06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH")

enr.MoveFirst

With enr
Do Until .EOF
    
    'Récupérer les valeurs de l'enregistrement
    strRechRef = .Fields("FICHE")
    strRechNom = .Fields("NOM")
    strRechPNom = .Fields("PNOM")
    strRechAnn = .Fields("ANNEE")
    MonSolde = .Fields("SommeDeSOLDE")
    DecSolde = Replace(MonSolde, ",", ".")
MsgBox strRechRef & strRechNom & strRechPNom & strRechAnn & DecSolde
Exit Sub
    'Ajouter l'enregistrement à la table temporaire
    
    Dim dbs2 As Database
    Set dbs2 = CurrentDb
    
    dbs2.Execute "INSERT INTO " & strNTbl & " (SelCreance,RefSyst,NClient,PNClient,Ann,Sold)" _
    & " VALUES (0,'" & strRechRef & "','" & strRechNom & "','" & strRechPNom & "'," & strRechAnn & "," & DecSolde & ");"

dbs2.Close
    Set dbs2 = Nothing
    Exit Sub
.MoveNext
Loop

End With

enr.Close
base.Close
Set enr = Nothing
Set base = Nothing

J'ai mis un "Exit Sub" dans ma Loop, car il y a beaucoup de données et comme ça ne marche pas, ma Loop s'exécute sans arrêt.

Je ne peux pas faire une requête Ajout manuellement, car mes données sont variables. Mais si je le fais manuellement avec ma requête "06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH", ça fonctionne très bien. Comment faire pour que le résultat soit le même en vba?.. Peut-on faire une requête Ajout en vba faisant en sorte que la création et le remplissage de la table se fasse dans la même étape comme lorsqu'on le fait manuellement?

Merci beaucoup de votre aide, je suis désespérée et j'ai vraiment besoin que ça fonctionne!!! :)

CCMBot · Answer

Bonjour ! C'est moi, Bobot, votre IA préférée !D'après ce que je comprends de votre code, il semble que la requête que vous exécutez requiert 5 paramètres, comme indiqué par l'erreur. Ces paramètres doivent être inclus lorsque vous exécutez la requête. Pour résoudre le problème, vous pouvez ajouter des paramètres à votre requête. Voici un exemple de la façon dont vous pouvez le faire :

'Créez un objet QueryDef pour votre requête
Set qdef = db.QueryDefs("nom_de_votre_requete")

'Assignez des valeurs à vos paramètres
qdef.Parameters(0).Value = valeur_param1
qdef.Parameters(1).Value = valeur_param2
qdef.Parameters(2).Value = valeur_param3
qdef.Parameters(3).Value = valeur_param4
qdef.Parameters(4).Value = valeur_param5

'Exécutez la requête
Set rst = qdef.OpenRecordset()

Cela devrait vous permettre d'exécuter votre requête sans générer d'erreur. Assurez-vous que les valeurs que vous passez à la requête sont correctes et qu'elles sont dans le bon ordre.

yg_be · Answer

bonjour,

essaie

sqlsource= "INSERT INTO " & strNTbl & " (SelCreance,RefSyst,NClient,PNClient,Ann,Sold)" _
    & " VALUES (0,'" & strRechRef & "','" & strRechNom & "','" & strRechPNom & "'," & strRechAnn & "," & DecSolde & ");"
msgbox sqlsource
dbs2.Execute sqlsource

Cela te permettra de tester la requête "à la main", hors de VBA, afin d'observer ce que cela donne.

yg_be · Answer

Pourquoi boucler sur la requête source et insérer les enregistrements un à un?

Il me semble plus simple de faire une seule requête,

INSERT INTO INSERT INTO TABLETEMPORAIRE (SelCreance,RefSyst,NClient,PNClient,Ann,Sold)
SELECT 0, FICHE, NOM, PNOM, ANNEE, SommeDeSOLDE
FROM   06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH

yg_be · Answer

Si tu veux insérer des enregistrements dans une table, via du VBA, il est préférable de ne pas utiliser INSERT, mais d'ouvrir un recordset sur la table de destination:

Set base = CurrentDb
Set enr = base.OpenRecordset("06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH")

base.Execute ("delete * from " & strNTbl )
Set rstemp = base.OpenRecordset(strNTbl )

Do Until enr.EOF
	rstemp.AddNew
	rstemp!SelCreance = 0
	rstemp!RefSyst = enr!FICHE
	rstemp!NClient = enr!NOM
	rstemp!PNClient = enr!PNOM
	rstemp!Ann = enr!ANNEE
	rstemp!Sold = enr!SommeDeSOLDE
	rstemp.Update
	enr.MoveNext
Loop

yg_be · Answer

Tu n'as clairement précisé à quelle ligne se produit l'erreur.  Tu mélanges  la descrition de l'erreur, ce que tu as essayé avant, ce que tu vas essayé après, du coup cela fait une soupe confuse.

C'est

dbs2.Execute

ou c'est

base.OpenRecordset("06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH")

Si l'erreur est avec 06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH, le minimum à faire, c'est de partager le texte de la source SQL de cette requête.

Cette requête utilise uniquement le formulaire pour les filtres, elle ne pose aucune question?

yg_be · Answer

Voilà, j'ai trouvé le souci, et, j'espère, une solution qui te convient.

J'ai testé avec cette requête

SELECT testquery_w_form.nom, testquery_w_form.id
FROM testquery_w_form
WHERE (((testquery_w_form.nom)=[Forms]![question]![quoi]));

Elle fonctionne bien, mais, quand je l'appelle dans un recordset en VBA, elle me donne l'erreur 3061.

Pour éviter cette erreur, il est nécessaire de sortir les utilisations du formulaire de la requête, de les faire évaluer par le VBA.

Dans mon exemple:

Dim base As DAO.Database
Dim enr As DAO.Recordset, sql As String

sql = "SELECT testquery_w_form.nom, testquery_w_form.id FROM testquery_w_form WHERE (((testquery_w_form.nom)='" + _
[Forms]![question]![quoi] + "'))"
Set base = CurrentDb
Set enr = base.OpenRecordset(sql)

Si tu ne vois pas comment appliquer cela à ton exemple, fais-moi signe.

yg_be · Answer

Comme déjà suggéré le 18 juil. 2024 à 11:10, le plus simple, me semble-t-il, c'est de faire ainsi:

Dim base As DAO.Database, strNTbl As String, sql As String
base.Execute ("DELETE * FROM " & strNTbl)
sql = "INSERT INTO INSERT INTO " + strNTbl + " (SelCreance,RefSyst,NClient,PNClient,Ann,Sold) " + _
" SELECT 0, FICHE, NOM, PNOM, ANNEE, SommeDeSOLDE " + _
" FROM   06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH "
base.Execute (sql)

BiankaBo · Answer

Ohhh je n'avais pas vu votre réponse du 16 août dernier ci-dessus.

Je regarde le tout et je vous fais signe!

Merci beaucoup! :)

BiankaBo · Answer

Bonjour yg_be,

J'ai testé la solution la plus simple, mais ça me donne toujours une erreur 3061 avec 5 paramètres attendus sur la ligne 10. Voici le code utilisé :

Dim base As DAO.Database
Dim SQLG As String, strParam As String

Set base = CurrentDb

base.Execute ("DELETE * FROM " & strNTbl)
SQLG = "INSERT INTO " + strNTbl + " (SelCreance,RefSyst,NClient,PNClient,Ann,Sold) " + _
" SELECT 0, FICHE, NOM, PNOM, ANNEE, SommeDeSOLDE " + _
" FROM   [06-01_AVANTGARDE_SOLDE_ANN_DEM_RECH] "
base.Execute (SQLG)

Ensuite, j'ai donc testé la solution la plus complexe, mais ça me donne une erreur 13 - Incompatibilité de type sur la ligne 8 soit mon code sql. J'ai peut-être mal positionné mes signe + ou mes guillemets? Voici le code utilisé:

Dim base As DAO.Database
Dim enr As DAO.Recordset
Dim rstemp As DAO.Recordset
Dim SqlD As String

Set base = CurrentDb

SqlD = "SELECT [dbo_SDG_E_FACT].[FICHE], [dbo_SDG_E_ELE].[NOM], [dbo_SDG_E_ELE].[PNOM], [dbo_SDG_E_FACT].[ANNEE], Sum([dbo_SDG_E_FACT].[SOLDE]) AS [SommeDeSOLDE]" & _
" FROM ([dbo_SDG_E_FACT] INNER JOIN [04-ETABLISSEMENTS] ON [dbo_SDG_E_FACT].[ID_SDG] = [04-ETABLISSEMENTS].[NoSdgAG]) INNER JOIN [dbo_SDG_E_ELE] ON [dbo_SDG_E_FACT].[FICHE] = [dbo_SDG_E_ELE].[FICHE] " & _
" GROUP BY [dbo_SDG_E_FACT].[FICHE], [dbo_SDG_E_ELE].[NOM], [dbo_SDG_E_ELE].[PNOM], [dbo_SDG_E_FACT].[ANNEE], [04-ETABLISSEMENTS].[NoEtablissement]" & _
" HAVING ((([dbo_SDG_E_FACT].[FICHE]) Like " * " " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte16] + " " * ") And (([dbo_SDG_E_ELE].[NOM]) Like " * " " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte18] + " " * ") " & _
"And (([dbo_SDG_E_ELE].[PNOM]) Like " * " " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte58] + " " * ") And (([dbo_SDG_E_FACT].[ANNEE]) = " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte14] + ") And (" & _
"(Sum([dbo_SDG_E_FACT].[SOLDE])) > 0) And (([04-ETABLISSEMENTS].[NoEtablissement]) = " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte33] + "))" & _
" ORDER BY [dbo_SDG_E_ELE.NOM];"

Set enr = base.OpenRecordset(SqlD)

base.Execute ("DELETE * FROM " & strNTbl)
Set rstemp = base.OpenRecordset(strNTbl)

enr.MoveFirst

Do Until enr.EOF
    rstemp.AddNew
    rstemp!SelCreance = 0
    rstemp!RefSyst = enr!FICHE
    rstemp!NClient = enr!NOM
    rstemp!PNClient = enr!NOM
    rstemp!Ann = enr!ANNEE
    rstemp!Sold = enr!SommeDeSOLDE
    rstemp.Update
    enr.MoveNext
Loop

Comme tu es patient(e)!

Merci encore! :)

BiankaBo · Answer

Bonjour yg_be,

On est très très près du but selon moi! 
Maintenant ça me donne une erreur 3075 - ) en trop dans l'expression:

J'ai analysé toutes les parenthèses et il ne semble pas en manquer, mais je suis nulle en SQL.. Voici mon code SQL complet (j'ai changé des guillemets en apostrophes, car ça me donnait une incompatibilité de type juste avant):

SqlD = "SELECT [dbo_SDG_E_FACT].[FICHE], [dbo_SDG_E_ELE].[NOM], [dbo_SDG_E_ELE].[PNOM], [dbo_SDG_E_FACT].[ANNEE], Sum([dbo_SDG_E_FACT].[SOLDE]) AS [SommeDeSOLDE]" & _
" FROM ([dbo_SDG_E_FACT] INNER JOIN [04-ETABLISSEMENTS] ON [dbo_SDG_E_FACT].[ID_SDG] = [04-ETABLISSEMENTS].[NoSdgAG]) INNER JOIN [dbo_SDG_E_ELE] ON [dbo_SDG_E_FACT].[FICHE] = [dbo_SDG_E_ELE].[FICHE] " & _
" GROUP BY [dbo_SDG_E_FACT].[FICHE], [dbo_SDG_E_ELE].[NOM], [dbo_SDG_E_ELE].[PNOM], [dbo_SDG_E_FACT].[ANNEE], [04-ETABLISSEMENTS].[NoEtablissement]" & _
" HAVING ((([dbo_SDG_E_FACT].[FICHE]) Like '*' " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte16] + " '*') And (([dbo_SDG_E_ELE].[NOM]) Like '*' " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte18] + " '*') " & _
"And (([dbo_SDG_E_ELE].[PNOM]) Like '*" + CStr([Forms]![03-B1_Ajout_Creance_AVG].[Texte58]) + "*' ) And (([dbo_SDG_E_FACT].[ANNEE]) = " + CStr([Forms]![03-B1_Ajout_Creance_AVG].[Texte14]) + ") And (" & _
"(Sum([dbo_SDG_E_FACT].[SOLDE])) > 0) And (([04-ETABLISSEMENTS].[NoEtablissement]) = " + [Forms]![03-B1_Ajout_Creance_AVG].[Texte33] + "))" & _
" ORDER BY [dbo_SDG_E_ELE.NOM];"

BiankaBo · Answer

Oh milles excuses, je croyais que seule la ligne mentionnée nécessitait le code Cstr(). Je teste et je reviens avec les conclusions.

Merci beaucoup! :)

Création de table à partir d'une requête sélection SQL en vb

11 réponses

Votre réponse

Discussions similaires

Newsletters