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

**gui-llaume** · 07/10/2008, 18h15

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.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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** · 07/10/2008, 18h55

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

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
18
19
20
21
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 :

Code :

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

1
2
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

Code :

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