Bonsoir,
j'ai un petit souci avec le code que voici
Public Sub CreationTable()
Dim tdf As TableDef
Dim fld As Field
With CurrentDb
Set tdf = .CreateTableDef("Fichier")
Set fld = tdf.CreateField("idFichier", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld
.TableDefs.Append tdf
End With
End Sub
Lors de l'execution j'ai l'erreur 13 qui sort
En vous remerciant
Barabas
"Lirim Bajrami" a écrit dans le message de news:uKXER3$
elle dit quoi l'erreur 13????
Barabas
Re bonsoir, j'ai trouvé il s'agissait de modifier la position de dao360 dans les references merci Barabas "Barabas" a écrit dans le message de news:40c376ac$0$262$
Bonsoir Elle dit: incompatibilité de type
"Lirim Bajrami" a écrit dans le message de news:uKXER3$
elle dit quoi l'erreur 13????
Re bonsoir,
j'ai trouvé il s'agissait de modifier la position de dao360 dans les
references
merci
Barabas
"Barabas" <VsBarabas@teledisnet.be> a écrit dans le message de
news:40c376ac$0$262$4d4efb8e@read.news.be.uu.net...
Bonsoir
Elle dit: incompatibilité de type
"Lirim Bajrami" <lirim.bajrami@isuisse.com> a écrit dans le message de
news:uKXER3$SEHA.1272@TK2MSFTNGP10.phx.gbl...
Re bonsoir, j'ai trouvé il s'agissait de modifier la position de dao360 dans les references merci Barabas "Barabas" a écrit dans le message de news:40c376ac$0$262$
Bonsoir Elle dit: incompatibilité de type
"Lirim Bajrami" a écrit dans le message de news:uKXER3$
elle dit quoi l'erreur 13????
3stone
Salut,
"Barabas"
j'ai trouvé il s'agissait de modifier la position de dao360 dans les references
Pour plus de sécurité et pour éviter ces dysfonctionnements, il est préférable d'écrire:
Dim tdf As DAO.TableDef Dim fld As DAO.Field
surtout si l'application est amenée à tourner sur Access 2000+
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Barabas"
j'ai trouvé il s'agissait de modifier la position de dao360 dans les
references
Pour plus de sécurité et pour éviter ces dysfonctionnements,
il est préférable d'écrire:
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
surtout si l'application est amenée à tourner sur Access 2000+
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
