[VBA/SQL] optimisation avec un recordset?

salut à tous, voilà mon code actuel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub agent_non_assos()
'mise a jour de agent_non_assos
Dim SQL2 As String
SQL2 = "SELECT [Genre],[Espece],[Sous_espece] FROM ref_agent "
SQL2 = SQL2 & " WHERE Clef_agent NOT IN (SELECT Clef_agent FROM "
SQL2 = SQL2 & " [maladie/methode/agent] WHERE [Clef_m/m]=" & MMA & ")"
Me!agents_non_assos.RowSourceType = "table/query"
Me!agents_non_assos.RowSource = SQL2
SQL2 = ""
End Sub
Private Sub agent_assos()
'mise a jour de agent_assos
Dim SQL3 As String
SQL3 = "SELECT [Genre],[Espece],[Sous_espece] FROM ref_agent "
SQL3 = SQL3 & " WHERE Clef_agent  IN (SELECT Clef_agent FROM "
SQL3 = SQL3 & " [maladie/methode/agent] WHERE [Clef_m/m]=" & MMA & ")"
Me!agents_assos.RowSourceType = "table/query"
Me!agents_assos.RowSource = SQL3
SQL3 = ""
End Sub

le code marche mais je voulez savoir si je crée un recordset contenant SELECT Clef_agent FROM [maladie/methode/agent]
WHERE [Clef_m/m]= MMA

et si je l'utilise dans les procédures Sub agent_non_assos() et Sub agent_assos() est-ce que l'ensemble ne serai pas plus efficace

merci