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
| Private Sub Form_Open(Cancel As Integer)
cmddomaine.Visible = False
cmdagence.Visible = False
txtannee.Visible = False
End Sub
Private Sub chkannee_Click()
Me.txtannee.Visible = Not Me.txtannee.Visible
Refreshquery
End Sub
Private Sub chkdomaine_Click()
Me.cmddomaine.Visible = Not Me.cmddomaine.Visible
Refreshquery
End Sub
Private Sub chkagence_Click()
Me.cmdagence.Visible = Not Me.cmdagence.Visible
Refreshquery
End Sub
Private Sub Refreshquery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT num_auto, titre_action, NOM_com, année FROM Tb_fiche_projet Where Tb_fiche_projet!num_auto <> 0 "
If Me.chkAnnee Then
SQL = SQL & "And Tb_fiche_projet!année like '*" & Me.txtannee & "*' "
End If
If Me.chkDomaine Then
SQL = SQL & "And Tb_fiche_projet!id_domaine = '" & Me.cmddomaine & "' "
End If
If Me.chkAgence Then
SQL = SQL & "And Tb_fiche_projet!id_agence = '" & Me.cmdagence & "' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub |
Partager