Requête SQL : La méthode 'form' de l'objet '

Requête SQL : La méthode 'form' de l'objet '_subform' a échoué

Bonjour, je développe actuellement une appli sous access, et j'ai un souci qui est apparu sur un formulaire alors que ça fonctionnait avant, je ne comprends pas ce qu'il me veut...
j'ai un formulaire principal avec un sous formulaire.
en entrant certains critères dans le formulaire principal, je génère une chaine qui sera ma requête SQL.
mais access me plante au moment de l'exécution de la requête...

voici mon code:

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Private Sub ok_Click()
 
Dim ReqSql As String
Dim CRITERES As String
Dim CountStr As String
Dim Count As Integer
Dim CountStrTotal As String
 
ReqSql = "SELECT * FROM R_Liste_UO "
CRITERES = ""
 
If Me.Cadre6.Value = 2 Then
    CRITERES = CRITERES + "WHERE hidden = 0 "
End If
 
If Me.Cadre6.Value = 1 Then
    CRITERES = CRITERES + "WHERE hidden = -1 "
End If
 
If Me.debut <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND code like '" + Me.debut + "*' "
    Else
        CRITERES = "WHERE code like '" + Me.debut + "*' "
    End If
End If
 
If Me.fin <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND code like '*" + Me.fin + "' "
    Else
        CRITERES = "WHERE code like '*" + Me.fin + "' "
    End If
End If
 
If Me.contient <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND code like '*" + Me.contient + "*' "
    Else
        CRITERES = "WHERE code like '*" + Me.contient + "*' "
    End If
End If
 
If Me.ncontient <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND code not like '*" + Me.ncontient + "*' "
    Else
        CRITERES = "WHERE code not like '*" + Me.ncontient + "*' "
    End If
End If
 
If Me.Lst_BD <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND buisnessdivision_id = " + Me.Lst_BD + " "
    Else
        CRITERES = "WHERE buisnessdivision_id = " + Me.Lst_BD + " "
    End If
End If
 
If Me.Lst_Produit <> "" Then
    If CRITERES <> "" Then
        CRITERES = CRITERES + "AND product_id = " + Me.Lst_Produit + " "
    Else
        CRITERES = "WHERE product_id = " + Me.Lst_Produit + " "
    End If
End If
 
ReqSql = ReqSql + CRITERES
Me.F_Liste_UO_sf.Form.RecordSource = ReqSql + "ORDER BY code"
' c'est ici que ça plante !!!!
Me.Refresh
 
Call CompteTaches_cout(ReqSql)
 
ReqSql = Empty
CRITERES = Empty
 
End Sub

je ne comprends vraiment pas pourquoi il ne fonctionne plus, je n'ai rien changé sur ce form, j'ai juste rajouté des procédures au double-clic dans le sous-formulaire...

Salut,
rajoutes un debug.print après

Code:

ReqSql = ReqSql + CRITERES

ça te permettra de voir si ta requête est correcte

un debug print ??? c'est quoi ça ?

ah oui ok. oui oui la requête est bonne.
c'est un truc de base, un select * from machintruc, donc pas de soucis là dessus

c'est une commande VB qui te permet de visualiser des variables dans la fenêtre d'execution
Code:

1 2 ReqSql = ReqSql + CRITERES Debug.Print ReqSql
et dans ta fenêtre d'execution tu vas avoir

Code:

SELECT * FROM R_Liste_UO WHERE ...etc....

oui j'ai regardé, pratique le debug.print !
bon, seul souci, je ne vois pas où est l'erreur, ma requête est juste !

Et quel est ton message d'erreur ?

mon message d'erreur : La méthode 'form' de l'objet '_subform' a échoué

bizarrement ça re-fonctionne.....

je pense que je vais pas chercher à savoir le pourquoi du comment.
ça s'est magiquement mis à fonctionner alors que je n'ai rien fait.

en tout cas merci beaucoup, j'aurais au moins appris à me servir d'un debug.print !

Bonne continuation à toi !