Bonjour à tous,
Je souhaiterais crééer parametrer une requête (notamment le nom de la table) en vba.
Ci- dessous ma "sub":
Lorsque j'appelle la procédure, l'erreur générée est la suivante : " Erreur 3141: Dans l'instruction SELECT, un mot reservé ou un argument est mal orthographié ou absent, ou la ponctuation est incorrecte. "
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Sub RunSplitMargeFI(nom_table1 As String) Dim bd As DAO.Database Set bd = CurrentDb Dim SigmaProvTech1 As DAO.QueryDef Set SigmaProvTech1 = bd.CreateQueryDef("SigmaProvTech1_VB", "SELECT DISTINCT " & nom_table1 & ".[Legal], " & nom_table1 & ".Reinsurance, " & nom_table1 & ".Partner, " & nom_table1 & ".Risk, Sum((" & nom_table1 & ".[Champ1] + " & nom_table1 & ".[Champ4] - " & nom_table1 & ".[Champ2] )/2) AS TotalReservesBase1" _ & "FROM " & nom_table1 & "" _ & "GROUP BY " & nom_table1 & ".[Legal], " & nom_table1 & "" _ & ".Reinsurance, " & nom_table1 & ".Partner, " & nom_table1 & ".Risk")
Ce n'est pourtant pas la première requête de ce type que j'écris, mais je n'arrive toutefois pas à comprendre d'où vient le bug sachant que cette même requête a été préalablement testée en SQL avant de la retranscrire en VBA.
Merci d'avance pour votre aide.
Louis.
Partager