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:quelqu'un sait-il ce qu'il se passe à tout hazard ?
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
Partager