[A-03] Requete SQL qui ne s'execute pas

Bonjour a tous,

Lorsque je lance ma requete SQL, celle-ci n'affecte pas ma table "Historic".
Quelqu'un peut m'expliquer pourqUOI?
Je vous remercie

Code:

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

Et lorsque je la lance dans SQL simplement, elle marche parfaitement.
Je vous remercie

Bonjour,

Je ne comprends pas trop ce que tu veux dire là...
Ta procédure crée une table et tu fais un sélect dessus...
Mais c'est normal qu'elle ne renvoie rien puisqu'elle est vide (tu viens juste de la créer...).

Si tu veux dire par là que tu ne vois pas ta table dans l'explorateur d'objets d'Access, il suffit que tu le rafraichisses en appuyant sur F5 après avoir exécuté ta procédure.

Une remarque (qui ne concerne pas ta question mais bon...) : en VB il faut spécifier un type pour chaque variable.

dans tes lignes :
Code:

1 2 Dim Month, filename, sheetname, SQLreq1, SQLreq2, SQLreq3 As String Dim Today, dDatedepart, dMonthDepart, accessdate, idate As Date
SQLreq3 est bien une String mais Month, filename, sheetname, SQLreq1 et SQLreq2 sont des Variant

De la même manière, idate est bien une date mais Today, dDatedepart, dMonthDepart et accessdate sont aussi des Variant.