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
| Sub connect()
Dim Db As DAO.Database
Dim strSQL As String
Dim derlign As Long, i As Long
'connexion à la base
Set Db = DAO.OpenDatabase("Q:\ECHANGE_FINANCE\données Projets\Suivideprojets.mdb", False, False)
Call MAJPREVCAPEX_7
End Sub
Function MAJPREVCAPEX_7()
On Error GoTo MAJPREVCAPEX_7_Err
DoCmd.OpenQuery "VIDEDATAHEURESMENSUALISEES", acViewNormal, acEdit
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[05_2010], ""15/5/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX; ", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[06_2010], ""15/6/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX; ", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[07_2010], ""15/07/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[08_2010], ""15/08/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[09_2010], ""15/09/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[10_2010], ""15/10/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[11_2010], ""15/11/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[12_2010], ""15/12/2010"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1
DoCmd.RunSQL "INSERT INTO DATAHEURESMENSUALISEE ( Num_Projet, Heures, [Date], Type, Dimension ) SELECT MENSUALISATIONPREVCAPEX.Num_Projet, MENSUALISATIONPREVCAPEX.[01_2011], ""15/01/2011"" AS [DATE], ""PREVEUROS"" AS TYPE, ""CAPEX"" AS DIMENSION FROM MENSUALISATIONPREVCAPEX;", -1 MAJPREVCAPEX_7_Exit:
Exit Function
MAJPREVCAPEX_7_Err:
MsgBox Error$
Resume MAJPREVCAPEX_7_Exit
End Function |
