Discussion :

[ivoratparis]

Bonjour,

Je voudrais récupérer le résultat d'un requête et le stocker dans une variable. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim sql As String
Dim qdfNew As QueryDef
Dim p As Variant
Dim rs As ADODB.Recordset
 
Set rs = New ADODB.Recordset
sql = "SELECT COUNT(Ligne)FROM (SELECT DISTINCT Ligne FROM [Sodexo_Inventairedes produits + Collaborateurs-Rapport Interne] WHERE ORGANISATION='Sans Affectation')  AS P;"
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
  Do Until rs.EOF
 
    p = rs("COUNT(Ligne)")
 
    rs.MoveNext
  Loop
rs.Close
End Function

Mais, il affiche l'erreur 3265: Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé pour la ligne 12.

Merci bp

[f-leb]

bonsoir,

"SELECT COUNT(*) FROM ..." devrait marcher (il manque une <espace> dans ton code juste avant le FROM)

ensuite,

Code :

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

p=rs(0) ' 0 pour le premier champ du SELECT