Bonjour,

j'ai un formulaire access qui contient un sous-formulaire et un bouton de commande.

Lorsque je clique sur le bouton, je crée une requête, et j'essaye d'affecter ses résultats au recordsource de mon sous-formulaire.

Au départ, ça ne fonctionnait pas du tout, car je n'avais rien séléctionné du tout dans propriétés/objet source de mon sous-formulaire.

mais maintenant que j'ai mis quelque chose (une requête), il me met ça :

La référence d'une expression à la propriété recordsource n'est pas valide.

mon code:
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
22
23
24
25
26
 
Private Sub Commande2_Click()
 
Dim str As String
str = "SELECT catalog_sbu.idcode_access, catalog_sbu.code, reftache.idreftache_access, reftache.nomreftache, reftache.loi_calcul_idloi_calcul"
str = str & " FROM reftache INNER JOIN "
str = str & " (catalog_sbu INNER JOIN catalog_sbu_has_reftache ON catalog_sbu.idcode_access = catalog_sbu_has_reftache.catalog_sbu_idcode_access)"
str = str & " ON reftache.idreftache_access = catalog_sbu_has_reftache.reftache_idreftache_access"
str = str & " WHERE (([catalog_sbu].[idcode_access] = 12886))"
str = str & " AND (((catalog_sbu.idcode_access) Not In (SELECT catalog_sbu.idcode_access"
str = str & " FROM straitant INNER JOIN (((("
str = str & " loi_calcul INNER JOIN reftache ON loi_calcul.idloi_calcul_access = reftache.loi_calcul_idloi_calcul)"
str = str & " INNER JOIN straitant_has_loi_calcul ON loi_calcul.idloi_calcul_access = straitant_has_loi_calcul.loi_calcul_idloi_calcul)"
str = str & " INNER JOIN (catalog_sbu INNER JOIN catalog_sbu_has_reftache ON catalog_sbu.idcode_access = catalog_sbu_has_reftache.catalog_sbu_idcode_access)"
str = str & " ON reftache.idreftache_access = catalog_sbu_has_reftache.reftache_idreftache_access)"
str = str & " INNER JOIN couttache ON reftache.idreftache_access = couttache.reftache_idreftache_access) "
str = str & " ON (straitant.idstraitant_access = straitant_has_loi_calcul.straitant_idstraitant_access) "
str = str & " AND (straitant.idstraitant_access = couttache.straitant_idstraitant_access)"
str = str & " WHERE catalog_sbu.idcode_access = 12886"
str = str & " )) AND ((reftache.loi_calcul_idloi_calcul) Is Not Null)) ;"
 
'Me.test.Caption = str
Me.sf.Form.RecordSource = str
 
 
End Sub
quelqu'un sait-il ce qu'il se passe à tout hazard ?