class= " lineNumbers " de
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 :
|
class= de
id= " codeSnippet767453 " class= " de ' vitesse vers le haut de qry10002 avec des coquilles
Fonction publique GetDemand ()
Faibles dbs comme base de données
Faible qdf comme DAO.QueryDef
Faible rst comme DAO.Recordset
Faible sInsert comme corde, sSelect comme corde, sFrom comme corde, sWhere comme corde, sSQL comme corde
Faible lRecordCount en tant que longtemps : lRecordCount = 0
Faible lCounter en tant que longtemps
DoCmd.SetWarnings faux
DoCmd.RunSQL « SUPPRESSION * de tblDemand »
'sInsert = « INSERTION DANS le tblDemand »
sSelect = « LOWES.T2398_IFM_FRC_VAL.T024_ITM_NBR CHOISI, LOWES.T2398_IFM_FRC_VAL.T063_LCT_NBR, CAS QUAND EXTRÉMITÉ SEN_END_WK_NBR-SEN_BGN_WK_NBR+1 52-SEN_BGN_WK_NBR+SEN_END_WK_NBR+1 D'AUTRE de SEN_BGN_WK_NBR<=SEN_END_WK_NBR PUIS COMME "" vendant le "" de semaines, » et le _
« LOWES.T2355_SEN_PRL.WK1_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK2_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK3_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK4_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK5_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK6_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK7_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK8_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK9_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK10_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK11_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK12_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK13_BAS_IND_FCT COMME somme du "" Q1 de "" de BRI, » et de _
« LOWES.T2355_SEN_PRL.WK14_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK15_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK16_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK17_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK18_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK19_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK20_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK21_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK22_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK23_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK24_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK25_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK26_BAS_IND_FCT COMME somme du "" Q2 de "" de BRI, » et de _
« LOWES.T2355_SEN_PRL.WK27_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK28_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK29_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK30_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK31_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK32_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK33_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK34_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK35_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK36_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK37_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK38_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK39_BAS_IND_FCT COMME somme du "" Q3 de "" de BRI, » et de _
« LOWES.T2355_SEN_PRL.WK40_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK41_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK42_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK43_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK44_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK45_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK46_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK47_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK48_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK49_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK50_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK51_BAS_IND_FCT+LOWES.T2355_SEN_PRL.WK52_BAS_IND_FCT COMME somme du "" Q4 de """ de BRI
le sFrom = « (LOWES.T2354_ITM_LCT_PRL INTÉRIEURS JOIGNENT LOWES.T2355_SEN_PRL SUR LOWES.T2354_ITM_LCT_PRL.T2355_PRL_TAG_ID = LOWES.T2355_SEN_PRL.T2355_PRL_TAG_ID) D'INTÉRIEUR JOIGNENT LOWES.T2398_IFM_FRC_VAL DESSUS (LOWES.T2354_ITM_LCT_PRL.T063_LCT_NBR = LOWES.T2398_IFM_FRC_VAL.T063_LCT_NBR) ET (LOWES.T2354_ITM_LCT_PRL.T024_ITM_NBR = LOWES.T2398_IFM_FRC_VAL.T024_ITM_NBR) »
sWhere = « OÙ (LOWES.T2398_IFM_FRC_VAL.T024_ITM_NBR = -1 ET LOWES.T2398_IFM_FRC_VAL.T063_LCT_NBR = -1) »
Placer les dbs = le CurrentDb ()
Placer le rst = le dbs.OpenRecordset (« T024_ITM_NBR CHOISI, T063_LCT_NBR de Demand_Check_C ; ")
Si rst.EOF alors
lRecordCount = 0
Autrement
rst.MoveLast
lRecordCount = rst.RecordCount
Finir si
rst.MoveFirst
Faire tandis que pas rst.EOF
lCounter = lCounter + 1
sWhere = sWhere et « OU (LOWES.T2398_IFM_FRC_VAL.T024_ITM_NBR = » et rst (« T024_ITM_NBR ») et » ET LOWES.T2398_IFM_FRC_VAL.T063_LCT_NBR = « et rst (« T063_LCT_NBR ») et ") «
Si lCounter > 60 ou rst.AbsolutePosition = lRecordCount - 1 puis
sSQL = sInsert et sSelect et sFrom et sWhere 'et « AVEC UR »
Placer le qdf = le CurrentDb () .QueryDefs (le « qryPassThrough »)
qdf.SQL = sSQL
DoCmd.OpenQuery « qryDemand »
'sSQL de DoCmd.RunSQL
lCounter = 0
sWhere = « OÙ (LOWES.T2398_IFM_FRC_VAL.T024_ITM_NBR = -1 ET LOWES.T2398_IFM_FRC_VAL.T063_LCT_NBR = -1) » '- 1 = simulacre # pour traiter le ęr OU
Finir si
rst.MoveNext
Boucle
DoCmd.SetWarnings vrai
rst. Fin
Fonction de fin
|