Fields.Attributes = dbAutoIncrField

Version imprimable

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:

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.

Citation INUTILE !

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

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
 
 
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

Baa01,

The solution is above :

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
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

08/03/2016, 21h51
Baa01

Un grand merci

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.
08/03/2016, 21h56
jimbolion

Baa01 bonsoir,

Citation:

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.

:koi:

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

Cldt

jimbolion

Lien avec une table à la place d'une table incluse dans la DB

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:

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 ...

10/03/2016, 07h20
jimbolion

Baa01,

:koi:

Rien ne différencie une table créée en VBA ou créée via les outils de création !

As tu un message d'erreur ? Es tu sûr qu'il s'agit bien de cette table, pense à utiliser des points d'arrêt pour suivre pas à pas l’exécution de ton code.

Cldt

jimbolion
10/03/2016, 20h04
Baa01

Link DB

Bonsoir,
Voilà, je viens de repasser le code et j'ai comme erreur:
Erreur 3011:
The Microsoft access engine could not find the object "NomDeLaTable" ...
Alors que la table existe dans la liste des tables !

Merci ...
10/03/2016, 20h39
jimbolion
Baa01

donc nous allons transformer le code :
Code:

1 2 3 4 For Each v In Split(sTableCollection) debug.print sTmpFile, acTable, v DoCmd.TransferDatabase acLink, "Microsoft Access", sTmpFile, acTable, v, v Next
Dans la fenêtre d’exécution de l’éditeur (ctrl + G) tu devrais avoir la liste des objets !

ensuite nous contrôlerons la présence de chaque table dans la bonne définition de l'objet sTmpFile (il se peut que tu fasses appel d'un côté à des tables liées et de l'autre à une table locale)

cldt
11/03/2016, 22h23
Baa01

Tests sur les tables à transférer

Bonsoir,
Il y avait donc trois tables dans cette variable.
J’ai modifié le VBA pour qu’elles soit toutes créées via le même process (DAO)
J’ai également changé l’ordre de la création des tables, ce qui n’avait aucune influence sur le reste de la procédure.
J’ai donc modifié le transfert avec vos instructions , voici le résultat :
Tempfile 0 TblONSyst
Tempfile 0 TblSystStruct
Tempfile 0 TblON
La dernière bloque, les autres sont bien transférées.
Voici le code de la deuxième (pour exemple):
CODE
CreateTblONSyst:
sTableName = "TblONSyst"
Set oTdf = oDb.CreateTableDef(sTableName)
With oTdf
.Fields.Append .CreateField("IdSyst", dbLong)
.Fields.Append .CreateField("IdStop", dbLong)
.Fields.Append .CreateField("Syst_Name", dbText, 40)
.Fields.Append .CreateField("IdSystLevel", dbLong)
.Fields.Append .CreateField("Syst_OrderNbr", dbLong)
.Fields.Append .CreateField("IdSyst_Sup", dbLong)
.Fields.Append .CreateField("IdSyst87", dbLong)
.Fields.Append .CreateField("IdSyst67", dbLong)
For Each v In Split(Mid$(sSysLevels, 5))
sON = "ON" & v
.Fields.Append .CreateField(sON, dbLong)
Next v
Set oIndex = .CreateIndex("IdSyst")
oIndex.Fields.Append oIndex.CreateField("IdSyst")
oIndex.Primary = True
.Indexes.Append oIndex
End With
oDb.TableDefs.Append oTdf
subHideNavigationPane
GoSub TableCollection
Return
CODE
Voici le code de celle qui pose problème :
CODE
CreateTblON:
sTableName = "TblON"
Set oDb = CurrentDb
Set oTdf = oDb.CreateTableDef(sTableName)
Set oField = oTdf.CreateField("Id", dbLong)
oField.Attributes = dbAutoIncrField
oTdf.Fields.Append oField
oTdf.Fields.Append oTdf.CreateField("IdSyst", dbLong)
Set oIndex = oTdf.CreateIndex("PK_Id")
oIndex.Primary = True
oIndex.Fields.Append oIndex.CreateField("Id")
oTdf.Indexes.Append oIndex
Set oIndex = oTdf.CreateIndex("PK_IdSyst")
oIndex.Fields.Append oIndex.CreateField("IdSyst")
oTdf.Indexes.Append oIndex
oDb.TableDefs.Append oTdf
subHideNavigationPane
GoSub TableCollection
'GoSub TransfertTable
Return
CODE

L'utilisation des objets est différentes entre ces deux création de table, mais celle qui n'a pas été modifiée (la première) passe sans problème ...

Merci,
Alain.

Baa01,

J'avoue ne plus rien comprendre à ton fil de discussion j'ai l'impression qu'on part d'un problème pour en évoquer un nouveau :weird:)
Quand tu dis çà ne marche pas il me faut un peu de matière pour analyser l'origine de ton problème (code erreur, problème à la compilation) !

Il faut aussi proscrire les gosub et goto (hormis la gestion d'erreur) de ton code. Ces instructions sont dignes de la programmation de la préhistoire.

Ensuite le GoSub TableCollection ne fait référence à aucune sous routine de ton code :koi:

maintenant en adaptant le code sans trop cherché à comprendre la syntaxe les deux tables se créent bien dans la base locale:koi:
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 Function create_table() sTableName = "TblON" CreateTblONSyst: sTableName = "TblONSyst" Set oDb = CurrentDb Set oTdf = oDb.CreateTableDef(sTableName) With oTdf .Fields.Append .CreateField("IdSyst", dbLong) .Fields.Append .CreateField("IdStop", dbLong) .Fields.Append .CreateField("Syst_Name", dbText, 40) .Fields.Append .CreateField("IdSystLevel", dbLong) .Fields.Append .CreateField("Syst_OrderNbr", dbLong) .Fields.Append .CreateField("IdSyst_Sup", dbLong) .Fields.Append .CreateField("IdSyst87", dbLong) .Fields.Append .CreateField("IdSyst67", dbLong) For Each v In Split(Mid$(sSysLevels, 5)) sON = "ON" & v .Fields.Append .CreateField(sON, dbLong) Next v Set oIndex = .CreateIndex("IdSyst") oIndex.Fields.Append oIndex.CreateField("IdSyst") oIndex.Primary = True .Indexes.Append oIndex End With oDb.TableDefs.Append oTdf 'subHideNavigationPane ' CreateTblON: sTableName = "TblON" Set oDb = CurrentDb Set oTdf = oDb.CreateTableDef(sTableName) Set oField = oTdf.CreateField("Id", dbLong) oField.Attributes = dbAutoIncrField oTdf.Fields.Append oField oTdf.Fields.Append oTdf.CreateField("IdSyst", dbLong) Set oIndex = oTdf.CreateIndex("PK_Id") oIndex.Primary = True oIndex.Fields.Append oIndex.CreateField("Id") oTdf.Indexes.Append oIndex Set oIndex = oTdf.CreateIndex("PK_IdSyst") oIndex.Fields.Append oIndex.CreateField("IdSyst") oTdf.Indexes.Append oIndex oDb.TableDefs.Append oTdf 'subHideNavigationPane 'GoSub TableCollection 'GoSub TransfertTable 'Return End Function
Cordialement

jimbolion

12/03/2016, 20h38
Baa01

Suite et fin

Bonsoir,
Un grand merci pour tout à toi jimbolion !
C'est vrais c'est un vieux code, mais que je n'ai pas adapté depuis (7 ans?) car il fonctionnait encore très bien. Pourquoi les gosub... Car au début, je voulais rassembler toutes les création de tables dans un même module. Maintenant j'utilise le plus souvent des functions naturellement.
Pourquoi j’ai posé ces questions ? Car je voulais passer d’un VBA 2003 à 2013 avec un exemple « complexe » avec une DB personnelle. Et je remarque qu’il il y a quelques problèmes. C’est en fait un test pour que mes applications qui tournent aussi depuis des années au boulot, puissent continuer dans un nouvel Office.
Encore un grand merci pour ta patience..

Alain.
13/03/2016, 09h53
jimbolion

Baa01,

oui je me suis un peu perdu par tes différentes explications !

mais l'essentiel est que tu sois arrivé à tes fins :ccool:

en me relisant je relève ceci :

Citation:

maintenant en adaptant le code sans trop cherché à comprendre la syntaxe les deux tables se créent bien dans la base locale

désolé pour toute personne hostile aux fautes d'orthographe (:pastaper: Claude)

jmb