Discussion :

[Tchupacabra]

Bonjour,

j'ai un souci avec Me.RecordSource dans certains cas....

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
Private Sub RefreshQuery()
    Dim strSQL As String
    Dim SQLWhere As String
    Dim codeD As Integer
    Dim codeT As Integer
    Dim S As String
 
    S = Me.RecordSource
 
    strSQL = "SELECT * FROM t_activite WHERE id<>0"
 
    If Me.chkFiltrageDiscipline Then
        codeD = Me.cboDiscipline
        If codeD <> 1 Then
            strSQL = strSQL & " AND code_discipline=" & codeD
        End If
    End If
 
    If Me.chkFiltrageType Then
        codeT = Me.cboType
        If codeT <> 1 Then
            strSQL = strSQL & " AND code_type=" & codeT
        End If
    End If
 
 
    SQLWhere = Trim(Right(strSQL, Len(strSQL) - InStr(strSQL, "WHERE ") - Len("WHERE ") + 1))
    strSQL = strSQL & " ORDER BY intitule;"
 
    ' mise à jour du résultats
    Me.lblResultats.Caption = DCount("*", "t_activite", SQLWhere) & " / " & DCount("*", "t_activite")
 
    ' mise à jour du listing des activités
    Me.RecordSource = strSQL
 
End Sub

Le problème intervient lorsque la requête SQL est concaténée avec :
- soit : strSQL = strSQL & " AND code_discipline=" & codeD
- soit : strSQL = strSQL & " AND code_type=" & codeT

A l'exécution de Me.RecordSource = strSQL dans ces cas là, j'obtient ce message d'erreur :
erreur 2107 : La valeur n'est pas conforme aux règles de validations définies par le champ ou le contrôle.

Vous auriez une idée : Parce que moi je tourne en rond depuis un moment, j'ai essayé de modifier la syntaxe de ma requête mais toujours le même message....

Pourtant le DCount marche très bien !

[Tchupacabra]

Vous n'auriez pas une idée :

@+

[random]

soit : strSQL = strSQL & " AND code_discipline=" & codeD
si coded est alpha
soit : strSQL = strSQL & " AND code_discipline='" & codeD & "'

[Tchupacabra]

Malheureuseuement, j'avais déjà essayé mais codeT et codeD sont des Integer....et normalement on peut pas utiliser les apostrophes avec des Integer, non ?

[Alexandre Sahli]

re bonjour

la première chose à faire c'est de voir ton code sql

pour cela tu mets avant l'exécution de la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 msgbox(Strsql)

là tu peux voir ce qui cloche dans ton code et corriger en conséquence
sinon c'est difficile de te dépanner

A+

[Tchupacabra]

Normalement, rien ne devrait clocher avec cette requête

SELECT * FROM t_activite WHERE id<>0 AND code_discipline=4 ORDER BY intitule;

@+

[cafeine]

Hello,

as-tu jeté un coup d'oeil sur mon tuto de débogage de requêtes SQL (c'est en plein dans le sujet)

http://cafeine.developpez.com/access...el/debugprint/