Discussion :

[javaboy]

Bonjour à tous je me permets de poster mon code ici, hier mon appli fonctionnait parfaitement et aujourd'hui plus rien ! Je ne sais pas si j'ai effacer quelque chose par mesgarde c'est pourquoi j'aimerai que vous analisiez mon code car vous avez l'oeil avertit :

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Option Compare Database
Option Explicit
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT * FROM tbl_Pc WHERE tbl_Pc.ID <>" & "0"
 
If Not Me.chk_Pc Then
    SQL = SQL & " And tbl_Pc.ID like '*" & Me.txt_Pc & "*'"
End If
If Not Me.Chk_Type Then
    SQL = SQL & " And tbl_PC.Type = '" & Me.lst_Type & "'"
End If
If Not Me.chk_User Then
    SQL = SQL & " And tbl_Pc.IDUser like '*" & Me.txt_User & "*'"
End If
 
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") - 1))
 
SQL = SQL & ";"
'MsgBox (SQL)
Me.lst_Results.RowSource = SQL
Me.lst_Results.Requery
End Sub
 
 
Private Sub chk_Pc_Click()
  If Me.chk_Pc Then
        Me.txt_Pc.Visible = False
    Else
        Me.txt_Pc.Visible = True
    End If
RefreshQuery
End Sub
 
Private Sub Chk_Type_Click()
    If Me.Chk_Type Then
        Me.lst_Type.Visible = False
    Else
        Me.lst_Type.Visible = True
    End If
RefreshQuery
End Sub
 
 
Private Sub chk_User_Click()
    If Me.chk_User Then
        Me.txt_User.Visible = False
    Else
        Me.txt_User.Visible = True
    End If
RefreshQuery
End Sub
 
Private Sub Form_Load()
'Au chargement du formulaire on verifie et on met à vide ou à faux tous les éléments du formulaire [Me.(QuelqueChose)]
    Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
    End Select
Next ctl
 
Me.lst_Results.RowSource = "Select * From tbl_Pc ;"
Me.lst_Results.Requery
 
End Sub
 
 
Private Sub lst_Results_DblClick(Cancel As Integer)
 
    DoCmd.OpenForm "frm_Pc", acNormal, , "[tbl_Pc.ID] like " & Me.lst_Results
End Sub
 
 
Private Sub lst_Type_BeforeUpdate(Cancel As Integer)
    Call RefreshQuery
End Sub
 
Private Sub txt_Pc_BeforeUpdate(Cancel As Integer)
    Call RefreshQuery
End Sub
 
Private Sub txt_User_BeforeUpdate(Cancel As Integer)
    Call RefreshQuery
End Sub

[p'tite Sandrine]

Bonjour,

Je n'ai pas vu encore ton bug mais par contre:

- Pourquoi garde tu le SQLWhere alors que tu ne semble pas l'utiliser?
- Ne peux tu pas supprimer tes Call devant RefreshQuery? chez moi ca marche sans!

Je continue a regarder si vois je vois autre chose

[javaboy]

Code :

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

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") - 1))

Heuuuuuu tres bonne question
Voila fini le SQLWhere qui sert a rien
Merci
Ok pour les Call ca marche aussi

[GCUSSE]

salut,

Petite question peut-être bête mais as-tu ajouté des enregistrements depuis hier?????

C'est peut-être au niveau des datas????

bon travail

[javaboy]

Bonjour,
Merci pour lecompliment
Non je ne pense pas avoir ajouté de dates

[GCUSSE]

Re,

sorry loin de moi l'idée de te jeter l'opprobre... c'est juste pour faire avancer le scmilblik.... je ne parlait pas de DATE mais de DATA ou données??? cela arrive parfois notamment avec les apostrophe dans les noms...

Tu obtiens quoi comme erreur????

Si tu lances le formulaire sans sélectionner aucun item.... tu as des datas en résultat???

Parce que personnellement, je ne vois rien de spécial au niveau du code sql.

As-tu essayé de récupérer ton code SQl généré dans l'espion pour tester??