Discussion :

[ClaudeLELOUP]

Bonjour,
Je voudrais écrire une fonction qui :
- ouvre une requête paramétrée,
- l’utilisateur renseigne les paramètres,
- la requête s'exécute, (jusqu'ici pas de problème)
- la fonction renvoie le nombre d’enregistrements ramenés par la requête. (Ici, je coince !)

Pouvez-vous m'aider ?

[tee_grandbois]

Salut Claude,

e voudrais écrire une fonction qui :
- ouvre une requête paramétrée,
- l’utilisateur renseigne les paramètres,
- la requête s'exécute, (jusqu'ici pas de problème)
- la fonction renvoie le nombre d’enregistrements ramenés par la requête. (Ici, je coince !)

as-tu un début de code ?

[ClaudeLELOUP]

Bonjour Guy,

Merci pour l'intérêt.

Pour ouvrir la requête, un simple Docmd.OpenQuery => la main passe à l'utilisateur qui complète.
Mais après ?

[tee_grandbois]

le Docmd.OpenQuery est-il lancé par du code ou manuellement ?

[ClaudeLELOUP]

Regarde, c'est dans le contexte de cette demande : https://www.developpez.net/forums/d1...s/#post9790961

Pour une requête ordinaire, c'est simple : Dcount(), mais quid s'il y a un paramètre dans le chemin ?

[tee_grandbois]

mais quid s'il y a un paramètre dans le chemin ?

désolé, j'ai du mal à comprendre le besoin : s'agit-il bien d'un paramètre (critère, where) de ce genre : Dcount("*","laTableouRequete","leChamp =" & laValeur) ?

[ClaudeLELOUP]

Non, par exemple, on a :

et je voudrais une fonction qui me donne le nombre d'enregistrements ramenés avec le paramètre qui a été renseigné par l'utilisateur.

[tee_grandbois]

J'ai ce 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
Function fCompterRst(pNomRst As String) As Long
Dim q As DAO.QueryDef
Dim rs As Recordset
Dim i  As Integer
Dim Param As Variant
Set q = CurrentDb.QueryDefs(pNomRst)
For i = 0 To q.Parameters.Count - 1
    Param = InputBox("Entrez la valeur du paramètre " & i & " : " & q.Parameters(i).Name, "Entrée des paramètres")
    q.Parameters(i).Value = Param
Next i
Set rs = q.OpenRecordset
rs.MoveLast
fCompterRst = rs.RecordCount
 
Set rs = Nothing
 
End Function

et le résultat :

Code :

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

1
2
?fCompterRst("rref00")
 2

Mai c'est dommage de rentrer les paramètres par cette méthode pas très "user friendly"

[ClaudeLELOUP]

[-Anthime-]

Un grand merci à vous deux !