selection date ou VIDE pour un moteur de recherche

**popofpopof** · 14/05/2007, 23h13

bonjour

j'ai crée un moteur de recherche sous acces (http://cafeine.developpez.com/access...echerchemulti/)
j'ai ajoute un critaire par date. Le tout marche bien mais maintenant je souhaiterai comme critaire pour cette date (appellé DATECOMMEN) soit plus de 30jour par rapport a la date du jour OU tout les enregistrement ou le champ DATECOMMEN est vide.
je joint mon code complet

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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
Private Sub chkConventionne_Click()
 
 
RefreshQuery
 
End Sub
 
Private Sub chkarelance_Click()
 
 
RefreshQuery
 
End Sub
 
Private Sub chkviderelance_Click()
 
 
RefreshQuery
 
End Sub
 
Private Sub chkNOMOPERATION_Click()
 
If Me.chkNOMOPERATION Then
    Me.cmbRechNOMOPERATION.Visible = False
Else
    Me.cmbRechNOMOPERATION.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkNOTEPRESC_Click()
 
If Me.chkNOTEPRESC Then
    Me.txtRechNOTEPRESC.Visible = False
Else
    Me.txtRechNOTEPRESC.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chknonConventionne_Click()
 
RefreshQuery
 
End Sub
 
 
Private Sub chkGRANDPETITCOMPTEPRESC_Click()
 
If Me.chkGRANDPETITCOMPTEPRESC Then
    Me.cmbRechGRANDPETITCOMPTEPRESC.Visible = False
Else
    Me.cmbRechGRANDPETITCOMPTEPRESC.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechNOMOPERATION_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechGRANDPETITCOMPTEPRESC_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT Medias.NUMPRESC, Medias.NOMPRESC, Medias.GRANDPETITCOMPTEPRESC, Medias.NOTEPRESC, Medias.DATERECU, Medias.COMMIMMO, Medias.COMMPACKAGE, Medias.NOMOPERATION, Medias.DATECOMMEN FROM Medias;"
 
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Medias.NUMPRESC, Medias.NOMPRESC, Medias.GRANDPETITCOMPTEPRESC, Medias.NOTEPRESC, Medias.DATERECU, Medias.COMMIMMO, Medias.COMMPACKAGE, Medias.NOMOPERATION, Medias.DATECOMMEN FROM Medias Where Medias!NUMPRESC <> 1 "
 
If Not Me.chkConventionne Then
    SQL = SQL & "And Medias!DATERECU between " & CLng(Date) - 1 & " and " & CLng(Date - 540) - 1
End If
If Not Me.chkNOMOPERATION Then
    SQL = SQL & "And Medias!NOMOPERATION = '" & Me.cmbRechNOMOPERATION & "' "
End If
If Not Me.chkNOTEPRESC Then
    SQL = SQL & "And Medias!NOTEPRESC like '*" & Me.txtRechNOTEPRESC & "*' "
End If
If Not Me.chknonConventionne Then
     SQL = SQL & "And Medias!DATERECU between " & CLng(Date - 540) - 1 & " and " & CLng(Date - 5400000) - 1
End If
If Not Me.chkGRANDPETITCOMPTEPRESC Then
    SQL = SQL & "And Medias!GRANDPETITCOMPTEPRESC = '" & Me.cmbRechGRANDPETITCOMPTEPRESC & "' "
End If
If Not Me.chkarelance Then
     SQL = SQL & "And Medias!DATECOMMEN between " & CLng(Date - 30) & " and " & CLng(Date - 5400000)
End If
If Not Me.chkviderelance Then
     SQL = SQL & "And Medias!DATECOMMEN = Null"
End If
 
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoMedias", acNormal, , "[NUMPRESC] = " & Me.lstResults
 
 
End Sub
 
Private Sub txtRechNOTEPRESC_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub chkarelance_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub chkviderelance_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub

le probleme se trouve la

Code :

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

1
2
3
4
5
6
If Not Me.chkarelance Then
     SQL = SQL & "And Medias!DATECOMMEN between " & CLng(Date - 30) & " and " & CLng(Date - 5400000)
End If
If Not Me.chkviderelance Then
     SQL = SQL & "And Medias!DATECOMMEN = Null"
End If

j'ai essai de faire deux bouton mais sa marche pas non plus le tot sera qu'il y en ai qu'un et que sa marche
Qui peux m'aide??? SVP

**LedZeppII** · 15/05/2007, 12h01

Bonjour,

Pour tester si un champ est null il faut utiliser l'opérateur Is à la place de =
Ensuite il mettre un Or : ... And (Champ between <date1> And <Date2> Or Champ Is Null)
Essaie avec quelque chose dans ce genre:

Code vb :

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

1
2
3
4
5
6
7
8
9
10
If Not Me.chkarelance Then
   If Not Me.chkviderelance Then
      ' DATECOMM < Date()-30 ou DATECOMM Est Null
      SQL = SQL & "And (Medias!DATECOMMEN between " & CLng(Date - 30) & " and " & CLng(Date - 5400000) & _
      " Or Medias!DATECOMMEN Is Null) "
   Else
      ' DATECOMM < Date()-30
      SQL = SQL & "And Medias!DATECOMMEN between " & CLng(Date - 30) & " and " & CLng(Date - 5400000) & " "
   End If
