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
| Private Sub grpRetard_AfterUpdate()
Dim bds As Database, dfr As QueryDef, chSQL As String
Set bds = CurrentDb
Select Case Me.grpRetard
Case 1
chSQL = "PARAMETERS [Forms]![frmStatsSemaine]![SemaineD] Value, [Forms]![frmStatsSemaine]![AnneeD] Value;
SELECT rqyQtéCap.[Dte Fin Prévue], rqyQtéCap.DteCarnetCdeXLS, rqyQtéCap.Qté, rqyQtéCap.[Statut des OF], NumSemaine([DteCarnetCdeXLS]) AS Semaine, rqyQtéCap.idCAP, rqyQtéCap.CAP, rqyQtéCap.idIPU, rqyQtéCap.idClient, rqyQtéCap.Client, rqyQtéCap.idArticle, rqyQtéCap.[Code Article], rqyQtéCap.Désignation, rqyQtéCap.[Dte Ddée EXW], rqyQtéCap.[Dte expédition modifiée], rqyQtéCap.Retard, rqyQtéCap.[Magasin expedition], rqyQtéCap.[Point expedition], rqyQtéCap.OV, rqyQtéCap.OF
FROM rqyQtéCap
WHERE (((rqyQtéCap.DteCarnetCdeXLS) Between InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD]) And (InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD])+13)) AND ((rqyQtéCap.[Statut des OF]) Like "*" & [Formulaires]![frmStatsSemaine]![txtStatut] & "*") AND ((rqyQtéCap.idCAP) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCAP] & "*") AND ((rqyQtéCap.idIPU) Like "*" & [Formulaires]![frmStatsSemaine]![cmbIPU] & "*") AND ((rqyQtéCap.idClient) Like "*" & [Formulaires]![frmStatsSemaine]![cmbClient] & "*") AND ((rqyQtéCap.idArticle) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCodeArticle] & "*") AND ((rqyQtéCap.Retard) ='Retard'))
ORDER BY rqyQtéCap.[Dte Fin Prévue];"
Case 2
chSQL = "PARAMETERS [Forms]![frmStatsSemaine]![SemaineD] Value, [Forms]![frmStatsSemaine]![AnneeD] Value;
SELECT rqyQtéCap.[Dte Fin Prévue], rqyQtéCap.DteCarnetCdeXLS, rqyQtéCap.Qté, rqyQtéCap.[Statut des OF], NumSemaine([DteCarnetCdeXLS]) AS Semaine, rqyQtéCap.idCAP, rqyQtéCap.CAP, rqyQtéCap.idIPU, rqyQtéCap.idClient, rqyQtéCap.Client, rqyQtéCap.idArticle, rqyQtéCap.[Code Article], rqyQtéCap.Désignation, rqyQtéCap.[Dte Ddée EXW], rqyQtéCap.[Dte expédition modifiée], rqyQtéCap.Retard, rqyQtéCap.[Magasin expedition], rqyQtéCap.[Point expedition], rqyQtéCap.OV, rqyQtéCap.OF
FROM rqyQtéCap
WHERE (((rqyQtéCap.DteCarnetCdeXLS) Between InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD]) And (InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD])+13)) AND ((rqyQtéCap.[Statut des OF]) Like "*" & [Formulaires]![frmStatsSemaine]![txtStatut] & "*") AND ((rqyQtéCap.idCAP) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCAP] & "*") AND ((rqyQtéCap.idIPU) Like "*" & [Formulaires]![frmStatsSemaine]![cmbIPU] & "*") AND ((rqyQtéCap.idClient) Like "*" & [Formulaires]![frmStatsSemaine]![cmbClient] & "*") AND ((rqyQtéCap.idArticle) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCodeArticle] & "*") AND ((rqyQtéCap.Retard) ='Pas Retard'))
ORDER BY rqyQtéCap.[Dte Fin Prévue];"
Case 3
chSQL = "PARAMETERS [Forms]![frmStatsSemaine]![SemaineD] Value, [Forms]![frmStatsSemaine]![AnneeD] Value;
SELECT rqyQtéCap.[Dte Fin Prévue], rqyQtéCap.DteCarnetCdeXLS, rqyQtéCap.Qté, rqyQtéCap.[Statut des OF], NumSemaine([DteCarnetCdeXLS]) AS Semaine, rqyQtéCap.idCAP, rqyQtéCap.CAP, rqyQtéCap.idIPU, rqyQtéCap.idClient, rqyQtéCap.Client, rqyQtéCap.idArticle, rqyQtéCap.[Code Article], rqyQtéCap.Désignation, rqyQtéCap.[Dte Ddée EXW], rqyQtéCap.[Dte expédition modifiée], rqyQtéCap.Retard, rqyQtéCap.[Magasin expedition], rqyQtéCap.[Point expedition], rqyQtéCap.OV, rqyQtéCap.OF
FROM rqyQtéCap
WHERE (((rqyQtéCap.DteCarnetCdeXLS) Between InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD]) And (InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD])+13)) AND ((rqyQtéCap.[Statut des OF]) Like "*" & [Formulaires]![frmStatsSemaine]![txtStatut] & "*") AND ((rqyQtéCap.idCAP) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCAP] & "*") AND ((rqyQtéCap.idIPU) Like "*" & [Formulaires]![frmStatsSemaine]![cmbIPU] & "*") AND ((rqyQtéCap.idClient) Like "*" & [Formulaires]![frmStatsSemaine]![cmbClient] & "*") AND ((rqyQtéCap.idArticle) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCodeArticle] & "*") AND ((rqyQtéCap.Retard) Is Not Null))
ORDER BY rqyQtéCap.[Dte Fin Prévue];"
Case 4
chSQL = "PARAMETERS [Forms]![frmStatsSemaine]![SemaineD] Value, [Forms]![frmStatsSemaine]![AnneeD] Value;
SELECT rqyQtéCap.[Dte Fin Prévue], rqyQtéCap.DteCarnetCdeXLS, rqyQtéCap.Qté, rqyQtéCap.[Statut des OF], NumSemaine([DteCarnetCdeXLS]) AS Semaine, rqyQtéCap.idCAP, rqyQtéCap.CAP, rqyQtéCap.idIPU, rqyQtéCap.idClient, rqyQtéCap.Client, rqyQtéCap.idArticle, rqyQtéCap.[Code Article], rqyQtéCap.Désignation, rqyQtéCap.[Dte Ddée EXW], rqyQtéCap.[Dte expédition modifiée], rqyQtéCap.Retard, rqyQtéCap.[Magasin expedition], rqyQtéCap.[Point expedition], rqyQtéCap.OV, rqyQtéCap.OF
FROM rqyQtéCap
WHERE (((rqyQtéCap.DteCarnetCdeXLS) Between InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD]) And (InvDatePart(1,[Forms]![frmStatsSemaine]![SemaineD],[Forms]![frmStatsSemaine]![AnneeD])+13)) AND ((rqyQtéCap.[Statut des OF]) Like "*" & [Formulaires]![frmStatsSemaine]![txtStatut] & "*") AND ((rqyQtéCap.idCAP) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCAP] & "*") AND ((rqyQtéCap.idIPU) Like "*" & [Formulaires]![frmStatsSemaine]![cmbIPU] & "*") AND ((rqyQtéCap.idClient) Like "*" & [Formulaires]![frmStatsSemaine]![cmbClient] & "*") AND ((rqyQtéCap.idArticle) Like "*" & [Formulaires]![frmStatsSemaine]![cmbCodeArticle] & "*") AND ((rqyQtéCap.Retard) Is Null))
ORDER BY rqyQtéCap.[Dte Fin Prévue];"
End Select
bds.QueryDefs.Delete "rqyQtéCapTotal"
Set dfr = bds.CreateQueryDef("rqyQtéCapTotal", chSQL)
Me.Requery
Me.Refresh
End Sub |
Partager