[AC-2003] Regroupement de domaine et recordset

[isabelle b]

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 :

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 :

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

[Kloun]

Bonjour

Code :

1
2
3
4
5
Set bd = CurrentDb
sql = "SELECT Count(ID_Site) as Comptage " & _
      "where ID_Chantier) = [Formulaires]![F_Site_Dans_Chantier]![ID_CHANTIER] " & _
      "FROM T_Site"  
Set rs = bd.OpenRecordset(sql, dbOpenDynaset)