Discussion :

[zoom61]

Salut,

Je ne vois pas où se trouve mon erreur, voici mon code :

Code :

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

1
2
3
4
5
6
7
SQL = "SELECT R_BILAN.SOLD_CTRY_CODE, R_BILAN.OOH_UDEF_B, R_BILAN.SHP_NAME, R_BILAN.SHP_ADDR1, R_BILAN.SHP_ADDR2, " _
    & "R_BILAN.SOLD_ZIP, R_BILAN.SHP_CITY, R_BILAN.SHP_NUM " _
    & "FROM R_BILAN " _
    & "GROUP BY R_BILAN.SOLD_CTRY_CODE, R_BILAN.OOH_UDEF_B, R_BILAN.SHP_NAME, R_BILAN.SHP_ADDR1, R_BILAN.SHP_ADDR2, " _
    & "R_BILAN.SOLD_ZIP, R_BILAN.SHP_CITY, R_BILAN.SHP_NUM"
'MsgBox SQL
Set oSQL = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

Si je prends le résultat de SQL, et que je le copie dans une requête cela fonctionne, et la requête R_BILAN fonctionne correctement...


Par contre si je l'exécute en VBA j'ai :

Erreur d'exécution '3061':
Trop peu de paramètres. 2 attendu

J'ai les bibliothèques suivantes :

• Visual Basic For Applications
• Microsoft Access 10.0 Object Library
• OLE Automation
• Microsoft DAO 3.6 Object Library
• Microsoft ActiveX Data Objects (Multi-dimesional) 2.8
• Microsoft ActiveX Data Objects 2.8 Libray

Qu'en pensez-vous ? Où ai-je loupé quelque chose ?

@+.

[f-leb]

salut zoom,

R_BILAN ne serait pas une requête paramétrée (ou faisant appel à une requête paramétrée) ?

Voir http://support.microsoft.com/kb/210244/fr

Sinon, dans ce contexte sans calcul sur le regroupement, la syntaxe avec SELECT DISTINCT est préférable.

[zoom61]

Salut,

Ma requête R_BILAN contient des filtres venant d'un formulaire, c'est cela qui me bloque ?

@+.

[zoom61]

Effectivement, si je supprime le filtre dans la requête cela fonctionne correctement.

Merci.

@+.