Discussion :

[taratata92400]

Bonjour à tous,

Je souhaiterais crééer parametrer une requête (notamment le nom de la table) en vba.
Ci- dessous ma "sub":

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")

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. "

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.

[Jean-Philippe André]

salut,
peux-tu nous montrer ce qui ressort de la concaténation des variables avec un Debug.Print stp ?

[taratata92400]

salut,
peux-tu nous montrer ce qui ressort de la concaténation des variables avec un Debug.Print stp ?

Oui biensûr pour le log . en fait j'ai mis une version "agrégée" de la requête car celle-ci est plutôt longue, toutefois je te met le log des 2 versions (sachant que c'est sur la deuxième que ca plante) :

V1

Code :

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

1
2
3
 
 
SELECT DISTINCT Table.[Legal], Table.Reinsurance, Table.Partner, Table.Risk, Sum((Table.[Champ1] + Table.[Champ4] - Table.[Champ2] )/2) AS TotalReservesBase1 FROM Table GROUP BY Table.[Legal], Table.Reinsurance, Table.Partner, Table.Risk

V2:

Code :

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

1
2
3
 
SELECT DISTINCT Table.[Legal], Table.Reinsurance, Table.Partner, Table.Risk, Sum((Table.[Champ1] + Table.[ChaSELECT DISTINCT Table.[Legal entity], Table.Reinsurance, Table.Partner, Table.Risk, Sum((Table.[IBNR bop] + Table.[IBNR eop] + Table.[RBNS bop] + Table.[RBNS eop] + Table.[Claim handling reserve bop] + Table.[Claim handling reserve eop] + Table.[UPR bop]+Table.[UPR eop]+Table.[Unexpired Risk Reserve bop] + Table.[Unexpired Risk Reserve eop] + Table.[Active Life Reserve bop]+Table.[Active Life Reserve eop] + Table.[Mathematical Reserve bop] + Table.[Mathematical Reserve eop]+Table.[Premium Accruals bop] + Table.[Premium Accruals eop] - Table.[Dac bop] - Table.[Dac eop])/2) AS TotalReservesBase1FROM TableGROUP BY Table.[Legal entity], Table.Reinsurance, Table.Partner, Table.Risk
mp4] - Table.[Champ2] )/2) AS TotalReservesBase1 FROM Table GROUP BY Table.[Legal], Table.Reinsurance, Table.Partner, Table.Risk

Merci pour ton aide !

[Jean-Philippe André]

bon ben faut revoir la V2, car IMO, elle ne passe pas même sous l'IHM Access

[taratata92400]

La "revoir", dans quel sens ? Et question sans doute bête mais c'est quoi "IMO" et "IHM" ???

Merci encore !

[Jean-Philippe André]

la revoir ca signifie qu'elle est fausse, regarde le contenu

Code :

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

Table.[ChaSELECT DISTINCT...

qui me parait peu viable

pour les noms, pardon, c'est du jargon :
- IMO = "In My Opinion" en anglais, soit "A Mon Avis" (AMA)
- IHM = "Interface Homme Machine", ton environnement utilisateur, les fenetres Access dans lesquelles tu évolues.


edit : de plus, le nom table est un nom dédié et spécifique au langage SQL, tu ne peux pas l'utiliser comme nom de variable.

[etoileetoile]

& "FROM " & nom_table1 & "" _
& "GROUP BY " & nom_table1 & ".[Legal], " & nom_table1 & "" _
& ".Reinsurance, " & nom_table1 & ".Partner, " & nom_table1 & ".Risk")

Ne manque t-il pas un ";" ici = ".Risk";)