1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Actu2()
Me(sConteneur).LinkMasterFields = ""
Me(sConteneur).LinkChildFields = ""
Debug.Print " [dateCréationAffaire] between #" & Format(Me.dateDeCréation, "mm/dd/yyyy") & "# AND #" & Format(Me.dateDeCréation1, "mm/dd/yyyy") & "#"
Me(sConteneur).Form.Filter = " [dateCréationAffaire] between #" & Format(Me.dateDeCréation, "mm/dd/yyyy") & "# AND #" & Format(Me.dateDeCréation1, "mm/dd/yyyy") & "#"
Me(sConteneur).Form.FilterOn = True
End Sub
Private Sub dateDeCréation1_AfterUpdate()
Call Actu2
End Sub |
Partager