1 2 3 4 5 6 7 8 9 10
|
Private Sub lb_listeX_AfterUpdate()
Me.tb_janvier = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 1, 1) & "# and [date] < #" & DateSerial(Year(Now), 2, 0) & "# and [X] = """ & Me.lb_listeX & """")
Me.tb_fevrier = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 2, 1) & "# and [date] < #" & DateSerial(Year(Now), 3, 0) & "# and [X] = """ & Me.lb_listeX & """")
...
Me.tb_decembre = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 12, 1) & "# and [date] < #" & DateSerial(Year(Now), 13, 0) & "# and [X] = """ & Me.lb_listeX & """")
me.requery
End Sub |
Partager