bonjour

j'ai lu dans la faq que les recordsets étaient plus performants que les regroupement de domaine.

Je ne comprends pas fonctionnement des recordsets. J'ai donc beaucoup de fonctions paliatives dans ma base (relativement importante) qui doit, j'en suis sûre, la relentir beaucoup.

Pourriez vous m'aider à reformuler ma fontion de manière à la transformer en recordset :

Voici un exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Form_Current()
Me.Compteur_site = DCount("ID_SITE", "T_SITE", "ID_CHANTIER=Formulaires![F_SITE_DANS_CHANTIER]![ID_CHANTIER]")
 
end sub
Voici ce que le recordset que j'ai essayé de créer :

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
Private Sub Form_Current()
 
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
 
 
Set bd = CurrentDb
Set rs = bd.OpenRecordset("T_site", dbOpenDynaset)
sql = "SELECT Count(T_Site.ID_Site) AS CompteDeID_Site, T_Site.ID_Chantier FROM T_Site GROUP BY T_Site.ID_Chantier HAVING (((T_Site.ID_Chantier) Like [Formulaires]![F_Site_Dans_Chantier]![ID_CHANTIER]))"
 
 
rs.Close
Set rs = Nothing
Set bd = Nothing
 
 
End Sub
En vous remerciant

isabelle