Créer un table en vba

**David1259** · 07/09/2011, 15h12

Bonjour le forum

Je suis à la recherche d'une solution car mon code vba ne fonction pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Commande56_Click()
Dim Bad
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
 
For ii = 1 To 12
        E = "Nomdelatable" & Format(DateSerial(Year(Now), ii, 1), "mmmm")
                strSQL = "CREATE TABLE " & E & " "
                Call DoCmd.RunSQL(strSQL)
For i = 1 To 31
 
                    Set db = CurrentDb()
                    Set tdf = db.TableDefs(E)
                    Badg = "Jour" & i
 
                    'Create
                        tdf.Fields.Append tdf.CreateField(E, dbText, 55)
 
                        tdf!& Badg. Properties.Append _
                        tdf.CreateProperty("DisplayControl", dbInteger, acComboBox)
 
                        tdf!& Badg.Properties.Append _
                        tdf.CreateProperty("RowSourceType", dbText, "Table/Query")
 
                        tdf!& Badg.Properties.Append _
                        tdf.CreateProperty("RowSource", dbText, "R_requete")
 
 
 
Next i
Next ii
    Set tdf = Nothing
    Set db = Nothing
 
End Sub