[A-03] Ouvrir une requête paramétrée pour renvoyer un recordset

[gui-llaume]

Bonjour,

comment appeller une requete paramétrée dans du code pour retourner un recordset.

je veux créer une fonction qui me permette cela mais je connais pas les fonction qui le permette.

Function TestNoData(Req As String, param_typecontrat As String, param_versionannexe As Integer) As Boolean
    
Dim db As DAO.Database: Set db = CurrentDb
Dim rec As DAO.Recordset
    
    
 '' ici ouvrir la requete par un record set avec les parametres
 
    If Not rec.EOF And Not rec.BOF Then
        TestNoData = False
    End If
End Function
 

Quelle fonction passer pour ouvrir la req avec ses parametres passés en parametre de la fonction ?

[gui-llaume]

salut, j'ai fait cela en pompant sur des sources mais j'ai un dernier pb !

Function ExecReqRsParam(Req As String, param_typecontrat As String, param_versionannexe As Integer) As Boolean
    'Exécute une requête paramétrée renvoyant un Recordset et test sur la présence d'enregistrements
    Dim i As Long
    Dim Qdf As DAO.QueryDef
    Dim rec As DAO.Recordset
    Dim result As Boolean
    
    
    Set Qdf = Access.CurrentDb.QueryDefs(Req)
    Qdf(0) = param_typecontrat
    Qdf(1) = param_versionannexe
    Set rec = Qdf.OpenRecordset(dbOpenSnapshot)
    If Not rec.EOF And Not rec.BOF Then
        ExecReqRsParam = True ' la requete contient des données >> état a éditer
    Else
        ExecReqRsParam = True ' la requete ne contient pas des données
    End If
    Qdf.Close
    Set Qdf = Nothing
 
End Function

cette fonction je l'utilise dans le code suivant :

dbfunction.ExecReqRsParam "-- code -- 001 -- dates contrat et annexe vides", param_typecontrat, param_versionannexe
        If ExecReqRsParam = True Then

mon probleme est que il me dit que les parametres sont obligatoires sur

If ExecReqRsParam = True Then

.

en fait je pense que la définition de la fonction m'échappe !!
pouvez vous m'indiquer mon erreur ??

merci

[gui-llaume]

j'ai compris mon erreur !!!

un post pour rien ...