Option Compare Database
Private Sub chkAxe_Click()
If Me.chkAxe Then
Me.cmbRechAxe.Visible = True
Else
Me.cmbRechAxe.Visible = False
End If
RefreshQuery
End Sub
Private Sub chkMO_Click()
If Me.chkMO Then
Me.cmbRechMO.Visible = True
Else
Me.cmbRechMO.Visible = False
End If
RefreshQuery
End Sub
Private Sub chkPresage_Click()
If Me.chkPresage Then
Me.cmbRechPresage.Visible = True
Else
Me.cmbRechPresage.Visible = False
End If
RefreshQuery
End Sub
Private Sub chkAnnee_Click()
If Me.chkAnnee Then
Me.cmbRechAnnee.Visible = True
Else
Me.cmbRechAnnee.Visible = False
End If
RefreshQuery
End Sub
Private Sub chkMesure_Click()
If Me.chkMesure Then
Me.cmbRechMesure.Visible = True
Else
Me.cmbRechMesure.Visible = False
End If
RefreshQuery
End Sub
Private Sub cmbRechAnnee_Change()
RefreshQuery
End Sub
Private Sub cmbRechAxe_Change()
RefreshQuery
End Sub
Private Sub cmbRechMesure_Change()
RefreshQuery
End Sub
Private Sub cmbRechMO_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechMO_Change()
RefreshQuery
End Sub
Private Sub cmbRechPresage_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechPresage_Change()
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 = 0 ' -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 Presage, MO, Axe, Mesure,Annee FROM BDP;"
Me.lstResults.Requery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT Presage, MO, Axe, Mesure,Annee FROM BDP Where BDP!Presage <> null "
If Me.chkAxe Then
SQL = SQL & "And BDP!Axe like '*" & Me.cmbRechAxe & "*' "
End If
If Me.chkMO Then
SQL = SQL & "And BDP!MO = '" & Me.cmbRechMO & "' "
End If
If Me.chkAnnee Then
SQL = SQL & "And BDP!Annee like '*" & Me.cmbRechAnnee & "*' "
End If
If Me.chkMesure Then
SQL = SQL & "And BDP!Mesure like '*" & Me.cmbRechMesure & "*' "
End If
If Me.chkPresage Then
SQL = SQL & "And BDP!Presage = '" & Me.cmbRechPresage & "' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "BDP", SQLWhere) & " / " & DCount("*", "BDP")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "SuiviIndicateur", acNormal, , "[Presage] = " & Me.lstResults
End Sub
Private Sub cmbRechAxe_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechAnnee_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechMesure_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub