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
| Option Compare Database
Option Explicit
Public simonth, sidate, filename As String, verifsheet As Boolean, Xl As Excel.Application
Sub Test3()
Dim dbs As Database
Dim Month, filename, sheetname, SQLreq1, SQLreq2, SQLreq3 As String
Dim Today, dDatedepart, dMonthDepart, accessdate, idate As Date
Dim verifclasseur As Boolean
Dim Classeur As Variant
Dim Feuille As Excel.Worksheet
Dim Import As Database ' ma base de donnees
Dim fld1, fld2, fld3, fld4, fld5, fld6, fld7, fld8, fld9, fld10, fld11, fld12, fld13, fld14, fld15 As Field ' champs de ma table
Dim historictable As TableDef 'ma table
Dim recset As DAO.Recordset
Set dbs = CurrentDb
'First Create the table
Set Import = CurrentDb()
Set historictable = Import.CreateTableDef("Historic")
'create field
Set fld1 = historictable.CreateField("Level", dbText, 250)
historictable.Fields.Append fld1
Set fld2 = historictable.CreateField("Ricos ID", dbText, 250)
historictable.Fields.Append fld2
Set fld3 = historictable.CreateField("Name", dbText, 250)
historictable.Fields.Append fld3
Set fld4 = historictable.CreateField("Rating", dbText, 250)
historictable.Fields.Append fld4
Set fld5 = historictable.CreateField("Categ", dbText, 250)
historictable.Fields.Append fld5
Set fld6 = historictable.CreateField("Booking", dbText, 250)
historictable.Fields.Append fld6
Set fld7 = historictable.CreateField("Autho", dbText, 250)
historictable.Fields.Append fld7
Set fld8 = historictable.CreateField("Type", dbText, 250)
historictable.Fields.Append fld8
Set fld9 = historictable.CreateField("Authorization", dbText, 250)
historictable.Fields.Append fld9
Set fld10 = historictable.CreateField("Utilization EUR", dbText, 250)
historictable.Fields.Append fld10
Set fld11 = historictable.CreateField("(%)", dbText, 250)
historictable.Fields.Append fld11
Set fld12 = historictable.CreateField("Breach Description", dbText, 250)
historictable.Fields.Append fld12
Set fld13 = historictable.CreateField("Flag", dbText, 250)
historictable.Fields.Append fld13
Set fld14 = historictable.CreateField("Comments", dbText, 250)
historictable.Fields.Append fld14
Set fld15 = historictable.CreateField("Date_Anomaly", dbDate)
historictable.Fields.Append fld15
Import.TableDefs.Append historictable
SQLreq1 = "SELECT Name FROM Historic;"
Set recset = dbs.OpenRecordset(SQLreq1)
End Sub |
Partager