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
|
Option Compare Database
Option Explicit
Private Sub ChkDatePaiement_Click()
If Me.ChkDatePaiement Then
Me.TxtRechDatePaiement.Visible = False
Else
Me.TxtRechDatePaiement.Visible = True
End If
RefreshQuery
End Sub
Private Sub ChkModePaiement_Click()
If Me.ChkModePaiement Then
Me.TxtRechModePaiement.Visible = False
Else
Me.TxtRechModePaiement.Visible = True
End If
RefreshQuery
End Sub
Private Sub ChkNom_Click()
If Me.ChkNom Then
Me.TxtRechNom.Visible = False
Else
Me.TxtRechNom.Visible = True
End If
RefreshQuery
End Sub
Private Sub ChkID_Facture_Click()
If Me.ChkID_Facture Then
Me.TxtRechID_Facture.Visible = False
Else
Me.TxtRechID_Facture.Visible = True
End If
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 = ""
End Select
Next ctl
Me.lstResults.RowSource = "SELECT T_Factures.ID_Facture AS N°Facture, T_Factures.ID_Client, T_Factures.Date_Paiement AS [Date de paiement], T_Factures.Mode_de_paiement AS [Mode de paiement] FROM T_Clients INNER JOIN T_Factures ON T_Clients.ID_Client = T_Factures.ID_Client;"
Me.lstResults.Requery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT T_Factures.ID_Facture AS N°Facture, T_Factures.ID_Client, T_Factures.Date_Paiement AS [Date de paiement], T_Factures.Mode_de_paiement AS [Mode de paiement] FROM T_Clients INNER JOIN T_Factures ON T_Clients.ID_Client = T_Factures.ID_Client Where T_Factures!ID_Facture <> 0 "
If Not Me.ChkDatePaiement Then
SQL = SQL & "And T_Factures!Date_Paiement like '*" & Me.TxtRechDatePaiement & "*' "
End If
If Not Me.ChkModePaiement Then
SQL = SQL & "And T_Factures!Mode_de_paiement like '*" & Me.TxtRechModePaiement & "*' "
End If
If Not Me.ChkNom Then
SQL = SQL & "And T_Factures!ID_Client like '*" & Me.TxtRechNom & "*' "
End If
If Not Me.ChkID_Facture Then
SQL = SQL & "And T_Factures!ID_Facture like '*" & Me.TxtRechID_Facture & "*' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "T_Factures", SQLWhere) & " / " & DCount("*", "T_Factures")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "S/F_Factures", acNormal, , "[ID_Facture] = " & Me.lstResults
DoCmd.Close acForm, "F_Recherche_Facture"
End Sub
Private Sub TxtRechNom_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub TxtRechDatePaiement_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub TxtRechModePaiement_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub TxtRechID_Facture_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub |
Partager