Discussion :

[Baa01]

Hi,
I send yesterday this mail, but I don't think it passed.


A VBA Access code was perfectly working in Office 2003, but, now I change to Office 2013…
I search, but nothing I found on the net response exactly to my problem. Can you help me?
Here us the code:

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
Sub Create_MyTable:
    Set dbs = appAccess.CurrentDb
    sTableName = "MyTable"
    Set tdf = dbs.CreateTableDef(sTableName)
     With tdf
        .Fields.Append .CreateField("Id", dbLong)
        .Fields.Append .CreateField("IdOther", dbLong)
        Set idx = .CreateIndex("Id")
        idx.Fields.Append idx.CreateField("Id")
        idx.Primary = True
        .Indexes.Append idx
    End With
    Set fld = tdf.Fields("id")
    fld.Attributes = dbAutoIncrField                               *Here is the problem
    dbs.TableDefs.Append tdf
End Sub

Thanks,
Alain.

[MacBee]

You can see this code (in french) : http://warin.developpez.com/tutoriel...erieurs/#LIV-A

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
37
38
39
 
 
Sub CreerTable()
Dim oDb As DAO.Database
Dim oNouvelleTable As DAO.TableDef
Dim oChamp As DAO.Field
Dim oIndex As DAO.Index
'Instancie la base de données
    Set oDb = CurrentDb
'Crée la nouvelle table
    Set oNouvelleTable = oDb.CreateTableDef("Clients")
'Crée le champ IDClient
    Set oChamp = oNouvelleTable.CreateField("IDClient", dbLong)
'Définit le champ en numero_auto
    oChamp.Attributes = dbAutoIncrField
'Ajoute le champ à la table
    oNouvelleTable.Fields.Append oChamp
'Crée le champ nomClient et l'ajoute
    oNouvelleTable.Fields.Append oNouvelleTable.CreateField("NomClient", _
        dbText, 15)
'Crée le champ PrenomClient et l'ajoute
    oNouvelleTable.Fields.Append oNouvelleTable.CreateField("PrenomClient", _
        dbText, 25)
'définit la clé primaire sur l'IDClient
    Set oIndex = oNouvelleTable.CreateIndex("PK_IDClient")
    oIndex.Primary = True
    oIndex.Fields.Append oIndex.CreateField("IdClient")
'Ajoute l'index à la table
    oNouvelleTable.Indexes.Append oIndex
'Ajoute la table à la base de données
    oDb.TableDefs.Append oNouvelleTable
 
'Libère les variables
oDb.Close
Set oIndex = Nothing
Set oChamp = Nothing
Set oNouvelleTable = Nothing
Set oDb = Nothing
End Sub

[jimbolion]

Baa01,

The solution is above :

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
Sub Create_MyTable()
 
Dim Matable As TableDef
Dim tdfNew As TableDef
Dim dft As TableDef
Dim idx As Index
Set dbs = Application.CurrentDb
'
    Set tdf = dbs.CreateTableDef("MyTable")
    '
    With tdf
        .Fields.Append .CreateField("Id", dbLong)
        .Fields![Id].Attributes = dbAutoIncrField
        dbs.TableDefs.Append tdf
    End With
    '
    Set dft = dbs.TableDefs!("MyTable")
    '
    Set idx = dft.CreateIndex("PrimaryKey")
    Set Lien = idx.CreateField("Id", dbLong)
    idx.Primary = True
    idx.Unique = True
    '
    idx.Fields.Append Lien
    '
    dft.Indexes.Append idx
    dft.Indexes.Refresh
End Sub

however , you're on a French website ! Please use french

Best regards

Jimbolion

[Baa01]

Cela fonctionne maintenant, j'ai encore un "petit" problème avec un lien que je veux créer à la place de la table, mais je cherche d'abord. Désolé du retard de la réaction mais plusieurs évènement de ma vie privée ne m'ont pas permis de tester et de réagir rapidement. Pour la langue, désolé, mais c'est une (mauvaise?) habitude. Merci encore.

[jimbolion]

Baa01 bonsoir,

Cela fonctionne maintenant, j'ai encore un "petit" problème avec un lien que je veux créer à la place de la table, mais je cherche d'abord.

si malgré tes recherches tu n'y arrives pas, nous serons toujours là pour le coup de pouce

Cldt

jimbolion

[Baa01]

Bonsoir,
Donc depuis mon passage en 2013, j'ai quelques problèmes. Celui de AutoNumber est résolu. Merci !!!
Mais cette table créée avec DAO ne réagit pas comme les autres.
Une fois créées, je veux transférer la structure de ces tables dans une autre DB, pour ensuite détruire cette DB temporaire une fois les requêtes effectuées.
J'utilise pour cela:

Code :

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

1
2
3
4
5
6
sTableCollection= la liste des tables à transférer
sTmpFile= La DB temporaire
 
    For Each v In Split(sTableCollection)
        DoCmd.TransferDatabase acLink, "Microsoft Access", sTmpFile, acTable, v, v
    Next

Seule la table créée via DAO bloque ...

Merci ...