End If

A+

**popofpopof** · 15/05/2007, 23h23

merci bcp pour ta reponse super rapide tout marche j'ai pu faire les modif pour le place dans ma base de donner diffinitive.
Par contre j'ai un autre petit probleme je souhaite que dans le table des resultat les réponses sont classes par décroissant sur le champ NOTE_PRESC comme je doit faire pour le modifier dans 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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Private Sub chkConventionne_Click()
 
 
RefreshQuery
 
End Sub
 
Private Sub chkarelance_Click()
 
 
RefreshQuery
 
End Sub
 
 
Private Sub chkNOMOPERATION_Click()
 
If Me.chkNOMOPERATION Then
    Me.cmbRechNOMOPERATION.Visible = False
Else
    Me.cmbRechNOMOPERATION.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkNOTEPRESC_Click()
 
If Me.chkNOTEPRESC Then
    Me.txtRechNOTEPRESC.Visible = False
Else
    Me.txtRechNOTEPRESC.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chknonConventionne_Click()
 
RefreshQuery
 
End Sub
 
 
Private Sub chkGRANDPETITCOMPTEPRESC_Click()
 
If Me.chkGRANDPETITCOMPTEPRESC Then
    Me.cmbRechGRANDPETITCOMPTEPRESC.Visible = False
Else
    Me.cmbRechGRANDPETITCOMPTEPRESC.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechNOMOPERATION_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechGRANDPETITCOMPTEPRESC_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT recherprescri.NUM_PRESC, recherprescri.NOM_PRESC, recherprescri.GRANDPETITCOMPTE_PRESC, recherprescri.NOTE_PRESC, recherprescri.DATE_RECU, recherprescri.COMM_IMMO, recherprescri.COMM_PACKAGE, recherprescri.NOM_OPERATION, recherprescri.DATECOMMEN FROM recherprescri where recherprescri!NUM_PRESC <> 1 and recherprescri.OPE_FINI <> Yes ;"
 
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT recherprescri.NUM_PRESC, recherprescri.NOM_PRESC, recherprescri.GRANDPETITCOMPTE_PRESC, recherprescri.NOTE_PRESC, recherprescri.DATE_RECU, recherprescri.COMM_IMMO, recherprescri.COMM_PACKAGE, recherprescri.NOM_OPERATION, recherprescri.DATECOMMEN FROM recherprescri Where recherprescri!NUM_PRESC <> 1 and recherprescri.OPE_FINI <> Yes "
 
If Not Me.chkConventionne Then
    SQL = SQL & "And recherprescri!DATE_RECU between " & CLng(Date) - 1 & " and " & CLng(Date - 540) - 1
End If
If Not Me.chkNOMOPERATION Then
    SQL = SQL & "And recherprescri!NOM_OPERATION = '" & Me.cmbRechNOMOPERATION & "' "
End If
If Not Me.chkNOTEPRESC Then
    SQL = SQL & "And recherprescri!NOTE_PRESC like '*" & Me.txtRechNOTEPRESC & "*' "
End If
If Not Me.chknonConventionne Then
     SQL = SQL & "And (recherprescri!DATE_RECU between " & CLng(Date - 540) - 1 & " and " & CLng(Date - 5400000) - 1 & _
      " Or recherprescri!DATE_RECU Is Null) "
End If
If Not Me.chkGRANDPETITCOMPTEPRESC Then
    SQL = SQL & "And recherprescri!GRANDPETITCOMPTE_PRESC = '" & Me.cmbRechGRANDPETITCOMPTEPRESC & "' "
End If
If Not Me.chkarelance Then
     SQL = SQL & "And (recherprescri!DATECOMMEN between " & CLng(Date - 30) & " and " & CLng(Date - 5400000) & _
      " Or recherprescri!DATECOMMEN Is Null) "
End If
 
 
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "recherprescri", SQLWhere) & " / " & DCount("*", "recherprescri")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "saisie d'une fiche Prescripteur", acNormal, , "[NUM_PRESC] = " & Me.lstResults
 
 
End Sub
 
Private Sub txtRechNOTEPRESC_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub chkarelance_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub

**LedZeppII** · 16/05/2007, 01h30

Bonsoir,

Tu ajoutes une clause "ORDER BY"

SELECT listechamp
FROM table
WHERE critèressélection
[ORDER BY champ1 [ASC | DESC ][, champ2 [ASC | DESC ]][, ...]]]

A la fin de la procédure RefreshQuery() cela done :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
' ligne avant modif
'SQL = SQL & ";"
 
' ligne après modif
SQL = SQL & vbCrLf & _
"ORDER BY recherprescri.NOTE_PRESC DESC ;"
 
Me.lblStats.Caption = DCount("*", "recherprescri", SQLWhere) & " / " & DCount("*", "recherprescri")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

A+

**popofpopof** · 16/05/2007, 07h29

merci bcp sa marche super bien
dis moi j'ai pose une autre question sur http://www.developpez.net/forums/sho...d.php?t=337620
pour insére une image dans un formulaire et l'image sur le serveur peux tu m'aide? stp merci bcp pour tout

selection date ou VIDE pour un moteur de recherche

VBA Access

Discussions similaires

Partager

Partager