Discussion :

[carophil]

Bonjour,

J'ai écris les lignes suivantes afin de déterminer le nombre d'article identique de la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim db As Database
Dim rs As Recordset
Dim NbrProdFeat As Long
 
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Count(*) AS NbrProdFeat FROM [tbl_Link_Service_TaxoProdFeature] WHERE (tbl_Link_Service_TaxoProdFeature.lnkTaxoServ_Service)= " & Me.Parent!ServLine_Code)
Debug.Print " NbrFeat : ", NbrProdFeat
Debug.Print "Code service", Me.Parent!ServLine_Code
Me.Parent!ServLine_NbrProdFeat = NbrProdFeat
Me.Parent!ServLine_NbrProdFeat.Requery
 
Set rs = Nothing

Le résultat est imvariablement 0 pour NbrProdFeat alors que si je fais la même requête dans le générateur de requête, le résultat est correct.

NbrFeat : 0
Code service 1433
Merci de votre aide car je tourne en rond.

Philippe

[pc75]

Bonjour,

Fais un

Code :

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

debug.print ("SELECT Count(*) AS NbrProdFeat FROM [tbl_Link_Service_TaxoProdFeature] WHERE (tbl_Link_Service_TaxoProdFeature.lnkTaxoServ_Service)= " & Me.Parent!ServLine_Code)

et tu la compares avec celle qui fonctionne dans le générateur

[carophil]

J'ai comparé les deux et elles sont identiques. C'est comme si VBA ne comprenait pas la commande.

[pc75]

Re,

Et comme ça ?

Code :

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

1
2
 
Debug.Print " NbrFeat : " & rs("NbrProdFeat")

[carophil]

Merci cela fonctionne.

J'avais fais une requête similaire avec un Max et je n'utilisais pas cette syntaxe.

Un grand merci car cela va dégager un peu d'air.

A bientôt

Philippe