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 : 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
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...