1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
If switch = 1 Then
Me.RecordSource = "SELECT AppelFonds.CLIID, AppelFonds.TPLID, Last(AppelFonds.APFDat) AS APFDat, Last(AppelFonds.APFMontant) AS APFMontant, AffLotPlan(LotsActes.TPLID) AS LOTNoPlan, AffLotNocopro(LotsActes.TPLID) AS LOTNoCopro, LotsActes.PROID FROM AppelFonds INNER JOIN LotsActes ON (AppelFonds.TPLID=LotsActes.TPLID) AND (AppelFonds.CLIID=LotsActes.CLIID) GROUP BY AppelFonds.CLIID, AppelFonds.TPLID, AffLotPlan(LotsActes.TPLID), AffLotNocopro(LotsActes.TPLID), LotsActes.PROID ORDER BY Last(AppelFonds.APFDat) DESC;"
TotalAppel.Visible = True
Else
Me.RecordSource = "SELECT AppelFonds.APFID, AppelFonds.CLIID, AppelFonds.TPLID, AppelFonds.APFDat, AppelFonds.APFMontant, AffLotPlan(LotsActes.TPLID) AS LOTNoPlan, AffLotNocopro(LotsActes.TPLID) AS LOTNoCopro, LotsActes.PROID FROM AppelFonds INNER JOIN LotsActes ON (AppelFonds.TPLID=LotsActes.TPLID) AND (AppelFonds.CLIID=LotsActes.CLIID) ORDER BY AppelFonds.APFDat DESC;"
TotalAppel.Visible = False
End If
DoCmd.SetWarnings False
If InStr(1, Forms!SaiGroup!SaiGroupAppels.LinkMasterFields, ";") = 0 Then Forms!SaiGroup!SaiGroupAppels.LinkChildFields = "PROID;CLIID"
If InStr(1, Forms!SaiGroup!SaiGroupAppels.LinkChildFields, ";") = 0 Then Forms!SaiGroup!SaiGroupAppels.LinkMasterFields = "PROID;Clients"
DoCmd.SetWarnings True |
Partager