1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| Option Explicit
Public Parametres As Collection
Public Query As DAO.querydef
Public Function Executer() As Recordset
'là, tu as la requete (Query)
'Tu as aussi toutes les valeurs de tous les paramètres
'Tu peux donc exécuter la requête
'et renvoyer le recordset
End Function
Public Property Get Parametre(a_vIndex As Variant) As String
Parametre = Parametres.Item(a_vIndex)
End Property
Public Property Let Parametre(a_vIndex As Variant, a_sNewVal As String)
Parametres.Item(a_vIndex) = a_sNewVal
End Property
Private Sub Class_Initialize()
Set Parametres = New Collection
'Création des 25 paramètres initialisés à 0
Parametres.Add 0, "NomParam1"
Parametres.Add 0, "NomParam2"
Parametres.Add 0, "NomParam3"
Parametres.Add 0, "NomParam4"
Parametres.Add 0, "NomParam5"
Parametres.Add 0, "NomParam6"
Parametres.Add 0, "NomParam7"
Parametres.Add 0, "NomParam8"
Parametres.Add 0, "NomParam9"
Parametres.Add 0, "NomParam10"
Parametres.Add 0, "NomParam11"
Parametres.Add 0, "NomParam12"
Parametres.Add 0, "NomParam13"
Parametres.Add 0, "NomParam14"
Parametres.Add 0, "NomParam15"
Parametres.Add 0, "NomParam16"
Parametres.Add 0, "NomParam17"
Parametres.Add 0, "NomParam18"
Parametres.Add 0, "NomParam19"
Parametres.Add 0, "NomParam20"
Parametres.Add 0, "NomParam21"
Parametres.Add 0, "NomParam22"
Parametres.Add 0, "NomParam23"
Parametres.Add 0, "NomParam24"
Parametres.Add 0, "NomParam25"
End Sub
Private Sub Class_Terminate()
Set Parametres = Nothing
End Sub |
Partager